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THIS MANUAL, 



....is the third in a series of four 
volumes providing detailed inforiration 
about the IBM Disk Operating S}/steiri / 
Virtual Storage CDOS/VS) Logical IOCS 
programs. The four volunaes are: 

Volume 1: General Infcriraticn and 

Iirperative Macros , SY33-8559. 

SAM, SY33-8560. 



Volume 2: 



Volume 3: DAM and ISAM, SY33-8561. 

Volume 4: VSAM, SY33-8562. 

This third volume is intended irainly for 
persons involved in program maintenance and 
for systems programmers who are altering 
the program design. Logic information is 
not necessary for the operation of the 
programs described. 

General routines that apply tc more than 
one access method or more than one file 
type are described in Volume 1. These 
routines include open/close, 
checkpoint/restart, and a nurooer of 
transient routines. References tc Volume 1 
are made whenever required for a good 
understanding of the topics discussed. 

This volume cf the BOS/VS IOCS Logic 
Manuals consists of three parts: 

1. LIOCS support for DAM files 

2. LIOCS support for ISAM files 

3. Charts. 

Parts 1 and 2 supply descriptions cf the 
declarative and imperative macros, DTF 
tables, and initialization and termination 
procedures for each of the file types 
described. Part 3 supplies the detailed 
flowcharts associated v^ith the descriptions 
in the first two parts. 

The appendixes in the back cf the manual 
provide maintenance personnel with the 
service aids: 



1. Label list 



Message cross-reference list. 



Effective use of this publication requires 
an understanding of IBM System/370 
operation and the Disk operating System / 
Virtual Stcrage CDCS/VS) Assembler Language 
and its associated macro definiticn 
language. Reference publications for this 
information are listed below. 
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DIRECT ACCESS FILES 



Direct Access (DA> files refer to files 
contained on DASD devices and processed by 
the Direct Access Method. Note that the 
term Dir ec t Acces s applies to a method of 
processing DASD records and not to a type 
of file organization. 



DIRECT ACCESS METHOD 



The Direct Access Method provides a 
flexible set of macro instructions for 
creating and maintaining a data file on a 
DASD device. This technique applies 
specifically to records organized in a 
random order, but it can also be used to 
process records sequentially. The macro 
language offered by this data management 
method permits the user to lead, read, 
write, update, add, or replace records on a 
DASD file. 

The Direct Access Method is an IOCS 
processing method specifically designed to 
utilize the capabilities of direct access 
storage devices. This method provides the 
following facilities: 

• Processing of records organized in a 
random order. 



• Providing a means of supplying the user 
with the Record Identifier (ID) of 
either the current record or the next 
record after a READ or a WRITE operation 
has been executed. 

The Direct Access Method is subject to the 
following restrictions: 

• Only unblocked records are processed. 

• Wc work area and only one I/C area can 

be specified for the file. 

• The user must supply either a track 
reference or a record identifier for 
every record read or v^ritten by logical 
IOCS. 

DASD files processed by the Direct Access 
Method must be defined for logical IOCS by 
a DTFDA macro. If a DASD file is processed 
by physical IOCS in a manner similar tc the 
Direct Access Method, the file must be 
defined by a DTFPH macro. 



DTFDA MACRO 



Processing, in physical sequence, of a 
file of records stored by record key. 

Utilizing track capacities. 

Two referencing methods : 

1. Record ID (physical track and record 
address) , 

2. Record KE!if (control field of the 
logical record) . 

Multiple track searching beycnd the 
specified track for resolving the key 
argument. 



Whenever a file of DASD records is 
processed by the Direct Access Method, the 
logical file must be defined by a DTFDA 
macro. This macro generates a partial DTF 
table tc describe the characteristics of 
the file for logical IOCS as shown in 
Figure 1. The DTF table is completed by 
the channel program builder subroutine in 
the EA logic module. This subroutine 
builds, and inserts into the DTF table, the 
channel program CCWs needed to process the 
file. The number and specific nature cf 
the CCWs varies with the imperative macros 
used with the file. Figure 12 summarizes 
the CCW chains needed to acccmplish the 
function cf a particular imperative macro. 
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J. y J. ^ ^ J. ^- . 


|DTF Assembly! Module 








1 Label IDSECT Label 


Bytes 


Bits 


1 Function 


^ 1 ^ 




— . 


^ 


jSFilename [IJICCB 


0-15 
(0-F) 




ICommand Control Block (CCB) . 


1 ( IJIMOD 


16 





ll = Trailer labels 




(10) 


1 


[Used by FREE rracrc 






2 


1 = COBCL Open/Ignore option 






3 


|1 = Track held option specified 






4 


|1 = DTF relocated by OPENR 






5 


INlot used 






6 


\1 = SPNUNE 






7 


Used by CNTRL iracro 




17-19 




[Address of logic irodule. 




(11-13) 








20 




[DTF type for OPEN/CLOSE (X' 22' = direct access 




(14) 




files). 


I IIJISWI 


21 





1 = Output; = Input. 




(15) 


1 


|1 = Verify cpticn specified. 






2 


1 = Search multiple track (SRCHM) specified. 






3 


|1 = WRITE AFTER cr WRITE RZERC macro used. 






4 


1 = IDLCC specified. 






5 


|1 = Undefined; = FIXUNB, VARUKB, or SPNUNB 






6 


1 = RELTYPE = DEC 






7 


jl = End of file. 


1 1 IJIFNM 


22-28 
(16-lC) 




[Filename (DTF Name). 


1 1 IJID7TP 


29 




[Device Type. 




(ID) 




IX'OO' = 2311, X'Ol' = 2314, 2319, X*02' = 2321, 
X'04« = 333C. 


1 1 IJIQNT 


30-31 




[Starting logical unit address of the first volume 




(lE-lF) 




[containing the data file. This value is supplied 
by the OPEN from EXTENT cards (can be initially 
1 zero) . 


1 1 IJIULB 


32-35 
(20-23) 




[Address of user's label routine. 


1 1 IJIUXT 


36-39 




[Address of user's routine for processing EXTENT 




(24-27) 




[ information . 


1 t IJIRELPT 


40 




[Pointer to relative address area: 




(28) 




1 & File name. P - ^Filename 

1 2 


1 llJIERC 


41-43 




[Address of a 2-byte field in which IOCS can store 




(29-2B) 




[the error ccnditicn or status codes. 


1 IIJITST 


44-45 




[Macro code switch for internal use: 




(2C-2D) 




IX'OOOO' = READ IE 
[X'OOOl^ = READ KEY 
|X'0002' = WRITE IE 
|X'0003* = WRITE KEY 
[X'^0004' = WRITE RZERO 
|X'0005' = WRITE AFTER 


1 1 IJIBPT 


46-47 




[Pointer to channel program build area 




(2E-2F) 




1 (SFilename.E) minus 32. 


1 IIJICB2 


48-63 
1 C30-3F) 




IControl seek CCE 



Figure 1. DTFDA table (1 of 6), 
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p ^ ^ — 


^ ^ 


-^ ^ ^ , ^ 


— , , ^ 


1 DTF ?^sse.'tibly| Module 


1 




1 


1 


1 Label | DSECT Label | Bytes 


Bits 1 Function 


1 


L__ . . ^_ L«.«« . 


1 1 




_ 1 , ^_ 


J 


r — ^— ^-— — — 


T 


"—'"'"" 


-^ — ^-. 


, 1 


1 ^Filename . Z | IJICCW 


1 64-71 
1 (40-47) 




1 Control Seek CCW for overlap 


seek routine. [ 

1 


1 1 IJIXMD 


172-75 




[Channel program builder instruction: | 




1 (48-4B) 




1 XI 36(2), CO' 


1 


1 1 IJIMSZ 


176-77 




IMaxirruiti data length for FIXUNB or UimDEF records; | 




1 (4C-4D) 




IBLKSIZE for VARUNB or SPNUNB 


records. | 


1 1 IJISPT 


1 78 




1 Pointer to READ ID string (Filename. 0) ; X'OO' if | 




1 (4E) 




jno READ ID issued. 


1 

1 




1 79 




1 1 
[Pointer to READ KE^ string (Filenaire. 1) ; X'OO' if| 




1 (4F) 




jno READ KEY issued. 


1 

i 




1 80 




1 1 
[Pointer to ^RITE ID string (Filename. 2) ; X'OO' if | 




1 (50) 




[no WRITE ID issued. 


1 

i 




1 81 




[Pointer tc WRITE KEY string ( 


[ 
^Filename. 3); X'OO' [ 




1 (51) 




[if no WRITE KEY issued. 


1 

1 




1 82 




1 1 

[Pointer to ^RITE RZERO string (Filenaire.4) ,• X'OO' [ 




1 (52) 




[if no WRITE RZERO issued. 


1 




1 83 




1 1 
[Pointer tc WRITE AFTER string (filename .5); X'OO'I 




1 (53) 




[if no WRITE AFTER issued. 




1 IIJITRK 


184-85 




[Track constant: 
[2311: H'O' if key 
1 H'20' if key 
[2314/2319: H'O' if key 
1 H'45' if key 
[3330: H'135' if key 
1 H '191' if key 
[2321: H'O' if key 
1 H'16' if key 


length = 0, [ 
length ^0. [ 
length = 0, | 
length to. [ 
length = 0, [ 
length #0. | 
length = 0, | 
length #0. [ 


1 1 IJIRIC 


1 86-87 
1 (56-57) 




[2311: H'61' 
[ 2314/2319: H'lOl' 
[3330: H'135' 
[2321: H'84'. 




1 1 IJILAT 


/ 1 88 





[Not used 






1 1 <58) 


1 


[1 = Wrong -length record 






\ [ 


2 


[1 = Non data transfer error. 




1 ^.,7<-'^-L-.--^^^^: 

1 o^i^-f 




3 


(Not used. 




i 1 

s 


4 
5-6 


1 1 = No room found 
[Not used 




\ 1 

/ 1 89 


7 




[1 = Record out of extent area. '[ 

1 1 
[1 = Data check in count area. | 




/ 1 (59) 


1 
2 


[1 = Track overrun. 
[1 = End of cylinder. 


1 
1 




\ 1 


3 


(1 = Data check when reading key or data. | 






4 


|1 = No record found. 








5 


[1 = End of file. 








6 


[ 1 = End of volume. 








7 


[Not used. 




1 1 IJILBTK 


1 90-95 




[Label track addre3s, XBCCHH, 


where X is the [ 




1 (5A-5F) 




[volume sequence number of the de-vice en which the | 








[label track is located. 


1 


jL ^ JL 


X . 





-X ^ , , , — 


^ , , J 



This is the end of the ccirmcn DTFDA table. 
Figure 1. DTFDA table (2 of 6). 
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The following section is included if UNDEF, AFTEJR^ or RZERO is specified. 



J. J. , ^ ^ ^ , ^ 

JDTF Assemblyl Module III 1 
1 Label IDSECT Label | Bytes |Bits| Function | 

L L J_ J. _L 1 


J. ^ 

1 &Filename.L 


1 IJILST 


r T 
96-143 1 
(60-8F) 1 


T 1 

[Basic CCWs to build channel prograir ) 

1 (see Figure 9) . | 
1 1 






144-1831 
(90-B7) 1 


1 1 

1 Basic CCWs for undefined length or formatting | 

jmacros (see Figure 9). | 

1 1 




1 IJIVir 


184-1851 
(B8-B9) 1 


1 i 
1 Instruction to give record length tc user if | 
{record length is undefined. (NOPR if no | 
IRECSIZE specified.) | 
1 1 




1 IJIFRQ 


186-1871 
(BA-BB) 1 


I 1 
1 Instruction to get record length frcrr user if | 
1 record length is undefined. (NOPR if no | 
IRECSIZE specified.) | 

1 1 


l&Filename.F 


1 IJIFLD 


188-1921 
(BC-CO) 1 


1 1 
|Work area (used for RO address - CCHHO) . | 

1 1 

1 1 


1 SFilename.K 


IJI2NT 


193-2001 
(C1-C8) 1 


1 1 
[Work area (used for RO data field). J 

1 1 
1 1 


|& Filename. C 


IIJICTS 


201-2081 
(C9-D0) 1 


1 1 

|Work area (included only for spanned or variable | 
{records f cr record count field) . | 



The channel program builder strings are generated folloviing the DTFDA table ^ and 
preceding the channel program building area. (See Figure 8 for the channel program 
builder string to be used for each macro.) 



SFilenarae.O 



£Filename.l 



&Filename.2 



&Filename.3 



SFilename.4 



SFilename.5 



Variable 



Variable 



Variable 



Variable 



Variable 



Variable 



Channel program builder string for READ ID iracrc. 
If READ ID is net specified^ the string is not 
generated. 

Channel program builder string for READ KEY 
macro. If READ KEY is not specified, the string 
is not generated. 

Channel program builder string for WRITE ID 
macro. If WRITE ID is not specified, the string 
is not generated. 

Channel program builder string fcr WRITE KEY 
macro. If WRITE KEY is not specified, the string 
is not generated. 

Channel program builder string for WRITE RZERO 
macro. If WRITE RZERO or WRITE AFTER is not 
specified, the string is not generated. 

Channel program builder strings for WRITE AFTER 
macro. If WRITE RZERO or WRITE AFTER is not 
specified, the string is not generated. 



Figure 1. DTFDA table (3 of 6), 
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The following section contains the channel program build areas and varies in size. 



h 



DTF Usseoably 
Label 



Module 
DSECr Label 



Bytes 



Bits 



Function 



SFilename.E 



^^ 



\ir\ 



\\(E>J^ 



0-7 



Variable 



Variable 



Seek CCVi that is generated at prograir asseirbly 
time and used by all channel programs. 

Area to build: 

1. Eight CCWs if AFTER is not specified. 

2. Eight CCWs if spanned or variable length 
records and AFTER=YES is specified. 

3. Seven CCWs if undefined or fixed records 
and AFTER=YES is specified. 

Area tc build: 

1. Eight CCWs if AFTER is not specified and 
VERIFY=yES is specified. 

2. Eight CCWs if spanned or variable length 
records and AFTER=YES and VERIFY=YES are 
specified . 

3. Five CCWs if undefined or fixed records and 
AFTER=YES and VERIFY=YES are specified. 



The following section is added for spanned records only. 



J. . ^ ^ ^ ^ 

|DTF Assembly [Module | 

1 Label IDSECT Label 1 Bytes 

1 ^ 1 _^ 1 J 


P ^ , — , ., . , — , — ^ ^ ^ ^ 

1 
Bits| Function 

L -i- 


|. ^ — — - — ^ ^ 


r 


T 
1 


1 1 1 8 bytes 




1 

[Count save area. 
1 


1 1 j 8 Dytes 




1 

ISEEKADR save area. 

1 


1 1 1 1 byte 





1 

|1 = Relative addressing, 
r 




1 


1 

|1 = IJIGET switch on. 

1 




2 


1 

|1 = Ignore hold switch on. 

1 




3 


1 

(Reserved for use by DAMODV. 

1 




t\ 


1 

|1 = New volume SEEKADR. 

1 




5-7 


1 

|i^ot used. 

1 


1 1 1 1 Dyte 




1 

1 Re served. 

1 


1 1 1 2 bytes 




1 

1 Record size. 

1 


1 1 |12 bytes 




1 

|Work area. 

1 


1 1 1 8 bytes 




1 

1 Control word save area. 



L ^ 1 X X ^ ± J 



Figure 1. BTFDA table (4 cf 6) 
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The follOrf^ing section is added to the DTFDA table if DSKXTNT (relative addressing) is 
specified. 



r T T 



DTF Assemblyl Module | | | 

Label IDSECT Label | Bytes jsitsl Function 

i X ± _L 


^ 


T 


r — 


T 

1 


SFilenaine.P | 


|3 


bytes 1 


1 

1 3X' 00' for padding. 
1 


&Filenanie.I | 


|5 


bytes 1 


1 

IIDLOC record area (bucket used by ircdule) . 

1 


SFilename.S | 


|8 


bytes 1 


1 

ISEEKADR in form: 

1 

|M,B1,B2,C1,C2,H1,H2,R 

1 




|4 


bytes 1 


1 

JDC A(SSEEKADR) 

1 




1^ 


bytes 1 


1 

|DC A(&IDLOC) 
1 




|8 


bytes 1 


1 

jwork area for RELTYPE=DEC- 

1 


&Filenaine»X | 


1 ^ 


bytes 1 


1 

|Save area for CCHH portion of actual DASD 

jaddress, 
1 




|4 


bytes] 


1 

1 Alteration factor for CI in SEEKADR (see bytes 

1112-119): 

1 

12311: X'COCOCCCl' 
|23m, 2319: X'OOOOOOOl' 
13330: X'00C013CC' 

12321: X«000003E8' 
1 




|4 


bytes 1 


1 

1 Alteration factor for C2 in SEEKADR (see byte^i 

1 112-119): 

1 

12311: X'COCOCCCA* 
12314, 2319: X'00000014' 
13330: X'C0CCC013' 
12321: X'00000064' 



L 



-J 



X X X 



. J 



Figure 1. DTFDA table (5 cf 6) . 
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DTF ?ksseaably 
Label 



Module 
DSECr Label 



Bytes 



Bits 



Function 



4 bytes 



Variable 
tc end 
of DTF 
table 



Alteration factor for HI in SEEKADK (see bytes 
112-119): 

2311: X'CCCCCCCl' 

2314^ 2319: X'OOOOOOOl* 
3330: X'OCOCOCCl' 
2321: X'00000014* 



DSKXTNT table composed of a ^^ariable nuirber of 
8-byte entries containing extent information 
in the following format: 

Bytes C-2 1112 -cumulative number cf tracks in 
the DSKXTNT table entries up to 
and including the current 
entry. 

3 M -volume sequence number. 

4 B -bin number CO for disk devices) • 

Bytes 5-7 TTTl -relative track number of lower 
limit of this entry. 

A 2- byte end-of -table indicator containing 
X'FFFF' follows the last entry in the DSKXTNT 
table. 



Numbers in parentheses are displacements in hexadeciiral notation. 
Figure 1. DTFDA table (6 cf 6). 
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J. ^ ^ 

I Bytes I Bits I Function 
|. + + 



0-15 
(0-F) 

16 
(10) 

17-19 
(11-13) 

20 
(1^1) 

21 
(15) 



22-28 
(16- IC) 

29 
(ID) 



30-31 
(lE-lF) 

32-35 
(20-23) 

36-39 
(24-27) 



CCB. 



X'08' indicates DTF relocated by OPENR, 



3X«00« 



DTF type (X'23'). 



Option cedes. 



1 


1 = Output^ = Input. 


1 


Not used. 


2 1 


Not used. 


3 


Not used. 


4 1 


Not used. 


5 


Not used. 


6 1 


1 = 2321 (Version 1/2 only) 


7 


Not used. 




Filename. 



Device type code: 
X'OO* = 2311 
X'Ol* = 2314, 2319 
X'02« = 2321 
X'04« = 3330. 

Logical unit address of first vcluire containing 
the file. 

Address cf user label routine. 



Address of user routine to process EXTENT 
infcrmaticn. 



Numbers in parentheses are displacements in hexadeciiral notation. 
Figure 2. DTFPH table for DAM files. 



DTFFH MACRO 



REFERENCE METHODS AND ADDRESSING SYSTEMS 



Figure 2 illustrates the DTF table 
generated by the DTFPH niacrc when the 
parameters DE7ICE=2311/2314/3330/2321 and 
MOUNTED=ALL are specified in the rracro 
operand. The table contains the 
information to define a DASD file for 
processing by physical IOCS, in a iranner 
similar to the Direct Access Method. 



Each record read or written must be 
identified by providing the logical IOCS 
routines cf the Direct Access Method with 
two references: 



Track reference - location of the track 
within the pack or cell. 



Record number (ID) , or Record Key 
(control inf oriration) - position of the 
record on the track. 
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The user can specify the track reference or 
record ID as either an actual physical DASD 
address or as an address relative to the 
start of the file. If relative addressing 
is usedt the address provided by the user 
has been converted to either a 4-fcyte 
hexadecimal or a 10-byte decimal address. 
Actual physical addresses are supplied as 
8-byte DASD addresses. Further details of 
the addressing systems are presented in the 
following discussion of reference irethods. 



TRACK REFERENCE 



Before issuing a read or write instruction, 
the user must supply the prcper track 
identification in the track reference field 
in main storage. (This field is identified 
by the SEEKADR= parameter specified in the 
DTFDA macro.) The track identification can 
be expressed in one of three formats 
depending on the addressing systein used. 

1. ^cbual phys ic al ad dre ssing - the track 
identification is contained in the 
first seven bytes of the 8-byte track 
reference field (MEBCCHHR) . 

2- Relative addressing (R£LTYPE=HEX) - the 
track identification is contained in 
the first three bytes cf the 4-byte 
track reference field (TTTR) . 



2« Relative addressing (RELTYPE=HEX) - the 
record ID is the last byte (R-byte) in 
the 4-byte track reference field 

(TTTR) . 



3. Relative addressing (RELTYPE=DEC) - the 
record ID is the last two zoned decimal 
bytes (RR) in the 10-byte track 
reference field (TTTTTTTTRR) . 

^hen a READ or WRITE macro that searches 
for record ID is executed, logical IOCS 
refers tc the track reference field to 
determine which record is requested by the 
program. The number in this field is 
compared with the corresponding field in 
the count areas of the DASD records. 

When a READ ID macro is executed, IOCS 
searches the specified track for the 
particular record. If the reccrd is fcund, 
the key area (if present and defined by the 
KEYLEN= parameter in the DTFDA iracro) and 
the data area of the reccrd are transferred 
into the main storage I/O area. If the 
corresponding record ID (R portion of the 
count area on the track) is not found, a nc 
record found indicator is placed in the 
user's errcr status indicator. The WRITE 
ID operation is the same as the READ ID 
except a record is written instead of read. 



3* Relativ e addres sing (R E LTYPE=DEC) - the 
track identification is contained in 
the first eight zoned decimal bytes of 
the 10-byte track reference field 
(TTTTTTTTRR) . 

The track reference selects the channel and 
unit on which the referenced track is 
found. 



RECORD ID 



Reference to a particular record can be 
made by supplying a specific number in the 
track reference field. This number (ID) 
refers to the consecutive position of the 
record on the given track; that is, the 
first data record on a track is nuirber 1, 
the second is number 2, etc. 

The form in which the record ID is 
supplied in the track reference field also 
depends on the addressing system used. 

^- Actual physical addressing - the record 
ID is the last byte (R-byte) in the 
8-byte track reference field 
(MEBCCHHR) . 



RECORD KEY 



If the DASD records include ke^ areas, the 
records can be identified by the ccntrcl 
information contained in the key. Whenever 
this method of referencing is used, the 
prcbleir program must supply the key of the 
desired record to logical IOCS before a 
READ or WRITE macro is issued. When a READ 
or WRITE macro is executed, IOCS searches 
the track identified by the track reference 
field for the desired key. The search is 
confined to one track unless multiple track 
search is specified by the user. (See 
Multip le Tr ack Search. ) 

If the desired key is not found on the 
track, IOCS posts a no record found 
indication in the user's error status 
indicator. When the desired key is found, 
IOCS reads the data area of the DASD record 
into main storage if a READ KEY nacro was 
issued. 

When a WRITE KEY macro is executed and 
the desired key is found, IOCS transfers 
the data in main storage to the data area 
of the DASD record. This replaces the 
information previously recorded in the data 
area. 



Direct Access Files 21 



r 



,.^ 






CONVERSION OF RELMIVE ADDRESSES 



When the record address supplied b^ the 
user in the track reference field (SEEKADR) 
is in relative address form, it roust be 
converted to an actual DASD address (CCHHR) 
before it c^n be handled by the routines of 
the DA logic modules. The Seek Overlap 
subroutine in the logic module performs the 
conversion. 

If the user wants to express the 
relative address as a 10-byte zoned decimal 
number (RELTYPE=DEC) , the address is packed 
and converted to binary so that it takes 
the hexadeciiral TTIR form before conversion 
to an actual address. 

Conversion to an actual DASD address 
starts by coirparing the TTT value given in 
the user-supplied relative address with the 
TTT2 value of each entry in the DSKXTNT 
table. (Refer to Figure 13 and to Re lati ve 
Addressing under Initialization and" 
Termination in this section of the manual. > 
The proper DSKXTNT entry is reached when 
the TTT2 value of the entry exceeds the TTT 
value in the address. The M and B2 values 
from the table entry are inserted into the 
seek address, MEECCHHR (Bl is always 0). 
The reconversion_f actor is calculated Dy 
subtracting the TTTl value of the current 
extent entry from the TTT2 value cf the 
previous entry. The reconversion factor is 
saved for reconversion of an actual address 
to a relative address if IDLOC is 
specified. 

The user's TTT value is then divided, in 
turn, by the three device-dependent 
alteration factors; Cl, C2, and HI (refer 
to Figure 14). The quotient after each 
divide operation is placed in the 
respective position in the seek address. 
For example; the quotient (after the TTT 
value is divided by the Cl alteration 
factor), is inserted in the first C~byte of 
the seek address, MBBCCHHR. The remainder 
after each divide operation becomes the 
dividend for the next divide operation. 
The remainder after the final divide 
* operation is the H2 value in the seek 
address, MBBCCHHR. The R-byte cf the 
actual seek address is identical to the 
R-byte (or equivalent to the RR bytes if 
decimal relative addressing is used) in the 
TTTR relative address. 

If a record ID is returned to the user 
in relative address form after a READ or 
WRITE macro instruction is executed (IDLOC 
specified) , reconversion is accomplished by 
reversing the conversion process. Thus, 
the corresponding CCHH portions of the 
actual address are multiplied by the 
respective alteration factors and the 
reconversion factor is added to the result. 



Again, the R-byte retrains unncdified 
throughout the reconversion process. If 
the decimal form of relative addressing is 
specified, the TTTR hexadecimal form is 
further converted to the 10-byte zoned 
decimal fcrm TTTTTTTTRR. 



MULTIPLE TRACK SEARCH 



The Direct Access READ KEY and WRITE KEY 
macro routines for processing DASD files 
normally search one track for the desired 
logical record. The user can specify a 
search of multiple tracks by including the 
ETFDA entry SRCHM (SeaRCH Multiple tracks) 
in the DTF. When SRCHM is specified, lOCS 
begins the search for a specified record 
key on the track specified in the track 
reference field. The search continues 
until one of two conditions occur: 

1. An equal compare occurs between the key 
argument (record key) in main storage 
and the key of the required record. 

2. The end of the specified cylinder is 
reached. 

The search for multiple tracks continues 
through the cylinder, even though part of 
the cylinder may be assigned to a different 
logical file. This occurs with cr without 
relative addressing. IOCS provides the 
user with an end of cylinder indicator when 
the search reaches the end of a cylinder. 
This indicator is placed intc the 
error/status byte by IOCS. 



IDLOC 



The parameter IDLOC= is provided (in bcth 
the DTFDA and DAMOD or DAKCDV macros) if 
the user wants to identify records after 
each READ or WRITE operation is ccirplete. 
If specified, IDLOC identifies a main 
storage location where ICCS supplies the 
address (either actual or relative) of a 
DASD record. If spanned reccrds are being 
processed, the ID returned will be that cf 
the first segment of the record. The 
address returned in location IDLOC after a 
particular macro depends on a variety of 
conditions. These conditions and the 
addresses returned are summarized in 
Figure 3. 

When the problem program references a 
record by ID or KEY and does not specify 
the search multiple tracks (SRCHM) option, 
IOCS returns the ID of the next record 
under normal conditions. If the user is 
processing records sequentially en the 
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basis of the next ID^ he can check the ID 
supplied by IOCS against his file limits to 



determine when he has reached the end of 
his logical file. 
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*If an end-of-cylinder condition coincides with either a physical or a logical end of 
volume, the ID supplied is that cf the first record on the next volume. If this 
condition occurs on the last volume, the ID supplied in IDLOC is equal to the maximum 
number of tracks for the file. A dummy record is supplied when a physical end cf 
volume is reached if actual DASD addressing is used. 



Dummy Record: 

Actual addressing 

Relative addressing (HEX) -- 
Relative addressing (DEC) ~- 



5 bytes (CCHHR) containing X'FFs 
4 Dytes (T1TR) containing X'FFs 
10 bytes ccntaining decimal 9s 



Figure 3. Record ID returned to iDLOC. 



If the next record ID is returned to 
IDLCCf LIOCS searches for the ID of the 
next record en the specified cylinder. If 
an end of cylinder occurs before the next 
record is found, logical IOCS: 



1. Posts the end-of -cylinder bit in the 
error/status indicator, and 

2. Updates the address to head 0, record 1 
of the next cylinder, and pests this 
updated address in IDLOC. 

It is possible that there will be no record 
at this new address. In this case, logical 
IOCS posts a no-record- found in the 
error/status indicator. Two ways to avoid 
this possibility: 



Initialize the volume by writing a 
dummy record at the beginning cf each 
cylinder. 

Add 1 to the record address and read or 
write again, and continue this process 
until logical IOCS finds the desired 
record. 



CONTROL FIELD 



SPANNED RECORDS 



Figure 4 illustrates the format cf the 
8-byte control field associated with each 
spanned record. The first fcur bytes are 
called the block descriptor word and 
contain information supplied by LIOCS when 
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the record is written. The second four 
bytes are called the seginent descriptor 
word and contain segment type information^ 
the user supplied record lengthy and the 
segment control flag . 



Normal Segment; The term normal segment 
refers to any segment cf the kind described 
by the segment control flag. 



Null Segment; The term null segment refers 
to a special 8-byte segment (control field 
only) that iray be written by a WRITE ^VFTER 
macro when the file is being created. A 
null segment is written as the last record 
on a volume and indicates that the next 
logical record is written en a new volume. 
Spanned records do not span volumes; that 
is, the first portion of a logical record 
cannot exist on one volume and the 
remainder on another. 



ERROR/STATUS INDICATOR 

When processing records in a DASD 
environment, certain exceptional conditions 
must be handled within the program. 
Because the irethod used for handling these 
exceptional conditions depends on the 
application and operating environirent, the 
logical IOCS routines of the Direct Access 
Method provide the user with exception 
indicators . 



The user must specify a symbolic name 
for the address of a 2-byte field where 
IOCS places the exceptional condition 
codes. The symbolic name is written by the 
user in the DTFDA entry ERRBYTE. When 
needed, IOCS sets one or more of the bits 
in this error/status indicator for the 
conditions illustrated in figure 5. 
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Segment Desciiptor Wore 








' r 
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1 £ 1 £ 
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Data ) 



Segment Type 
(Bit 0) 

Block Descriptor Word 



-Segment Control 
Flog (bits 6 and 7) 



LL - Record length including the 8-byte control 
field (t£t4). 

RR ~ Used by the system. 

Segment Descriptor Word 

tt - Record length including the 4- byte segment 
descriptor (data length + 4). 

Segment Type: 

= Normal segment 

1 = Null segment 

f = Contains binary zeros except bits 6 and 7. 
Segment Control Flag: 

00 = This segment is not followed or preceded by 

another segment; that is, a single contiguous 
segment contains the entire logical record. 

01 = This segment is the first segment of a multl- 

segment logical record. 

10 = This segment is the last segment of a multi- 

segment logical record. 

1 1 = This segment is neither the first nor the last 

segment of a multisegment logical record. 

r = Contains binary zeros. 



Figure 4. Spanned record control field. 
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|Byte|Bit | Error /Status Indicator 
^« 1 ^ 



I 
-+- 



Explanation 



ivrong-length record 



Not used. 

FIXUMB records: This bit is set on whenever the 
data length or key length of a record differs 
from the original record. If an updated record 
is shorter than the original reccrd, the updated 
record is padded Vkith binary zeros to the length 
of the original record. If the updated record is 
longer than the original record, the original 
record positions are filled and the rest of the 
updated record is truncated and lost. 

Ul^DEF records; This bit is set on under the 
following ccnditicns: 

• When a REAE is issued and the record is 
greater than the maxiinuni data size (ELKSIZE 
irinus KEYLEN; or BLKSIZE minus the value of 
KEYLEN plus eight, if AFTER is used) , a 
wrcng -length error condition is given and 
the value returned in the RECSIZE register 
is that of the actual record length. 

• When a WRITE ID or KEY is issued and the 
record to be written is greater than the 
ir.axiiruir data size, a wrong-length error 
condition is given and the reccrd written is 
equal to that of the maximuin data length. 

If the DASD record is larger than the 
roaxiiruir data size, the remainder of the 
record is padded with binary zeros. The 
value in the RECSIZE register is set equal 
to that of the maximum data length. 

• When a WRITE AFTER is issued and the record 
to be written is greater than the maximum 
data size, a wrong-length error ccnditicn is 
given and the record written is truncated to 
the maximum data length. The value in the 
RECSIZE register is set equal to that of the 
maximum data length. 

VARUNB records; This bit is set on under the 
following ccnditicns; 

• When a READ is issued and the LL (data 
length + 8) count of the reccrd read is 
greater than the maximum value specified by 
the BLKSIZE = parameter in the DTFDA iracrc. 

• When a WRITE ID or KEY iracro is issued and 
the LL count is greater than the value 
specified by the BLKSIZE paraireter in the 
DTFDA iracro. The record is written with the 
low-order bytes truncated. 



Figure 5. Error/status indicator (1 of 4) 
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|Byte|Bit [Error/Status Indicator | 
|. f ^ ^. 



Explanation 



Nondata Transfer Error 



• When a WRITE A.FTER macro is issued and the 
LL count is greater than the value specified 
fcy the BLKSIZE parameter in the DTID/i iracrc. 
The record is written with the low-order 
bytes truncated. 

SPi^m^B records; This bit is set on under the 
following ccnditicns: 

• When a READ macro is issued, the 
wrong-length record error indicatcr is set 
if the LL (data length + 8) count is larger 
than the value specified by the BLKSIZE 
parameter in the DTFDA macro. The number of 
data bytes read into the I/O area is equal 
to the value of BLKSIZE minus 8 bytes for 
the control vfords. 

• When a WRITE ID or KEY macro is issued, the 
wrcng-length record indicator is set if: 

1. The LL ccunt for the record to he written 
exceeds the value specified by the 
BLKSIZE parameter in the DTFDA macro. 

2. The data length of the record to be 
written exceeds the data length of the 
original record. 

In either of the above cases the record is 
written v«ith the low-order bytes truncated- 

The wrong-length record indicatcr is alsc 
set v^hen the first segment encountered for 
the original record is not type 00 cr 01. 
In this case the no-record- found (bit 4 in 
byte 1) indicator is also set en and no 
portion of the new record is written. 

The wrong-length record indicator is set 
for multisegment records if any segment cf 
the original record encountered after the 
first segment is not type 11 or 10. In this 
case the remainder of the new record is not 
written. 

• When a formatting WRITE AFTER macro is 
issued and the LL count for the record being 
written exceeds the value specified by the 
BLKSIZE parameter in the DTFDA macro. The 
record is ^written with the low-crder bytes 
truncated. 

The record in errcr was neither read nor written. 
If ERREXT is specified and this bit is off (0) , 
transfer tcok place and the problem programmer 
should check for other errors in the ERREYTE 
field. 



Figure 5. Error/status indicatcr (2 of ^) 
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|Byte|Bit I Error /Status Indicator 
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Explanation 



5 
6 
7 


1 



No- room- found 



Record out of extent area 

Data check in count area 
Track overrun 

End-of -cylinder 



Data check when reading 
key or data 

No-record- found 



Not used. 

The no-rcciTi-f cund indication is applicable only 
when the formatting WRITE AFTER iracrc is used fcr 
a file. If the bit is set on, ICCS has 
determined that there is not encugh rccir left tc 
write the record; consequently, the record is not 
written. 

Not used. 

Not used. 

The relative address given is outside the extent 
area of the file. No I/C activity has been 
started and no other error indicators are set. 

This is an unrecoverable error. 

The number of bytes on the track exceeds the 
theoretical capacity. (Will not occur when DOS 
macro instructions are used.) 

The end-cf -cylinder indicator bit is set on when 
SRCHM is specified for a READ or WRITE KEY and 
the end-cf-cylinder is reached before the record 
is found (bit 4 of byte 1 is alsc turned en). If 
IDLCC is also specified, certain conditions also 
turn this bit on, possibly in ccn junction with 
the no-record-f cund indicator (tit 4 in byte 1) - 
for further information see IDLCC. 

This is an unrecoverable error. 



The no-record-found indication is given when a 
SEARCH ID or KEY is issued and tbe reccrd is not 
found. 

If SBCHM=YES is specified, the end-of- cylinder 
indicator (tit 2 in byte 1) is also set en. 

For SPNUNB records: the nc-record-f cund 
indicator is alsc set on if, when the identified 
record is found, the control flag in the first 
segment enccuntered is not 00 or 01. In this 
case, the no-record- found indicator is set en in 
conjunction with the wrong- length-record 
indicator (bit 1 of byte 0). 



Figure 5. Error/status indicator (3 of 4) 
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|Byte|Bit | Error /Status Indicator | 
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Explanation 



End-of-file 



End-of-voluire 



The end-of-file indication is applicable only 
when the record to be read has a data length cf 
zero. The ID returned in IDLOC, if specified, is 
hexadecimal FFFFF . The bit is set cnly after all 
the data records have been processed. For 
example, in a file having n data records (record 
n+1 is the end-of-file record), the end-of-file 
indicator is set on when the i3ser reads the n+1 
record. This bit is also posted when an end of 
volume marker is detected. It is the user's 
responsibility tc determine if this bit means 
true EOF or end of volume on a ShE file. 

The end-of-volume indication is given in 
conjunction with the end-of-cylinder indicator 
(bit 2 of byte 1). This bit is set on if the 
next record ID (CCHHR where CC = n+1, HH = 0, and 
R = 1) that is returned on an end-of-cylinder is 
higher than the vclume address limit. The volume 
address limit is: cylinder 199, head 9, for a 
2311; cylinder 199, head 19, for a 2314 or 2319; 
cylinder 403, head 18 for a 3330? and subcell 19, 
strip 5, cylinder 4, head 19, for a 2321. These 
limits allow for the reserved alternate track 
area. 

If both end-of-cylinder and end- of- volume 
indicators are set on, the ID returned in IDLOC 
is FFFFF. 

Not used. 



Figure 5. Error/status indicator (4 of 4). 



CAPACITY RECORD (RZERO OR RO) 



PvRITE RZERO MACRO 



The Direct Access Method utilizes the first 
record on each track, RO, tc mcnitcr the 
amount of available space on the track. 
This record is unique in that it does not 
contain a key area even though keys may be 
specified for the data records of the file. 



The Direct Access Method reads the data 
portion of the RO record into the 
Filename. K location in the DTF table. The 
data portion has the following format: 

• 5-bytes - The identifier (CCHHR) of the 
last record written on the track. 

• 2-bytes - The number of unused bytes 
remaining on the track. 

• 1-byte - Flag for the Direct Access 
Method for the Operating System. 



The \ivRITE Filename, RZERO macro is used to 
erase a specified track. To dc this, the 
prograirmer must supply the track address in 
the track-reference field identified by the 
£EEKADR= parameter of the DTFDA iracro. The 
system locates the track, restores the 
number-of-bytes-remaining infcriration in 
the data field of the RO record to the 
maximum capacity of the track, and erases 
the remainder of the track after the RO 
record. 



FORMATTING MACRO 



The formatting WRITE Filename, AFTER macro 
is used to write a record after the last 
current record on a specified track. To 
perform this function, the problem 
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programmer must supply, ia the location 
specified by the SEEKADR= pararreter of the 
DTFDA macro, the address of the track on 
which the new record is to be written. 
This form of the WRITE macro cannot return 
the ID of the new record in the IDIOC 
field. 

When the formatting WRITE AFTER macro is 
used to write FIXUNB or UNDEF records on a 
file, the first eight bytes cf the user's 
I/O area must be reserved for LICCS, 
Therefore, the blocksize (ELKSIZE) must be 
equal to: 

8 + (KEYLEN, if specified) + DL 

The ID of the new record can be found in 
the first five bytes of the I/O area after 
the write operation is complete because 
LIOCS uses the eight bytes that are 
reserved for the record count field with 
the following format: 

• 5-byte track ID CCCHHR) 

• 1-byte key length (KL) 

• 2-byte data length (DL) 

When the formatting WRITE AFTER macro is 
used to write VARUNB or SPNUNB records on a 
file, the first eight bytes cf the user's 
I/O area contain the record control 
information. (Refer tc Figure 4 for the 
format of the 8-byte control field.) 
Therefore, the blocksize (ELKSIZE) must be 
equal to: 

Maximum DL + 8 

The ID of the new record can be found in 
the DTF table at location Filenaire.C after 
the write operation is complete. This area 
of the DTF table is generated specifically 
for VARUNB and SPNONB records and is used 
for ttie count field of the new reccrd. It 
has the following format: 

• 5-byte track ID (CCHHR) 

• 1-byte key length (KL) 

• 2-byte data length (DL) 

* For VARUNB and SPWUNB records, DL 
includes the 8-byte ccntrcl field. 



• DAMOD - for fixed-length unblocked and 
undefined records . 

• DAMODV - for variable-length unblocked 
and spanned unblocked records. 

The modules generated by these iracros 
include routines for the basic imperative 
macros READ and WRITE, which allow the user 
to read, write, update, add, or replace 
records in the file. 



DIRECT ACCESS MODULES 



Under the Direct Access Method an 
individual module, either DA^.CD cr DAMODV 
(depending on the record format specified), 
provides the logic to support all the 
imperative macros used tc process the file. 
In each case, the CNTRL, FREE, and WAITF 
iracrcs have individual entries into the 
required module; that is, the logic fcr 
executing these macro functions is tailored 
to the specific macro. On the other hand, 
the input/cutput macros (READ and WRITE, 
with their variations) have a ccirircn entry 
tc the respective module and a common logic 
in the module for perforning their 
functions. 

When the user issues a READ or WRITE 
macro instruction for a file, prcgrair 
control transfers to a logical IOCS 
routine, which builds the prcper channel 
program tc accomplish the command. The 
IOCS routine issues an execute channel 
program that causes the I/O request to 
start. IOCS then returns ccntrcl to the 
prcbleir prcgram. A WAITF macro instruction 
must be issued by the user before the next 
READ or WRITE for the file. The WAITF 
macro routines test the status cf the 
channel tc ensure that the cperaticn is 
complete. If the channel is busy, the 
routine waits for I/C coirpleticn. The 
WAITF macro routines supply indications of 
exceptional conditions tc the problem 
prcgram in the error/status indicator. At 
the completion of the I/C operation, 
control returns to the problem program. 



DAMQD; Input/Output Macros Chart AA 



DAM LOGIC MODULE MACROS 



Objective: To read or v.^ite a fixed-length 
unblocked or undefined record en a direct 
access file. 



IBM supplies two macros to generate 
independent logic iiodules needed to process 
records under the Direct Access Method. 
These macros are: 



Entry: From any Input /Output macro used 
with the Direct Access Method. 

Exit: To the problem prcgram via linkage 
register 14. 
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Method: Each of the six Input/Output 
macros has a unique expansion that results 
in a branch to a different entr^ pcint in 
the module. The entry point is at one of a 
series of exclusive OR instructions. The 
exclusive OR instructions cause a unique 
bit structure to be set up in a one-byte 
macro switch in the DTFDA tafcle. from this 
macro switch, the caodule determines which 
macro has been issued. 



issued to free the held track , and ccntrcl 
returns tc the problem prcgrair. 

If the macro issued is a WRITE RZERO, 
CCWs are mcdified, and a new RQ record is 
written. If track hold has been specified, 
the module issues an SVC 36 to free the 
track. Control then reti:rns tc the prcblen 
program. 



After the macro switch has been set, a 
test is made for undefined records or an 
end-of-file condition. If neither, the 
data length is set to the maximum length. 
If end of file, the data length is set to 
zero. If undefined and a read operation, 
the data length is set to the iraxiirum. For 
a WRITE AFTER, WRITE KEY, or WRITE ID 
instruction, this routine gets the data 
length from the user, and determines 
whether it is greater than the maximum 
length. If so, it is set tc maximum and 
the wrong- length record bit is set on in 
the DTF table. The CCw data areas are then 
updated, and a branch and link is made to 
the seek overlap routine tc position the 
device for subsequent processing. If track 
hold tias been specified, and entry to the 
seek overlap routine was net frcir the CNTRL 
or FREE macros, an SVC 35 is performed to 
hold the track. 

Next, this routine branches to the 
channel program builder to build the CCW 
chain for the macro that is being processed 
(refer to Figure 12). A test is then made 
for a WRITE AFTER or WRITE RZERC macro 
being processed. If neither of these, this 
routine issues the SVC tc perform a read 
or write operation. Control then returns 
to the problem program. 

If the macro is a formatting macro 
(WRITE AFTER or WRITE RZERO) , additional 
processing is necessary. If the macro is 
WRITE AFTER, RO is read and the capacity of 
the track is checked. if the space 
remaining on the track is not large enough 
for ttie record, the no-room-found bit is 
set on in the DTF and control returns to 
the problem* program. 

If the track capacity is large enough, 
the routine calculates the space remaining 
on the track after the record is written 
and stores it in the RO write area. The 
channel program builder then builds a CCW 
chain to WRITE AFTER, updates the previous 
record ID by 1 in the RO write area, and 
tests for end of file. If end cf file, the 
key and data length fields in the count 
field are set tc zero. If net end of file, 
the key and data lengths of the record are 
inserted in the count field. An SVC is 
then issued to write out the record. If 
track hold has been specified, an SVC 36 is 



DAMOD: WAITF Macro Charts AB-AE 



Cbjective: To ensure that the transfer of 
a record has been completed, tc supply the 
ID cf a record to the user, if IDLCC is 
specified, and to post error ccnditicns in 
the error/status indicator, if necessary. 

Entry; Frcm. the WAITF macro. 

Exit; To the problem prcgrait. 

M et hod; After saving the user's registers, 
this routine first issues an SVC 7 WAIT 
macro to ensure that the previous I/O 
operation is complete. The seccnd errcr 
byte frcm. the CCB is placed in the 
error/status indicator in the DTF table. 

If IDLOC is specified, IOCS supplies the 
user with the ID of a record after each 
READ or WRITE is completed (see Figure 25) . 
If lELOC is specified, a test is made for 
the type of macro issued. If a READ KEY cr 
WRITE KEY macro, the routine determines if 
the search multiple track option (SRCHM) 
has been specified. If so, the ID returned 
to the user is the ID of current record 
transferred. 

If a READ or WRITE KEY macro has been 
issued without a search multiple track 
option, cr a READ or WRITE ID macro has 
teen issued, the ID returned tc the user is 
the ID of the next record location, unless 
an end-of -cylinder condition is 
encountered. In this case, the ID returned 
is that of the first record of the next 
cylinder. If an end-of -"vclume ccnditicn is 
detected while updating the cylinder 
address, the end-of-volume bit is set in 
the errcr status indicator in the DTF 
table, and a dummy record is returned in 
IDLOC. 

After the module determines the contents 
of IDLOC, the error/status bytes are set in 
accordance with the conditions posted to 
the CCB by physical IOCS , and returned tc 
the user* Then, if record length is 
undefined and a READ macro has been issued, 
the record length is calculated and 
returned to the user* This routine then 
restores the user's registers, resets the 
macro switch in the DTF table, and returns 
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control to the problem program via linkage 
register 14. 



DAMCD: 



CNTRL Macro Chart M 



Objective: To perform nondata operations 
on a file. For a disk device, a seek 
operation is executed. For a 2321, either 
a seek operation or a restore operation is 
executed. 

Entry ; From the CNTRL macro. 

E xi t; To the problem program- 

Method; This routine saves the user's 
registers, and then branches and links to 
the seek-overlap routine, which performs 
the nondata operation (seek for a disk 
device, seek or restore for a 2321). iwhen 
the operation has been completed, the 
user's registers are restored, and control 
returns to the problem program via linkage 
register 14. 



DAMOD: FREE Macro Chart hF 



Objective: To release a protected (held) 
track on a direct access storage device. 

Entry; From a FREE macro expansion in the 
problem program. 

Exit; To the problem program. 

Method; After storing the user's 
registers, the FREE routine branches to the 
seek-overlap subroutine. The subroutine 
determines the seek address cf the held 
track from the seek CCW in the channel 
program build area. The module (M) number 
from the seek address calculates the 
symbolic unit address which is then 
inserted into the control -seek CCB. An SVC 
36 is issued to free the held track. After 
completing the subroutine, the FREE routine 
restores the user's registers and returns 
control to the problem program. 



DAMCDV^ Input/Ou tput Macrcs charts AK-AN 



Objective ; To read or write a 
variable-length unblocked cr a spanned 
unblocked record on a Direct Access file. 

E nt ry; From any Input/Output macro used 
with the Direct Access Method. 



Exit; To the problem prcgran via linkage 
register 14. 

Methcd; Each of the six Input/Ci^tput 
macrcs has a unique expansion that results 
in a branch to a different entry point ir 
the module. The entry point is tc one of a 
series of exclusive CR instr\:cticns, which 
cause a unique bit pattern to be set up in 
a 1-tyte macro switch in the DTFDA table. 
The module determines which macro has been 
issued by testing this siiitch. 

R EA D Macro - VARUNB Records; The procedure 
followed for both the READ ID and the READ 
KEY macros is exactly the same. The only 
difference between the two macros is in the 
CCW chain built by the channel prcgram 
builder subroutine, IJISEID. Refer tc 
Figure 12, Chart I for READ ID? Chart J for 
READ KEY. 

The byte count in the basic read data 
CCW (Figure 9) is set equal to the length 
specified by the user in the BLKSIZE= 
parameter for the DTFDA macrc. The IJISOVP 
subroutine is then entered to execute a 
controlled seek to the proper track, i^ext, 
the channel program builder subroutine is 
used to build the required channel prcgram. 
The channel program is executed to read the 
record into the I/O area and ccntrcl is 
returned tc the problem program. 

READ Macro - SPNUNB Records ; The procedure 
followed for both the READ ID and the READ 
KEY macrcs is exactly the same. The only 
difference between the two macros is in the 
CCW chain built by the channel prcgram 
builder subroutine, IJISEID. Refer tc 
Figure 12, Chart I for READ ID; Chart J for 
READ KEY. 

The byte count in the basic read data 
CCW (Figure 9) is set equal tc the length 
specified by the user in the BLKSIZE= 
parameter for the DTFDA macrc. The IJisOVP 
is then entered to execute a controlled 
seek to the proper track. Next, the 
channel prcgram builder subroutine is used 
to build the required channel prcgram, 
which is then executed to start the read 
operation. If the segment descriptor for 
the record read indicates that it is a null 
segment or that the segment contains the 
entire logical record (segment type 00), 
control is retxirned to the problem prcgram. 

If the record read is segment type Ul 
(the first segment of a multisegment record 
- at this point, segment types 10 or 11 
would be in error) which indicates that the 
rest of the logical record continues on 
another track, the CCW chain is modified 
and the seek address is updated tc the next 
track. One of the modifications made to 
the READ ID CCW chain is the substituting 
cf a TIC* +8 CCW for the RDKD CCW when 
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KEYLEN is specified. This is dene because 
the record key is associated only with the 
first segment of a roultisegirent record. 

The last eight bytes of the last portion 
of the record read into the I/C area are 
temporarily stored in the DTI table to 
allow the control words (blcck descriptor 
and segment descriptor) of the next segment 
to be read in along with the data (see 
Figure 6); these bytes are later restored 
after the control word information for the 
next segment is processed. The ircdified 
channel program is reexecuted to read the 
next segment into the I/O area and its 
length is added to the combined length of 
the previous segments. The coirfcined total 
length is then compared to the BLKSIZE 
specified by the user. Should the combined 
length exceed the BLKSIZE, a 
wrong- length-record (WLR) indicator is set. 
If the segment just read is type 11 neither 
the first nor the last segment of a 
multisegment record) the procedure 
described in this paragraph is repeated. 

When the last segment (type 10) is read, 
the combined length of all the record 
segments is posted to the segment 



descriptor word in the I/C area and ccntrcl 
is returned to the problem program. 

^RITE Macro - V?IRUNB Record s : The 
procedure folloi^red for both the WRITE ID 
and the WRITE KEY macros is exactly the 
same. The only difference between the twc 
macros is in the CCW chain built by the 
channel program builder subroutine, 
IJISELE. Refer to Figure 12, Chart K for 
ViRlTE ID and VERIFY, Chart L fcr WRITE ID 
and NO VERIFY; Chart M for WRITE KEY and 
VERIFY, and Chart N for WRITE KEY and i^O 
VERIFY. 

The logical record length (11) is 
obtained from the user's segment descriptor 
word in the I/O area. The length specified 
for the record plus four bytes for the 
block descriptor word is then tested tc see 
if it is greater than the maximum block 
length specified in the BIKSIZE= parameter 
cf the DTFEA macro. If it is not greater 
than the BLKSIZE valine, the byte count in 
the basic read data CCW (RDD CCW - Figure 
9) is set equal to the specified 11+4 
(that is, ID value. If, on the other 
hand, the LL value is greater than the 
BLKSIZE value, the record capacity 




I Segment Type 11 or 10 

iiihiil ^2__ 



Last 8 data bytes of segment are temporarily 
stored to make room in the I/O area for the 
control words of the next segment. 



Figure 6. Multisegment spanned record. 
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register(IJICPR) and the RED CCW b]/te count 
are set equal to the BLKSIZE value and the 
jf^rong- length-record CWLR) indicator is set. 
This causes truncation of the record when 
it is written. 

The IJISOVP subroutine is entered to 
execute a controlled seek to the proper- 
track. Next, the channel prcgrair builder 
subroutine is used to build the required 
channel prograir, which is then executed to 
write (and verify, if so specified) the 
record. Control is then returned to the 
problem program. If the track hold option 
has been specified, the track en which the 
record written resides is freed before 
control is returned. 

WRITE Macro - SPNUNB Records : The 
procedure followed for both the WRITE ID 
and the WRITE KEY macros is exactly the 
saroe. The only difference between the two 
macros is in the CCW chain built by the 
channel program, builder subroutine, 
IJISBLD. Refer to Figure 12, Chart K for 
WRITE ID and VERIFY, Chart L for WRITE ID 
and NO VERIFY; Chart M for WRITE KEY and 
VERIFY, and to Chart N for WRITE KEY and NO 
VERIFY. 

The IJISOVP subroutine is entered to 
execute a controlled seek tc the proper 
track. Next, the channel program, builder 
subroutine is used to build the first 
portion of the WRITE macro channel program. 
It is at this point that spanned record 
handling differs markedly frcm the handling 
of records of other formats. 

The first portion of the WRITE macro 
channel program (refer to Bigure 12, Charts 
K or L for WRITE ID; Charts M or N for 
WRITE KEY) is actually a CCW chain to read 
the eight bytes of control information 
contained in the existing DASD record. 
This read operation is necessary because, 
before a spanned record can be written, the 
arrangement cf the record being replaced 
must be determined. That is, it must be 
known if the existing record is contained 
in a single DASD segment (type 00) or in 
multiple DASD segments and, if in multiple 
segments, the lengths of the individual 
segments. Thus, for each segment cf a 
multisegment spanned record, it is 
necessary to execute a read and a write 
operation. 

If the segment control flag in the 
segment descriptor of the existing record 
is type 00, the record to be written is 
handled in a manner similar to a normal 
variable- length record. That is, the 
channel program, builder subroutine is 
entered to build the write CCW chain, the 
channel program is executed to write the 
new record , and control is returned to the 
problem program. 



If the segment control flag in the DASD 
segment read is type 01 (the first segment 
cf a multisegment record) , the channel 
program builder subroutine is entered to 
build the write CCW chain. The CCW chain 
is then modified according to the various 
options specified for the type cf macrc 
being used. Next, the length of the 
current DASD segment is determined frcm the 
control wcrds obtained by the read 
operation and compared tc the 
user-specified length of the record to be 
written (LL) . If the record length is less 
than the length of the current segment, the 
byte count in the write data (WRD) CCW is 
changed tc the length of the record (if 
VERIFY is specified, the byte count in the 
verify read data CCW is likewise changed) . 
Otherwise, the CCW byte count remains equal 
tc the length of the segment that can be 
accommcdated on the track; that is, the 
length of the current segment. The channel 
program is then executed to write the 
segment. 

After the first segment of the record is 
written, the seek address is updated to the 
next track and a similar procedure is 
followed fcr the next segment(s) of the 
record. During the procedure for writxng 
segments after the first segment, the last 
eight data bytes of the preceding segment 
in the I/C are temporarily stored in the 
ETF table to allow the control words of the 
subsequent segment to be read intc the I/O 
area (see Figure 6) . The segment length 
obtained from the control words is used tc 
set the byte count in the WRD CCW for all 
type 11 segments. Each time a segment is 
written, its length is added to the 
combined lengths of the previously written 
segments, and the total is subtracted frcm 
the user-specified record length. The 
result of this calculation is the number cf 
bytes in the record that remain to be 
written. When the last segment (type 10) 
is written, this remainder is used to 
determine if the new record is larger cr 
smaller than the original record. If it is 
larger, a WLR indicator is set and the 
truncated remainder of the record is 
written; if smaller, the byte count in the 
WRD CCW is reduced to the value necessary 
to write the remainder of the record. 

Because each segment cf a multisegment 
spanned record is handled as an individual 
physical DASD record, if the VERIFY option 
is specified, each segment is verified 
after it is written and before the next 
segment is read. Therefore, if VERIFY is 
used, three I/O operations are required fcr 
each segirent: read, write, and read. 

WRITE AFTER Macro - VARUKB Records : T he 
byte count of the basic read data CCW 
(Figure 9) is set equal tc the blcck length 
(LL) of the record to be written, and the 
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IJISOVP subroutine is entered to execute a 
controlled seek to the track specified by 
the user. The channel program builder 
subroutine, IJISBLD, is then used to build 
the first portion (read RZERC) of the 
channel prograrr for the WRITE AFTER macro 
(refer to Figure 12, Chart 0). 

Next, the ID (CCHHR) of the RO record on 
the specified track is set up ih the DTF 
table, at location Filename. F, and the 
channel prograir is executed to read the 
8-byte data field of RO intc the DTF table 
at location Filename. K. The data field of 
the RO record contains the fcllcwing 
information: 

Bytes 0-4: The CCHHR of the last record 
currently written en the 
track . 

Bytes 5-6: The number of unused bytes 
currently regaining on the 
track. 

Byte 7: Not used by DCS/VS. 

Using the information contained in bytes 
5 and 6 of the RO data field, a test is 
made to determine if sufficient room exists 
on the track tc write the new record. If 
enough room is not available, the 
no-room-found indicator is set in the DTF 
table and control is returned to the 
problem prograir. 

If there is enough room en the track for 
the new record, the D?^SD space that remains 
after the new record is written is 
calculated to update the RO record. Next, 
the channel program builder subroutine is 
used to build the rest of the WRITE AFTER 
channel program, which includes the CCWs 
needed to write the updated RO record and 
the new record (and verify bcth, if so 
specified) . 

The channel program is then executed and 
control is returned to the problem program. 
If the track hold option has been 
specified, the track is freed before 
control is returned. 

WRITE AFTER Macro - SPNUNB Records : The 
procedure followed for the WRITE AFTER 
macro for spanned records is the same as 
that followed for variable-length records 
up to the point of testing tc determine if 
there is sufficient room on the specified 
track for the new record. Fcr spanned 
records, the test is first made to 
determine if a minimum length (KEYLEN + 9) 
segment can be written in the space 
remaining on the track. If not, the 
no- room- found indicator is set in the DTF 
table and control is returned tc the 
problem program. If the minimum length 
segment can fit, a second test determines 



if the entire record can be written on the 
track. If it can, the record is written in 
the manner described for variable- length ^ 
records. ^ 

If the entire record vill net fit in the 
space remaining on the specified track, the 
length of the portion that can fit is 
calculated and subtracted from the 
user-specified length of the record. The 
seek address is then updated tc the next 
track. 

The RO record for the next track is read 
and checked for full availability; that is, 
if the track is not empty, a no- room- found 
indicator is set and control is returned tc 
the problem program. The data field of the 
RO record is tested to deteritine if all the 
remaining bytes of the record (plus eight 
bytes for control words) can be contained 
en the new track. If not, the length of 
the- largest single record that fits en a 
track is subtracted from the number of 
record bytes remaining tc be written, and 
the seek address is once again updated. 
This process is repeated until the pcint is 
reached where the entire logical record can 
be accommodated. If the track held cpticn 
has been specified, a hold is placed on all 
the tracks checked. 

The channel program builder subroutine 
is then used to build the second portion of 
the WRITE AFTER channel program, and the 
first segment of the recerd is written on 
the specified track. If KEYIEN is 
specified, the key is written with the 
first segment. The rest of the record is 
then written in as many segments as 
necessary, along with the RO records fer 
each of the tracks involved. If the track 
hold option has been specified, the tracks 
are individually freed after the respective 
segment is written. 

If, during the checking of the series cf 
tracks needed to write the record, the 
updated seek address indicates a change te 
a new volume, the rO records of all the 
tracks between the user-specified track and 
the first track on the new volume are 
rewritten with their respective data fields 
indicating no space available. Checking is 
reinitiated on the new volume and, when it 
is established that sufficient reem is 
available en the new volume^ the first 
segment (and, if specified,' the record key) 
is written on the first track. The rest of 
the record is written on subsequent tracks 
in the ncrmal manner. 

WRITE RZERC Macro - VARUNB or SPNUNB 
Records; The IJISCVF and IJISBID 
subroutines are entered in sequence to 
execute a controlled seek to the specified 
track and build the channel pregram. The 
ID for the RO record (CCHHO) on the 
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specified track is set up in locations 
Filename. F and Filenaire.K in the DTF table. 
The number of bytes remaining on the track 
is set equal to the full track capacity and 
inserted into bytes 5 and 6 cf the RO data 
field (Filename.JK) . The channel program is 
then executed to erase the track and write 
the updated RO record^ after which control 
is returned to the problem prograrr. 



DAMCDV: CNTRL Macro Chart M 



^^i^^tive; To perform nondata operations 
on a file. lor a disk device, a seek 
operation is executed. For a 2321, either 
a seek operation or a restore operation is 
executed. 



Entry; Frorr the CNTRL mac re. 



Exit; To the problem prograrr. 



Method; 



This routine saves the user's 



registers, and then branches and links to 
the seek-overlap routine, which perforirs 
the nondata operation (seek for a disk 
device; seek or restore for a 2321). When 
the operation has been completed, the 
user's registers are restored, and control 
returns to the problem prograrr via linkage 
register 1^. 



DAMCDV; FREE Macro Chart M 



Objective; To release a protected (held) 
track on a direct access storage device. 



Entry ; From a FREE macro expansion in the 
problem program. 



Exit; To the probleir prograrr- 

Method; A^fter storing the user's 
registers, the FREE routine branches to the 
seek-overlap subroutine. The subroutine 
determines the seek address of the held 
track from the seek CCW in the channel 
program build area. The module (M) number 
from the seek address calculates the 
symbolic unit address which is then 
inserted intc the control-seek CCE. An SUC 
36 is issued to free the held track. After 
completing the subroutine, the FREE routine 
restores the user's registers and returns 
control to the problem program. 



DAMOEV; WAITF Macro Charts BA-BC 



Cbjective; To ensure that the transfer cf 
a record has been corrpleted, tc supply the 
ID of a record to the user, if IDLCC is 
specified, and to post error conditions in 
the errcr/status indicator, if necessary. 

E ntry ; From the WAITF macro. 

Exit; To the probleir prcgrarr. 

Method; After saving the user's registers, 
this routine first issues an SVC 7 WAIT 
iracro to ensure that the previous I/O 
operation is complete. The second errcr 
byte from the CCB is placed in the 
error/status indicator in the DTF table. 

If IDLOC is specified, IOCS supplies the 
user with the ID of a record after each 
READ or WRITE is completed (see Figure 1). 
If IDLOC is specified, a test is irade for 
the type cf macro issued. If a READ KEY cr 
WRITE KEY iracro, the routine determines if 
the search multiple track opticn (SRCHM) 
has been specified. If so, the ID returned 
tc the user is the ID of the current record 
transferred. 

If a READ or WRITE KEY macro has been 
issued without a search multiple track 
cpticn, cr a READ or WRITE ID macro has 
been issued, the ID returned tc the user is 
the ID cf the next record location, unless 
an end-of -cylinder condition is 
encountered. In this case, the ID returned 
is that of the first record cf the next 
cylinder. If an end-of- volume condition is 
detected while updating the cylinder 
address, the end-of -volum.e bit is set in 
the error status indicator in the DTF 
table, and a dummy record is returned in 
IDLOC. 

After the module determines the contents 
cf IDLOC, the error/status bytes are set in 
accordance with the conditions pcsted to 
the CCE by physical IOCS, and returned to 
the user. Then, if record length is 
undefined and a READ macro has been issued, 
the record length is calculated and 
returned to the user. This routine then 
restores the user's registers, resets the 
macrc switch in the DTF table, and returns 
control to the problem program via linkage 
register 14. 



DAMOD and DA MODV; Channel Program Buil der 
Subroutine Chart AJ 



Objective; To construct a channel program 
in acccrdance with the processing macro 
issued in the problem program. 
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Note; Figure 12 provides a sumiriar^ of the 
channel prograirs built to process DASD 
records by the Direct Access Method, 

Entrj^: Froir a direct access logic module 
(either DAMCC or DAMODV) via a branch and 
link instruction. 

Exit: To the calling routine. 

Method; To perform direct access 
processing, irany different channel 
programs, varying in length from 5 to 17 
CCWs, are needed in DOS/VS (refer to Figure 
10) . The many CC^-^s required can be built 
from 11 basic CCWs by modifying command 
codes and/or flag bytes. Of these 11 CCWs, 
5 are required for initial file loading. 
The other 6 are needed for normal file 
maintenance processing. TIC CCWs are built 
directly from storage addresses. 

For each channel program that is built, 
a string of descriptor bytes are generated 
in the DTF table at program assembly time. 
The content of the string depends on the 
imperative macro issued by the problem 
program to access the file. There is one 
descriptor byte for each CCW in the channel 
program. This descriptor byte is divided 
into three subfields, which perform the 
functions illustrated by Figure 7. 



Because the f 
Operating System 
seek command, th 
program assembly 
the CCW build ar 
As each channel 
channel prcgrami 
called to build 
chain. 



irst CCW in any Disk 

channel program must be a 
e seek CCW is generated at 

time as the first CCW in 
ea, and is never modified, 
program is requested, the 
builder subroutine is 
the remainder of the CCW 



Before entering this subroutine, the 
logic module uses the macro switch to 
determine the address of the string of 
descriptor bytes for the macro issued 
(refer to Figure 8). After pointers are 
set to the current descriptor byte and the 
CCW build area, the subroutine isolates the 
relative pointer to the basic CCW needed 
(see Figure 9) and tests to determine if 
the CCW is to be a Transfer In Charnel 
(TIC). Figure 9 shows the Basic CCWs used 
to build channel programs . 



If fields A and C of the descriptor byte 
are zero, the CCW is to be a TIC. Field B 
determines the address of the CCW to which 
control is to be transferred. This address 
and the Tie command code are stored in the 
TIC CCW (see Figure 10). If the end of the 
descriptor string has not been reached, the 
subroutine returns to build the next CCW; 
otherwise, control returns tc the calling 
routine. 



Bit |0|1234|567 | 

^„| 1 ^ 

Field I A| B I C I 

I X X . J 

Field A: References the ccmmand code. 

Field B: A relative pointer tc select) 
one of the 11 basic CCWs 
(see Figure 9) . 



Field Ct 



I - 



Further defines the command 
code, and modifies the flag 
byte as required. 



If the CCW is not a TIC, Field B 
determines which of the basic CCWs is noved 
to the build area. Fields A and C of the 
descriptor byte are tested to see which 
fields in the CCW, if any, are to be 
modified (see Figure 10). A test is then 
made fcr the end of the descriptor string. 
If the end has not been reached, the 
routine returns to build the next ccW in 
the chain? otherwise, control returns to 
the calling routine. 



J 



Figure 7. DAM descriptor byte. 
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Macro 


Option 


FIXUNB 


UNDEF 


VARUNB 


SPNUNB 


READ ID 


No options 
KEYLEN 
IDLOC 
KEYLEN, IDLOC 


DC X'871 81 4' 
DCX'87182C' 
DCX'8718979E' 
DC X'871 8AF9E' 


DCX'C718BF14' 
DC X'C718BF2C' 
DCX'C7I9BF129C' 
DC X'C718BF2A9C' 


DCX'871816' 
DCX'87182A16' 
DCX'8718129E' 
DCX'87182A129E' 


DCX'871816' 
DCX'87182A16' 
DC X'8718129E' 
DCX'87182A129E' 


READ KEY 


No options 
SRCHM 
IDLOC 
SRCHMJDLOC 


DC X'8F1814' 
DCX'A718881814' 
DCX'8F18979E' 
DCX'A7I89A881014' 


DCX'BF8F1014' 
DCX'A718B8881014' 
DCX'BF8F10129C' 
DCX'A718B8881014' 


DCX'A7188F1816' 
DCX'A718881816' 
DCX'A7188F18129E' 
DCX'A7189A881016' 


DCX'A7I80A1816' 
DCX'A7188A1816' 
DCX'A7180A18129E' 
DCX'A7189A8A1016' 


WRITE ID 
(No VERIFY)* 

WRITE ID 
(VERIFY) 


No options 
KEYLEN 
IDLOC 
KEYLEN, IDLOC 

No options 
KEYLEN 
IDLOC 
KEYLEN, IDLOC 


DC X'871 895' 
DC X'871 8AD' 
DC X'8718919E' 
DC X'871 8A99E' 

DC X'871 891871815' 
DC X'8718A987182D' 
DC X'871 89187181 19E' 
DC X'871 8A98718299E' 


DC X '871895' 
DC X'871 SAD ' 
DCX'8718939C' 
DC X'8718AB9C' 

DC X'8718938 71815' 
DCX'8718AB87182D' 
DC X'8718938718139C' 
DCX'8718AB87182B9C' 


DC X'871 895' 
DCX'8718AB95' 
DC X'8718919E' 
DC X'8718AB919E' 

DC X'871 891871815' 
DCX'8718AB9187182B15' 
DCX'8718918718119E' 
DCX'8718AB9187182B119E' 


DCX'87181^71895' 
DCX'8718148718AB95' 
DCX'8718148718919E' 
DCX'8718148718AB919E' 

DC X'8718148 71 891871815' 
DC X'8718148718AB9187182B15' 
DC X'871814871 89187181 19E' 
DC X'87I8148718AB9187182B119E' 


WRITE KEY 
(No VERIFY) 

WRITE KEY 
(VERIFY) 


No options 
SRCHM 
IDLOC 
SRCHM, IDLOC 

No options 
SRCHM 
IDLOC 
SRCHM, IDLOC 


DCX'8F1895' 

DC X'A71 8881 895' 

DC X'8F18919E' 

DCX'A7189A881095' 

DCX'8F18918F1815' 
DCX'A7188818918F1815' 
DCX'8F18918F18119E' 
DCX'A7ia9A8810918F18l5' 


DC X'8F1895' 
DCX'A718881895' 
DC X'8F18939C' 
DCX'A718B8881095' 

DC X'8F18938F18I5' 
DCX'A7188818938F1815' 
DCX'8F18938F18139C' 
DCX'A718B88810938F1815' 


DCX'A7188F1895' 
DCX'A718881895' 
DCX'A7188F18919E' 
DCX'A7189A881095' 

DCX'A7188F18910A1815' 
DCX'A7188818910A1815' 
DCX'A7188F18910A18n9E' 
DC X'A7189A8810910A1815' 


DCX'A7180A18140A1895' 
DC X'A7189A8A10148A1895' 
DCX'A7180A18140A18919E' 
DC X'A7189A8A1014BA1895' 

DC X'A7180A18140A18910A1815' 
DC X'A7189A8A10148A18910A1815' 
DC X'A7180A18140A18910A18119E' 
DC X'A7189A8A10148A18910A1815' 


Macros WRITE AFTER and WRITE RZERO use fhe same strings. If AFTER is not specified in the DTFDA macro, the strings are not generated. 

If AFTER is specified, these strings are generated for all record formats: 

DC X'C7I8D752C718B5' WRITE RZERO 
DC X'C71834' READ RZERO 


And one of the following strings: 
No VERIFY 

VERIFY 


DC X'C718B18718CD' 

DC X"C718B18718C9C7183I87184D' 


No options DC X'C718B18718CB95' 
KEYLEN DC X'C718B18718CBAB95' 

No options DC X'C718B18718CB91C7183187184B15' 
KEYLEN DC X'C718B18718CBAB91C7183187184B2B15' 



One string for each macro to be used is generated, dependent upon the options specified in the DTFDA macro. 
* Indicates the operation ised in the example given of the Channel Program Builder, 

Figure 8. DAM channel program builder strings. 
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Field B 


Basic CCW 


Function 


0000 


X»3r,&SEEKADR+3,X'40',5 
X'31%&F{lename.S+3,X'40',5 


Search identifier equal using the address specified in the user's 
trock - reference field . 

If relative addressing is used. 


000! 


X'29',KEYARG,X'40VKey length 


Search key equal for key specified by user in KEYARG field . 


0010 


X'06',&IOAREA+16,X'40',Data length 
X'06',&IOAREA,X'40%BLKSIZE 


Read data into I/O orea (FIXUNB and UNDEF records) . 
Read data into I/O area (VARUNBand SPNUNB records). 


OOH 


X'12',&IDLOC,X'40',5 
X'12\&Filename.I,X'40',5 


Read count (CCHHR) into IDLOC . 

Read count (CCKHR) into work area in DTF table if relative 
addressing is used . 


0100 


X'39%&SEEKADR+3,X'40%4 
X'39%&Filename.S,X'40%4 


Search home address equal using the address specified in the 
user's track - reference field. 

If relative addressing is used. 


0101 


X'0E',&IOAREA+8,X'40',Key and Data length 
X'OE,aKEYARG,X'CO',Key length 


Read key and data into I/O orea (FIXUNB and UNDEF records). 

Read key into user's KEYARG field (VARUNB and SPNUNB 
records) . 


0110 


X'06',&Filename.K,X'40';8 


Read RO data into work area in DTF table. 


0111 


X'12\&Fnename.K,X'40S8 


Read RO count into work area in DTF table . 


1000 


X'3r,&Filename.F,X'40',5 


Search identifier equal using the address specified in the 5 -byte 
work area in the DTF table . 


1001 


X'1E',&IOAREA,X'40', Count, Key, and Data 
length 

X'lE',&Fnename.C,X'C0',8 


Read count, key, and data into I/O area (FIXUNB and UNDEF 
records) . 

Read count (CCHHRKlDlDl) into work area in DTF table 
(SPNUNB records). 


1010 


; X»l 1 ', &Filename. B+32, X'40», Length of the 
largest single record that fits on a track. 


Control erase of track , 



Figure 9. Basic CCWs far BAM channel program btiilder. 
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Field A 


Field B 


Field C 


Meaning 




N 


N 


N 


N 


1 


1 


1 


Basic CCW not modified. 




. N 


N 


N 


N 











Modify command code to multiple-track 
operation , 




N 


N 


N 


N 








1 


Modify command code in write operation. 




N 


N 


N 


N 





1 





Modify command code to multl -tracks 
set SLI flag on . 




N 


N 


N 


N 





1 


1 


Modify command code to //-Ite, set SLI 
flag on. 




N 


N 


N 


N 


1 








Modify command code to multi-trjck, 
set CC flag off. 




N 


N 


N 


N 


1 





1 


Modify command code to write, set CC 
flag off. 




N 


N 


N 


N 


1 


1 





Modify command code to multi -track, 
set CC flag off, SLI flag on. 





N 


N 


N 


N 








1 


Set SKIP flag on in CCW. 





N 


N 


N 


N 





] 





Set SLI flag on In CCW. 





N 


N 


N 


N 





1 


1 


Set SLI and SKIP flag on in CCW. 





N 


N 


N 


N 


1 








SetCC flag off in CCW. 





N 


N 


N 


N 


1 





1 


Set CC flag off, SKIP flag on in CCW. 





N 


N 


N 


N 


1 


1 





Set CC flag off, SLI flag on in CCW. 





N 


N 


N 


N 


1 


1 


1 


Set CC flag off, SLI and SKIP flag on 
in CCW. 


























TIC to *- 32 














1 











TIC to *-24 











1 














TIC to '- 16 











1 


1 











TIC to -^-8 








1 

















TIC to *-0 








1 





] 











TIC to M 8 








1 


1 














TIC to * H 16 








1 


1 


1 











TIC to -^ 24 





1 




















TIC to ^^32 



Bit 



1 



NOTE: NNNN^bits 1 - 4 of the descriptor byte and is one of the 11 bit combinations shown in 
Figure 7 under the column heading Field B. This field contains the relative 
pointer to the basic CCW (Figure 7) 

CC - Command Chaining 

SLI - Suppress Length Indicatoi 

SKIP - Suppress Transfer of Information to storage. 



Figure 10. DhM channel program descriptor bytes. 
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Descriptor Byte 


CCW Built 


Meaning 




X'0r,&SEEKADR+l,X'00',6 


Seek to the address specified in 
the user's track reference field . 


x'sr 


X'31V&SEEKADR+3,X'40%5 


Search identifier equal the address 
specified in the user's track 
reference field. 


X*18' 


X'08', Pointer to *-8 


TICto*-8. 


X'93' 


X'05',&IOAREA+16,X'60', 
Data length 


Write the data portion of the 
record from the lO AREA . 


X'9C* 


XM2',&IDLOC,X*00',5 


Read the count field into IDLOC. 



Figure 11. Example of D?^M channel program for a WKITE IE macro. 



The following discussion describes how 
the DAM channel prograir builder constructs 
a channel program for the given example. 

Example: Write an undefined record 
referenced by ID in the locaticn specified 
by the user's track-reference fields and 
return the corresponding track record 
identifier (CCHHR) in IDLOC (option) . 

Figure 11 illustrates the CCWs needed 
for the complete channel program to 
accomplish this operation. In all, five 
CCWs are required. The first CCW (seek) is 
generated at assembly time and the 
remaining four CCWs are built using the 
string of descriptor bytes included as part 
of the DTF table for the WRITE ID iracro. 
Refer to Figure 8. The descriptor string 
for the WRITE ID macro is : 

X«8718939C« 

Except for the Seek CCW that is generated 
for any channel program at assembly time 
and never m.odified, each pair cf 
hexadecimal characters (descriptor byte) 
corresponds to one CCW. Thus, X'87' 
corresponds to the CCW to Search Identifier 
Equal as illustrated in part 1 cf the 
explanation that follows. 

The CCW chain is generated from the 
descriptor string in this crder: 

1. X'87« (10000111): Figure 9 illustrates 
that the CCW for a descriptor byte with 
a B-field = 0000 is a Search Identifier 
Equal CCW. Figure 10 further 
illustrates that a descriptor byte with 
an A-field = 1 and a C-field = 111 
performs no modification of the basic 



CCW. Therefore, the second CCW (the 
first being the Seek CCW) in the 
channel program CCW chain is an 
unmodified Search Identifier Equal CCW, 
X'31' ,§SeEKADR+3,X'40',5 (refer to 
Figure 11) . 



X'18« (00011000): 
and C fields are a 
characteristic of 
used to generate a 
descriptor byte in 
a TIC CCW for the 
channel program, 
that a descriptor 
with a B~field = 
TIC tc * « 8 (refe 
generated CCW) . 



Because bcth the A 
11 zeros (a 
a descriptcr byte 
TIC CCW), the second 
the string generates 
third CCW in the 
Figure 10 illustrates 
byte of this kind 
Oil supplies the CCW, 
r to Figure 11 fcr 



X'93' (10010011): The B-field = 0010 
in this descriptor byte indicates that 
the next CCW in the channel program 
chain will be the third basic CCW 
(refer to Figure 9). Because the 
A-field = 1 and the C-field = Oil, 
Figure 10 shows that the command code 
is modified to a WRITE and that the SLI 
(Suppress Length Indicator) bit is 
turned on. 

X'9C' (10011100): The B-field = 0011 
in the last descriptor byte indicates 
that the last CCW in the chain will be 
the f curth basic CCW in Figure 9 , Read 
Count into IDLOC. A descriptor byte 
with an A-field = 1 and a C-field = 100 
indicates that the com.roand code is 
modified for a multitrack cperaticn and 
that the command chaining bit is turned 
off to signify the end of the channel 
program (Figure 10). 
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H 

a> 
o 
rt 

O 

o 

W 
03 

H- 
H 
(D 

02 



»T1 

(D 



O 
PJ 
3 



H 

o 

H 
03 



O 



00 TEST BYTE 



READ Filename, ID 



:;r)cr,CKiPTOR :trin-. 

POINTru 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 

2. AIL CC. C.i WNS ARE PRECEDED BY THE 
FOLLOWING SEEK CCW 

.'07',SEEKADR+1,X'00' 

IF BLKSIZE Kl ^D^ THEN A - 
IF BLK5IZE > Kl*Dl THEN A - 8 




X'31' 


,FilenameF,X'40',5 






isrchide 


X'08' 


,*-8 






[tic 


X'12' 


,FilenameK,X'40',8 






'RDCNT 


X'OE' 


,IOAREA1+A,X'60', 


Kl 


+ Dl 


'RDKD 


X'92' 


,IDLOC,X'20',5 






IRDID 



X'31' 


,SEEKADRf3,X'40',5 


i 
ISRCHIDE 


X'08' 


,*-8 


|tic 


X'OE' 


,IOAREA1+a, X'40',Kl 


t-DL'RDKD 


X'92' 


,iDLOC,X'20',5 


i'rdid 



m 

\C7 


X'3r,FilenameF,X'40',5 


isRCHIDE 


Us 


X'08',*- 8 


Itic 


BF 


— ► X'12',FilenameK,X'40',8 


iRDCNT 


[12 


X'06',IOAREA1+Kl,X'60',Dl 


'rdd 


;9c 


X'92',|DLOC,X"20',5 


JRDID 



X'sr 


,FiienameF,X'40',5 






ISRCHIDE 


X'08' 


,*-8 






(TIC 


X'12' 


,Fi!enameK,X'40',8 






►RDCNT 


X'OE' 


,IOAREAHa,X'20', 


Kl 


+Dl 


|RDKD 



X'31',SEEKADR+3,X'40',5 'SRCHIDE 

x'08',*-8 Itic 

X'OE' , lOAREAl +A,X'00', Kl +Dl I RDKD 




X'3T,SEEKADR+3,X'40',5 



X'06',IOAREA1+Kl,X'40',D^^ 
X'92',IDLOC,X'20',5 



ISRCHIDE 
ITIC 

'rdd 

iRDID 



iC7 


X'3r,FilenameF,X'40',5 


[SRCHIDE 


he 

Mm 


X'08',*-8 


;tic 


:bf 


X'12',FilenameK,X'40',8 


IRDCNT 


14 


X'06',IOAREA1+Kl,X'20',Dl 


,'rdd 



X'31',SEEKADR+3,X'40',5 
X'08',*-8 
X'06',IOAREA1+K, ,X'0O',D, 



iSRCHIDE 

|tic 

I RDD 



S: 


»Ti 


K) 


H- 




vQ 




c: 


D 


h 


(J 


CD 


Ui 




N 


H 


<; 


ro 


03 


• 


tH 




H 


o 


o 


p> 


o 


s 


w 






o 


<l 


cr 


u 


0) 


H 


p 


{2 


p 


3 


(D 


n> 


H 


w 


ro 




H 


o 


o 




ua 


s 


n 




p 


JU 


5 


3 


0) 


Cl. 






«i>^ 


H 


tsj 


rn 




> 





s 


hh 



01 TEST BYTE 



READ Filename, KEY 



GENERATED 
CCW CHAIN 



1 

A 


i 


X'39' 


SEEKADDR+3,X'40' 


4 


[SRCHHAE 


18 


X'08' 


*-8 




'TIC 


B8 


X-92' 


FflenameK,X"40",8 




iRDCNT 


88 


X'A9 


,KEYARG,X'40',Kl 




JSRCHKE 


10 


X'08' 


,*-16 




iTIC 


1 
i 


i 


X'06' 


,IOAREA1+K|_,X'20' 


,Dl 


|rdo 



: DESCRIPTOR STRING 
' POINTER 





X-39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X-OB- 


,*-8 


TIC 


X'92' 


,|DLOC,X'60',5 


RDID 


X'A9 


,KEYARG,X'40',Kl 


SRCHKE 


X'08' 


*-16 


TIC 


X'06' 


IOAREA|tKl,X'00',Dl 


ROD 



m 

A7 


X'39',SEEKADR+3,X'40',4 


SRCHHAE 


18 


X"08',*-8 


TIC 


B8 


X'92',FiienameK,X'40',8 


RDCNT 


88; 


X'A9',KEYARG.X'40',Kl 


SRCHKE 


10 


X'08',*-16 


TIC 


14: 


X'06',IOAREA1+Kl,X'20',Dl 


RDD 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 



2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 



X'07', SEEKADR+1 , X'OO', 6 




X'12' 


,FnenameK,X'40',8 




RDCNT 


X'29' 


,KEYARG,X'40',Kl 




SRCHKE 


X'08' 


,*-16 




TIC 


X'06' 


,!OAREA1+K^,X'60' 


,D, 


RDD 


X'92' 


,iDLOC,X'20',5 




RDID 



X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'A9 


,KEYARG,X"40',Ki_ 


SRCHKE 


X'08' 


*-8 


TIC 


X'06' 


IOAREA1+Kl,X"00',Dl 


RDD 



X'29' 


,KEyARG,X'40',KL 


, SRCHKE 


X'08' 


,*-8 


t-TIC 


X'06' 


,IOAREA1+Kl,X'40',Dl 


JRDD 


X'92' 


,IDLOC,X'20',5 


'RDID 

1 



X'12',FilenameK,X'40',8 
X-29',KEYARG,X'40',K, 
X'08',*-16 
X'06',IOAREAl+K|_,X'20',Dj_ 



RDCNT 
SRCHKE 
TIC 
RDD 



X'29' 


,KEYARG,X"40',K|_ 


SRCHKE 


X'OB" 


,*-8 


TIC 


X"06' 


,IOAREA1+Kl,X'00',Dl 


RDD 



O 

> 
O 
O 
CD 
(f) 
CD 

*r\ 
H- 
H 
(D 

Cfi 



C 



o 

rr 

p 



o 



o 



4:r 



WRITE Filename, ID 



DESCRIPTOR SIRING 
POINTfR 




1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 



2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 



X'07%SEEKADR+1 ,X'00',6 



3. IFBLKSIZE= Kl+DlTHEN A =0 
IF BLKSIZE > Kl+ Dl THEN A = 8 




GENERATED 
CCW CHAIN 



^ 2B 



X'31' 


,SEEKADR+3,X'40',5 JSRCHIDE 


X'08' 


,*-8 ITIC 


X'OD 


JOAREAI +A,X'70',K|_, +D, 'WRKD 


X'31' 


,SEEKADR+3,X'40',5 |sRCHIDE 


X'08' 


,*-8 |TIC 


X'OE' 


,IOAREAl +a,X'70',Kl, +Dl l^DKD 


X'92' 


,IDLOC,X'20',5 [RDID 



# 



9e1 

Mi 



X'3T 


,SEEKADR+3,X'40',5 


JSRCHIDE 


X'08' 


,*-8 


,TIC 


X'OD 


JOAREAl +a,X"50',Kl+Dl 


iWRKD 


X'3T 


,SEEKADR+3,X*40',5 


ISRCHIDE 


X'08' 


,*-8 


|tic 


X'OE' 


,IOAREA1+a,X'50',Kl+Dl 


|rdkd 


X'92' 


,IDLOC,X'20',5 


iRDID 



X'31' 


,SEEKADR+3,X'40',5 ISRCHIDE 


X'08' 


,*-8 ItIC 


X'OD 


,10AREA1 +a,X'70',Kl+Dl|WRKD 


X'31' 


,SEEKADR+3,X'40',5 'SRCHIDE 


X'CB' 


,*-8 ITIC 


X'OE' 


,IOAREAl +a,X'30',Kl+Dl 'RDKD 




X'3I' 


SEEKADR+3,X'40',5 


{srchide 


X'08' 


,*-8 


iTlC 


X'05' 


,IOAREA1+Kl,X'70',Dl 


]wrd 


X'3r 


,SEEKADR+3,X'40',5 


ISRCHIDE 


X'08' 


,*-8 


;tic 


X'06' 


,IOAREA1+K|_,X"70',Dl 


IRDD 


X'92' 


,IDLOC,X'20',5 


|RDID 




X'3T 


,SEEKADR + 3,X'40',5 iSRCHIDE 


X'08" 


,*-8 'TIC 


X'OD 


,IOAREAl +a,X'50',Kl +Dl 'WRKD 


X'31' 


,SEEKADR + 3,X'40',5 JsRCHIDE 


X'CB' 


,*-8 'TIC 

( 


X'OE' 


,ioareai+a,x'io',Kl+Di_ |rdkd 





X'3r,SEEKADR+3,X'40',5 


1 
iSRCHIDE 




X"08',*-8 


ITIC 




X'05',IOAREA1+Kl,X'50',Dl 
X'31',SEEKADR+3,X'40',5 


JWRD 
'SRCHIDE 






X'08',*-8 


ITIC 




X'06', lOAREAl +Kl+X'50', Dl 


JRDD 




X'92',IDLOC,X'20',5 


iRDID 
1 




X'3T,SEEKADR+3,X'40',5 
X'O 



X'31',SEEKADR+3,X'40',5 



X'06', lOAREAl +K. , X'30', D, 



'SRCHIDE 


87 


^,c 


18 


"WRD 


91 


JSRCHIDE 


87 


ITIC 


18 



X'31' 


,SEEKADR+3,X'40',5 


ISRCHIDE 


X'08' 


,*-8 


|tic 


X'05' 


,IOAREA1+Kl,X'50',Dl 


|WRD 


X'31' 


,SEEKADR+3,X'40',5 


ISRCHIDE 


X'08' 


,*-8 
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X'06' 


,IOAREA1+K|_,X'10',Dl 
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No Verify 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 



2. ALL CCW CHAINS ARE PRECEDED 
BY THE FOLLOWING SEEK CCW 



X'07',SEEKADR+1,X'00',6 



3. IF BLKS1ZE = Kl-H3lTHENa =0 
IF BLKSIZE > Kl+DL THEN A = 8 




X'ST 


,SEEKADR+3,X'40',5 iSRCHIKE 


X'08' 


*-8 ItIC 


X'OD 


,IOAREAl +a,X'70',K[_+Dl iWRKD 


X'92' 


,IDLOC,X'20',5 'rDID 




X-31' 


SEEKADR+3,X'40',5 ISRCHIKE 


X'08' 


*-8 i'tIC 


X'OD 


,IOAREA1 +a,X'50',K|_+Dl IWRKD 


X'92' 


IDLOC,X'20',5 ;RDID 




X'31' 


1 
,SEEKADR+3,X'40',5 |SRCHIDE 


X'08' 


,*-8 iTIC 


X'OD 


,IOAREAl ia,X'30',Kl+Dl [WRKD 

1 



X'31' 


,SEEKADR+3,X'40',5 


[SRCHIDE 


X'08' 


,*-Q 


.tic 


X'05' 


,IOAREA1+Kl,X'70',Dl 


IWRD 


X"92" 


,IDLOC,X'20',5 


jRDID 



^ 



X'31',SEEKADR+3,X'40',5 JSRCHIDE 

X'08', --8 ITIC 

X'OD',IOAREA1 +a,X'10',Kl+Dj_'WRKD 

! 

CHART D 




X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05- 


JOAREA1+Kl,X'50',Dl 


WRD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'31',SEEKADR+3,X'40',5 

X'08',*-8 

X'05',IOAREAliK|,X'30',D, 



TIC 

,WRD 



X'31',SEEKADR+3,X'40',5 JSRCHIDE 

X'08',*-8 iTIC 

X'05',IOAREA1+Kl/X'1Q',Dl 'WRD 
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GENERATED 
CCW CHAIN 





wi 


s™ 




iA7> 




^ WVi. 
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^181 
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X'39' 


SEEKADR+3,X'40',4 


'SRCHHAE 


X'08' 


*-8 


ITIC 


X'92' 


FILENAME. K,X'40', a 


JRDID 


X'A9' 


,KEYARG,X'40',Kl 


'SRCHKE 


X"08' 


,*-16 


Itic 


X'05' 


,IOAREA1+Kl,X'70",Dl 


|WRD 


X"29' 


,KEYARG,X'40',Kl 


iSRCHKE 


X'08' 


,*-8 


Itic 


X'06' 


,1OAREA1+Kl,X'30',Dl 


Irdd 



9aI 



descriptor string^^^^ 

POINTER ' -a-*— .- 




1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW 

X'07*,SEEKADR+1,X'00",6 




X'39' 


,SEEKADR^3,X■40',4 




1 SRCHHAE 


X'08' 


,*-8 




iTIC 


X'92" 


,IDLOC,X'60',5 




Jrdid 


X'A9 


,KEYARG,X'40',ICl 




iSRCHKE 


X'08' 


,*-16 




'TIC 


X'05- 


,IOAREA1+Kl,X'50' 


Dl 


[WRD 


X'29' 


,KEYARG,X'40",Kl 




ISRCHKE 


X'08' 


,*-B 




llIC 


X'06' 


,IOAREA1+Kl,X'10' 


Dl 


JRDD 



8F 



X'39' 


,SEEKADR+3,X'40',4 


1 SRCHHAE 


X'08' 


*-8 


ITIC 


X'A9 


,KEYARG,X'40',K, 


JSRCHKE 


X'08' 


*-8 


ITIC 


X'05' 


IOAREA1+Kl,X'70',Dl 


'WRD 


X'29' 


,KEYARG,X'40',Kl 


iSRCHKE 


X'08' 


,*-e 


ITIC 


X'06' 


,1OAREA1+Kl,X'30',Dl 


|rdd 




X'29' 


,KEYARG,X'40',Kl 




|srchke 


X'08' 


,^-8 




.TIC 


X'05' 


,IOAREA1+Kl,X'70" 


Dl 


'WRD 


X'29' 


,KEYARG,X'40',Ki_ 




Isrchke 


X'08' 


,*-8 




|tic 


X'06' 


,IOAREA1+Kl,X'70' 


Dl 


iRDD 


X'92' 


|DLOC,X'20',5 




'rdid 



X"39',SEEKADR+3,X'40',4 

X'0e',*-8 

X*A9',KEYARG,X'40',Kl 

X'08',*-8 

X'05',IOAREA1+Kl,X'50',Dl 

X'29',KEYARG,X'40',Kl 

X'08',*-8 

X'06',IOAREA1+Kl,X'10',Dl 



SRCHHAE 
TIC 

SRCHKE 
TIC 
iWRD 
SRCHKE 
TIC 
RDD 



X'29',KEYARG,X'40',Kl 
X'08',*-8 

X'05',IOAREA1+Kl,X'50',Dl 
X'29',KEYARG,X'40',Kl 

x'oe',*-8 

X'06',IOAREA1+Kl,X'50',Dl 
X'92',IDLOC,X'20',5 



TIC 

WRD 

SRCHKE 

TIC 

RDD 

RDID 




X'29' 


KEYARG,X'40',Kl 




ISRCHKE 


X'08' 


*-8 




ITIC 


X'05' 


IOAREA1+Kl,X'70' 


Dl 


|WRD 


X'29' 


,KEYARG,X'40',Kl 




1 SRCHKE 


X'08' 


,*-8 




'TIC 


X'06' 


,IOAREA1+Kl,X'30' 


Dl 


]rdd 



X'29',KEYARG,X'40',K|_ 

X'08',*-8 

X'05',IOAREA1+K|_,X'50',Dl 

X'29',KEYARG,X'40',Kl 

X'08',*-8 

X'06',IOAREA1+Kl,X'10',Dl 



ISRCHKE 

Itic 

IWRD 
I SRCHKE 
iTIC 

Irdd 






hr) 

c 



o 


h< 


p 


m 


C/J 




\ 


H 


< 


• 


H 




H 


rj 


O 


> 


O 


r^ 


aj 






o 


<i 


tj* 


u 


sw 


M 


p 


d 


p 


si 





n> 


H 


(jj 


ro 




h 


w 


o 


jy 


U3 


s 


f^ 




laj 


DJ 


s 


u 


en 


tli 






#-^ 


H 


0N 


cn 




;> 


o 


;£; 


i-n 



K SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 
X'08',SEIKAa?+l,X'00',6 
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GENERATED 
CCW CHAIN 




X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'92' 


FILENAME.K,X'40',8 


RDID 


X'A9 


,KEYARG,X'40',Kl 


SRCHKE 


X'08' 


*-16 


TIC 


X'05' 


IOAREA' + Kl,X'30',Dl 


WRD 
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X'08',*-8 
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X'92',IDLOC,X'60',5 


RDID 


s 




X'A9',KEYARG,X'40',Kl 
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X'08',*-16 


TIC 
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X'05',IOAREA1+Kl,X'10',Dl 


WRD 



X'39' 


SEEKADR+3,X'40",4 


JSRCHHAE 


X'08' 


*-8 


JTIC 


X'A9 


,KEYARG,X'40%K|_ 


Isrchke 


X'08' 


*-8 


;tic 


X'05' 


!OAREA1+Kl,X'30',Dl 


iWRD 



X'29' 


,KEYARG,X'40',Kj_ 


{sRCHKE 


X'08' 


,*-8 


rTic 


X'05' 


,IOAREA1+Kl,X'70',D|^ 


JWRD 


X'92' 


,IDLOC,X'20",5 


Jrdid 



X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'A9' 


,KEYARG,X'40',Kj^ 


SRCHKE 


X'08' 


*-8 


TIC 


X'05' 


IOAREA1+Kl,X'10',Dl 


WRD 
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8F 


X'29' 


,KEYARG,X'40',Kl 


SRCHKE 


J8 ,y 


X'08' 


,*-8 


TIC 


91 


X'05* 


,IOAREAI+Kl,X'50',Dl 


WRD 


9E 

1 


X'92' 


,IDLOC,X'20',5 


RDID 



X'29',KEYARG,X'40',Kl 

X'08',*-8 

X'05", IOAREA1+Kl,X'30',Dl 



'SRCHKE 

(TIC 

'WRD 




X'29',KEYARG,X'40',Kl 

X'08',*-8 

X'05',IOAREA1+Kl,X'10',Dl 
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WRITE Filename, RZERO 



;;;i^& ulscriptor string JaS 

?^'^rpS POINT FR Sj: 



■■■■■-:vH--,v-v;:?'-,r'i 




GENERATED 
CCW CHAIN 



X'31' 


,FilenameF,X'40',5 




tSRCHlDE 


X'08' 


,*-8 




JTIC 


x'lr 


,FilenameB+32,X'C0' 


,8 


lERASE 


x'lr 


, X "2800 ^X '60', max. 


record length 


JERASE 


X'31' 


,FilenameF,X'40',5 




iSRCHlDE 


X'08' 


,*-8 




'.TIC 


X'05' 


,FilenaneK,X'10',8 




"WRD 



(READ RZERO) 



x'sr 


,FilenameF,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


,FilenameK,X'00',8 


RDD 




■mm 






1 


■iC7 




X'3r,FilenameF,X-40',5 


'SRCHIDE 


mi 








M8 




X'08',*-8 


,T1C 


mf 






1 
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X'05',FilenameK,X'50',8 


'WRD 








1 
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X'3r,SEEKADR+3,X'40',5 


'SRCHIDE 








' 
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X'08",*-8 
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mi 
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X'1D',IOAR£A1,X'50',C+Kl+Dl 


JWRCKD 


:c7 




X'3T,FilenameF,X'40',5 


,'srchide 
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X"08',*-8 


ITIC 
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131^ 




X'06',FilenameK,X'50',8 
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X'31',SEEKADR+3,X'40',5 
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X'1E',IOAREA1,X'10',C+Kl+Dl 


|RDCKD 
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1 



1. SHADED AREAS -ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 



ALL CCW CHAINS ARE PRECEDED 
BY THE FOLLOWING SEEK CCW; 



X'07',SEEKADR+1,X'00',6 





(READ RZERO) 




X'3T 


,FilenameF,X'40',5 


SRCHIDE 


X'08' 


,*-e 


TIC 


X'06' 


FiienameK,X'00',8 


RDD 



X'31' 


,FilenameF,X'40',5 


[SRCHIDE 


X'08' 


,*-8 


ITIC 


X'05' 


,FilenameK,X'50',8 


jWRD 


X'31' 


,SEEKADR+3,X'40',5 


'SRCHIDE 
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JTIC 


X'lD 


,IOAREA1,X'10',C+Kl+Dl 


(WRCKD 
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Chart 



READ Filename, ID 




GENERATED 
CCW CHAIN 




X'31',SEEKADR+3,X"40',5 

X'08',*-8 

X'OE',KEYARG,X'EO',Kl 

X'06',IOAREA,X'60',BLKSIZE 

X'92',IDLOC,X'20',5 





ISRCHIDE 



< ' > 




X'31' 


,SEEKADR+3,X'40^5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OE' 


,KEYARG,X'EO',Kl 


RDKD 


X'06' 


,IOAREA,X'60',BLKS(ZE 


RDD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'3r,SEEKADR+3,X'40',5 
X'08',*-8 

X'OE',KEYARG,X'EO',K|^ 
X'06', lOAREA, X'20', BLKSIZE 






X'3r,SEEKADR+3,X'40',5 SRCHIDE 

X'08',*-8 TIC 

X'06',iOAREA,X'60', BLKSIZE I RDD 

X'92',IDLOC,X'20',5 I RDID 



^ 

X'3r,SEEKADR+3,X'40',5 | SRCHIDE 

X'08',*-8 TIC 

X'OE',KEYARG,X'EO',K, I RDKD 

X'06%lOAREA,X'20', BLKSIZE | RDD 




1 . SHADED AREAS -ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWING SEEK CCW: 

X'07',SEEKADR+1,X'00',6 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS IN THE RDCNT 
CCW (DESCRIPTOR BYTE 9E) IS 

Filename, I 

INSTEAD OF IDLOC. 

4. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 



X'31' 


,SEEKADR+3,X'40',5 


-'■ ■- 

SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


,!OAREA,X'60', BLKSIZE 


RDD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'31',SEEKADR+3,X'40',5 
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1 SRCHIDE 


X'08',*-8 


I TIC 


X'06', iOAREA,X'20', BLKSIZE 


IRDD 
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1 . SHADED AREAS -ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CON CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

X'07',SEEKADR+1,X'00',6 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS OF THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
WILL BE CHANGED TO: 

SRCHHAE- Filename. S+3 



RDCNT 



- Filei 



!.l 



4. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 



GENERATED 
CCW CHAIN 




X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'92' 


,IDLOC,X'60',5 


RDID 


X'A9 


,KEYARG,X'40',Kl 


SRCHKE 


X'08' 


,*-16 


TIC 


X'06' 


,iOAREA,X'20', BLKSIZE 


RDD 



X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'92' 


iDLOC,X'60',5 


RDID 


X'A9 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


*-16 


TIC 


X'06' 


IOAREA,X'20', BLKSIZE 


RDD 



X'39%SEEKADR+3,X'40',4 
X'08',*-8 

X'A9',KEYARG,X'40',Kl 
X'08',*- 8 
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ITIC 



X'06', IOAREA,X'20', BLKSIZE |RDD 



X'39' 


,SEEKADR+3, X'40',4 
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1 


X'29' 


,KEYARG,X'40',Kl 


1 SRCHKE 
1 


X'08' 
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1 
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,IOAREA,X'60', BLKSIZE 
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X'92' 


,IDLOC,X'20',5 


IRDID 
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X'39' 


,SEEKARD+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'A9 


,KEYARG,X'60',K|_ 


SRCHKE 


X'OB' 


,*-8 


TIC 


X>06' 
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RDD 
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,SEEKADR+3,X'40',4 
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X'29' 


,KEYARG,X'60',Kl 


SRCHKE 
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RDD 
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,IDLOC,X'20',5 


RDID 



X'39',SEEKADR+3,X'40',4 

X'08',*-8 

X'29',KEYARG,X'40',Kl 

X'08',*-8 

X«06', IOAREA, X'20', BLKSIZE 



SRCHHAE 
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,KEYARG,X'60',Kl 
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,>-s 


H 


H 
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O 




Hi 




X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OD 


,KEYARG,X'60',K|_ 


WRKD 


X'05' 


,IOAREA,X'40',BLKSiZE 


WRD 


X"3T 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OE' 


,KEYARG,X'FO',Kl 


RDKD 


X'06' 


,IOAREA,X'50',BLKSiZE 


RDD 


X'92' 


,iDLOC,X'20',5 


RDID 



I 



X'31',SEEKADR+3,X'40',5 | SRCHIDE 
X'08%*-8 1 TIC 
X'06',IOAREA,X'00',8 ' RDD 


1 1 


X'3T,SEEKADR+3,X'40',5 1 SRCHIDE 
X'08',*-8 1 TIC 
X'0D',KEYARG,X'60',Kl I WRKD 
X'05',IOAREA,X'40',BLKS1ZE j WRD 
X'3r,SEEKADR+3,X'40',5 | SRCHIDE 
X'08',*-8 j TIC 
X'OE',KEYARG,X'FO',Kl RDKD 
X"06",IOAREA,X'50',BLKSIZE j RDD 
X'92',IDLOC,X'20',5 RDID 



X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OD 


,KEYARG,X'60',Kl 


WRKD 


X'05' 


,IOAREA,X'40',BLKSIZE 


WRD 


X'3r 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OE' 


,KEYARG,X'FO',Kl 


RDKD 


X'06' 


IOAREA,X'10',BLKS[ZE 


RDD 



« 



X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


,IOAREA,X'40',BLKS|ZE 


WRD 


X'3T 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X'50',BLKSIZE 


RDD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'31',SEEKADR+3,X'40',5 | SRCHIDE 
X'08',*-8 TIC 
X'06',iOAREA,X'00',8 ' RDD 




X'31",SEEKADR+3,X'40',5 j SRCHIDE 
X'08',*-8 1 TIC 
X'0D',KEYARG,X'60',K(^ 1 WRKD 
X'05',IOAREA,X'40',BLKSIZE | WRD 
X'31',SEEKADR+3,X'40',5 | SRCHIDE 
X'08',*-8 TIC 
X'0E',KEYARG,X'F0',K|_ RDKD 
X'06',IOAREA,X'IO',BLKSIZE I RDD 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

X'07',SEEKADR+1,X'00',6 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS OF THE RDCNT 
CCW (DESCRIPTOR BYTE 9E) IS 
CHANGED TO: 

Filename. I 

THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCOroiNGLY, 





1 


X'31',SEEKADR+3,X'40',5 


SRCHIDE 




X'08',*-8 


TIC 




X'06',IOAREA,X'00',8 


RDD 


i 




1 


1* 


X'31',SEEKADR+3,X'40',5 
X'08',*-8 


SRCHIDE 
TiC 


X'05', IOAREA,X'40', BLKSIZE 


W(® 


X'31',SEEKADR+3,X'40',5 
X'08',*-8 


SRCHIDE 
TIC 


11 




X'06', IOAREA,X'50', BLKSIZE 


RDD 


9E 




X'92',IDLOC,X'20',5 


RDID 



i 
I 



■ 

18 



X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


/*-8 


TIC 


X'05' 


,IOAREA,X'40', BLKSIZE 


WRD 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X' 10', BLKSIZE 


RDD 





X'31',SEEKADR+3,X'40',5 


SRCHIDE 




X'08',*-8 


TIC 




X'06',IOAREA,X'00',8 


RDD 










X'31',SEEKADR+3,X"40',5 


SRCHIDE 




X'08',*-8 


TIC 




X'05', lOAREA, X'40', BLKSIZE 


WRD 




X'31',SEEKADR+3,X'40',5 


SRCHIDE 




X»08',*-8 


TIC 




X'06', IOAREA,X'10', BLKSIZE 


RDD 
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GENERATED 






CCW CHAI N 




x'3r 


,SEEKADR+3,X'40',5 




SRCHIDE 


X'08' 


,*-8 


TIC 


X'OD 


,KEYARG,X'60',K|_ 


WRKD 


X'05' 


,IOAREA,X'40',BLKSI2E 


WRD 


X'92' 


,iDLOC,X'20',5 


RDID 

.. . 



X'3r,SEEKADR+3,X'40%5 { SRCHIDE 
X"08',*-8 1 TIC 
X'06',IOAREA,X'00',8 1 ROD 


1 1 


X'3T,SEEKADR+3,X'40',5 1 SRCHIDE 
X'08',*-8 1 TIC 
X'0D',KEYAR6,X'60',Kj_ | WRKD 
X'05MOAREA,X'40*,BLKSIZE | WRD 
X'92',IDLOC,X'20',5 ( RDID 



X'31',SEEKADR+3,X'40',5 



SRCHIDE 
TIC 



X'0D',KEYARG,X'60',K, I WRKD 

X'05',IOAREA,X'00%BLKSIZE I WRD 



X'3r,SEEKADR+3,X'40',5 | SRCHI 

I 

X'08',*-8 1 TIC 

I 

X'05',IOAREA,X'40',BLKSIZE I WRD 
i 

X'92',|DLOC,X'20',5 I RDID 



X'31',SEEKADR+3,X'40%5 | SRCHIDE 

X'08%*-8 i TIC 

1 
X'06%IOAREA,X'00',8 1 RDD 

- . 1 




X'31',SEEKADR+3,X'40',5 I SRCHIDE 

1 
X'0e',*-8 1 TIC 

1 
X'0O',KEYARG,X'60',K, 1 WRKD 

^ 1 
X'05'JOAREA,X'00',BLKSIZE 1 WRD 
- 1 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWI NG SEEK CCWi 

X'07',SEEKADR+1,X'00',6 

IF RELATIVE ADDRESSING I S USED, 
THE DATA ADDRESS IN THE RDCNT 
CCW IS CHANGED TO: 
Filename. I 

4. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00) . THE CCWS IN 
THE CHAINS ARE MODIFI ED FOR MULTISEGMENT 
RECORDS ARE THE BYTE COUNT (BLKSIZE) FOR 
THE mo AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 



X'3T,SEEKADR+3,X'40',5 i SRCHIDE 
1 

X'08%*-8 1 TIC 
1 

X'06'JOAREA,X'00',8 j RDD 




X'31%SEEKADR+3,X'4Q',5 ' SRCHIDE 

1 
X'08«,*-8 1 TIC 

1 
X"05'JOAREA,X'40', BLKSIZE ! WRD 

1 
X'92',IDLOC,X'20',5 1 RDID 

1 



X'3r,SEEKADR+3,X«40»,5 I SRCHI 

I 
)8',*-8 I TIC 

I 

X'05MOAREA,X'00', BLKSIZE I WRD 



X'31',SEEKADR+3,X'40',5 [SRCHIDE 
X'08',*-8 I TIC 
X«06',IOAREA,X'00',8 1 RDD 




X'31',SEEKADR+3,X'40',5 | SRCHIDE 
X'08',*-8 (TIC 
X'05', lOAREA, X'OO', BLKSIZE 1 WRD 
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WRITE Filename, KEY 






X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'92' 


IDLOC,X'60',5 


RDID 


X'39' 


KEYARG,X'40',K 


5RCHKE 


X'08' 


*-16 


TIC 


X'05' 


IOAREA,X'40',BLKSIZE 


WRD 


X'29' 


KEYARG,X'60',K^^ 


SRCHKE 


X'08' 


*-8 


TIC 


X'06' 


IOAREA,X'10',BLKSIZE 


RDD 



NO YES 






X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'92' 


IDLOC,X'60',5 


RDID 


X'A9' 


,KEYARG,X'60',K 


SRCHKE 


X'08' 


*-16 


TIC 


X'06' 


IOAREA,X'00',8 


RDD 






X'A9' 


,KEYARG,X'60',Kl 


,RCHKE 


X'08' 


*-8 


TIC 


X'05' 


IOAREA,X'40',BLKSIZE 


WRD 


X'29' 


KEYARG,X"60',Kl 


SRCHKE 


X'08' 


*-8 


TIC 


X'06' 


IOAREA,X'10',BLKSIZE 


RDD 



X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'39' 


,KEYARG,X'40',K 


SRCHKE 


X'OB' 


,*-8 


- 


X'05' 


,IOAREA,X'40',BLKS!ZE 


WRD 


X'29' 


,KEYARG,X'60',K|^ 


SRCHKE 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X'10',BLKSiZE 


RDD 




X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'29' 


KEYARG,X'60',K 


SRCHKE 


X'08' 


,*-8 


TIC 


X'05* 


IOAREA,X'40',BLKS1ZE 


WRD 


X'29' 


KEYARG,X'60',K 


SRCHKE 


X'08' 


,*-B 


T,C 


X'06' 


,IOAREA,X'50',BLKSIZE 


RDD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'92' 


1DLOC,X'60',5 


RDID 


X'A9' 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


*-16 


T,C 


X'06' 


IOAREA,X'00',8 


RDD 






X'A9 


,KEYARG,X'60',K|^ 


SRCHKE 


X'08' 


,*-8 


TIC 


X'05' 


IOAREA,X'40',BLKSIZE 


WRD 


X'29' 


KEYARG,X'60',5 


SRCHKE 


X'08' 


*-8 


T,C 


X'06' 


iOAREA,X'10',BLKSlZE 


RDD 



X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'29' 


,KEYARG,X'60',K 


SRCHKE 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X'00',8 


RDD 






X'29' 


KEYARG,X'60',K, 


SRCHKE 


X'OB- 


*-8 


TIC 


X'06' 


IOAREA,X'40',BLKSIZE 


WRD 


X'29' 


,KEYARG,X'60%Kj_ 


SRCHKE 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X'50',BLKS1ZE 


RDD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,--8 


TIC 


X'29' 


,KEYARG,X*40',Kj^ 


SRCHKE 


X'08' 


,*-8 


TIC 


X'05' 


,IOAREA,X'40',BLKSIZE 


WRD 


X'29' 


,KEYARG,X'60',Kj_ 


SRCHKE 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X'10',BLKS!ZE 


RDD 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

X'07',SEEKADR+1,X'00',6 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESSES IN THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
ARE CHANGED TO: 

SRCHHAE- Filename. S+3 

RDCNT -Filename. I 

4. THE CCW CHAI NS SHOWN FOR SPNUNB 
RECORDS ARE THOSE INITIALLY GENERATED 
FOR SI NGLE SEGMENT RECORDS (TYPE 00). 
THE CCW'S IN THE CHAINS ARE MODI FIED 
FOR MULTISEGMENT RECORDS AND THE BYTE 
COUNT (BLKSI ZE) FOR THE RDD AND WRD 
CCW'S WILL BE CHANGED ACCORDINGLY. 



X'39',SEEKADR+3,X'40',4 


SRCHHAE 


X'08',*-8 


TIC 


X'29',KEYARG,X'60',K 


SRCHKE 


X'08',*-8 


TIC 


X'06',IOAREA,X'00',8 


RDD 






X'29',KEYARG,X'60',K^ 


SRCHKE 


X'08',*-8 


TIC 


X'05',IOAREA,X'40',BLKSIZE 


WRD 


X'29',KEYARG,X'60',K|^ 


SRCHKE 


X'08',*-8 


TIC 


X'06', IOAREA,X' 10', BLKSI ZE 


RDD 
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WRITE Filename, KEY 






GENERATED 
CCW CHAI N 



X'39' 


SEEKADR+3,X'40",4 


SRCHHAE 


X'08' 


,*>8 


TIC 


X'92' 


,IDLOC,X'60',5 


RDID 


X'A9 


,KEYARG,X'40',Kl 


SRCHKE 


X'08' 


,*-16 


T,C 


X'05' 


,IOAREA,X'00',BLKSIZE 


WRD 



X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-e 


TIC 


X'92' 


,IDLOC,X'60',5 


RDID 


X'A9 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


,*-16 


TIC 


X'06' 


,IOAREA,X'00',8 


RDD 






X'A9 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


*-8 


TIC 


X'05' 


IOAREA,X'00',BLKSIZE 


WRD 



X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'A9 


,KEYARG,X'40',Kl 


SRCHKE 


X'08' 


,*-8 


TIC 


X"05' 


IOAREA,X'00',BLKSIZE 


WRD 




i 




- ■ - 

X"39',SEEKADR+3,X'40',4 


SRCHHAE 


1 




X'08',*-8 


TIC 


1 




X'29',KEYARG,X'40',Kl 


SRCHKE 


1 




X'08',*-8 


TIC 


91 




X'05',IOAREA,X'40',BLKSIZE 


WRD 


3 




X'92',IDLOC,X'20',5 


RDID 






X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'92' 


,IDLOC,X'60',5 


RDCNT 


X'A9 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


,*-16 


TIC 


X'06' 


,IOAREA,X'00',8 


RDD 






X'A9 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


,*-8 


TIC 


X'05' 


,IOAREA,X'00',BLKSIZE 


WRD 




X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'OB' 


,*-8 


TIC 


X'29' 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X'00',8 


RDD 






X'29' 


,KEYARG,X'60',Kl 


SRCHKE 


x'oe- 


,*-8 


TIC 


X'05' 


,IOAREA,X'40',BLKSIZE 


WRD 


X'92' 


,IDLOC,X'20',5 


RDID 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

X'07',SEEKADR+1,X'00',6 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESSES IN THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
ARE CHANGED TO: 

SRCHHAE- Filename. S+3 

RDCNT -Filename. I 

4. THE CCW CHAINS SHOWN FOR SPNUNB 
RECORDS ARE THOSE INITIALLY GENERATED 
FOR SINGLE SEGMENT RECORDS (TYPE 00). 
THE CCW'S IN THE CHAINS ARE MODIFIED 
FOR MULTISEGMENT RECORDS AND THE BYTE 
COUNT (BLKSIZE) FOR THE RDD AND WRD 
CCW'S WILL BE CHANGED ACCORDINGLY. 



X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'29' 


,KEYARG,X'40',Kl 


SRCHKE 


X'08' 


,*-8 


TIC 


X'05' 


,IOAREA,X'00', BLKSIZE 


WRD 



X'39' 


,SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'29' 


,KEYARG,X'60',K|_ 


SRCHKE 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X'00',8 


-fOD 






X'29' 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


,*-8 


TIC 


X'05' 


,IOAREA,X'00', BLKSIZE 


WRD 
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WRITE Filename, AFTER 



GENERATED 
CCW CHAIN 
(READ RZERO) 



X'3]' 


,FHertame.F,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


,Filename.K,X'00',8 


ROD 



x'sr 


, Filename. F,X'40', 5 


SRCHIDE 


X'OB' 


,*-8 


TIC 


X'05' 


, Filename. K,X'40', 8 


WRD 


X'ST 


,SEEICADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'lD 


,Fiiename.C,X'E0',8 


WRCKD 


X'OD 


,KEYARG,X'EO',Kl 


WRKD 


X'05' 


,IOAREA,X'40',BLKSIZE 


WRD 


x'sr 


,Filename.F,X'40',5 


SRCHIDE 


X«08* 


,*-8 


TIC 


X'06' 


,Filename.K,X'50',8 


RDD 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


..-a 


TIC 


X'lE' 


, Filename. C,X'FO', 8 


RDCKD 


X'OE' 


,KEYARG,X'FO',K|_ 


RDK 


X'06' 


,IOAREA,X'iO',BLKSI ZE 


RDD 





X'31' 


,Filename.F,X'40',5 


SRCMiDE 


X'08' 


,*-8 


TIC 


X'06' 


, Filename. K,X'00',8 


RDD 



CB 
91 
C7 
18 

I 
i 



x'3r 


, Filename. F,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


, Filename. K,X'40',8 


wm 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'lD 


,Filename.C,X'E0',8 


SNKCKD 


X'05' 


,10AREA,X'40',iLKSIZE 


WRD 


x'3r 


,Fi(ename.F,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


, Filename. K,X'50',8 


iOD 


X'sr 


,SEEKAOR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'lE' 


,Filename.C,X'F0',8 


RDCKD 


X'06' 


,IOAREA,X'10',BLKSIZE 


RDD 




(READ RZERO) 



X'3!' 


, Filename. F,X'40', 5 


1 SRCHIDE 

1 


X'08' 


,*-8 


i TIC 

1 


X'06' 


,Fi}enome.K,X'00',8 


1 RDD 



X'3T 


,Fi!enaiTie.F,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


, Filename, K,XMO', 8 


WRD 


x*3r 


,SE€KADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'lD 


,F}lename.„C,X'E0',8 


WRCKD 


X'OD 


,KEYARG,X'E0',K,_ 


WRKD 


X'05' 


,IOAREA,X'00',BLKSIZE 


WRD 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

X'07', SEEKADR+1 , X'00',6 

3. THE CCW CHAINS SHOWN FOR SPNUN8 RECORDS 
ARE THOSE INITAILLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTlSEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 






(READ RZERO) 



X'3r,Filehame.F,X'40',5 


SRCHIDE 


X*08»,*-8 


TIC 


X'06',Filename.K,X'00',8 


RDD 



I 1 
1 I 







1 


X'31' 


, Filename. F,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


, Filename. K,X'40', 8 


WRD 


X'31' 


,SEEKADR+3,X»40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'lD 


,Filename.C,X'E0',8 


WRCKD 


X'05' 


,IOAREA,X'00',8LKS|ZE 


WRD 



INITIALIZATION AND TERMINATIOi^I 



When a DASD file is processed by the Direct 
Access Method, all extents specified by the 
user must be opened before any data is 
transferred. 



contain device-dependent alteration factors 
m bytes each) used to ccnvert the extent 
lirrit addresses. The format of the DSKXTNT 
table and the location of the alteration 
factors is illustrated in Figure 13. The 
alteration factors are sumrarized in Figure 
la. 



The DAM Open logical transients make all 
the extents for the file available for use 
by the problem program. To accomplish 
this, the open routines check and create 
standard DASD labels or, in the case of 
nonstandard labels, pass ccntrcl tc the 
user for label processing. 

To open a file, the open routines use 
label information supplied by the i3ser in 
job control statements and stored en the 
SYSRES label information cylinder (refer to 
PCS/VS LIQCS Volume 1 , SY 3 3- 8 5 5 9 ) . This 
information is used^either to check or 
create the actual file labels in the yclume 
cell containing the file. Refer to DC S/V S 
LIQCS Volume 1, SY33-8559, fcr details of 
SYSRES label information and the standard 
DASD file labels processed by DOS/VS 
logical IOCS. 

Close is required fcr DASD files 
processed by the Direct Access IS^ethod only 
when user standard trailer labels are 
specified. 



DAM OPEN CHART 01 





Actuol C1,C2,HnH2 oddrMS 


Alteration foctor for CI 




Alteretlon factor for C2 


AlterotlonfoctorforH! 


Ftrtf ttxtont 


X, -V, -L, +1 






Li 


S«cond •}<t«nf 


Xj -X| +(V2 -Lj +1) 






I2 


Third exf«nt 


X3 -X2 +CV3 -L3 +1) 






L3 


Lasr Extent 


K -x«-i+(v„ -L„+T5 






L„ 


End of table 


X*FF» 


X'FF' 




■ 















TTT2 



M B2 



TTTl 



TTTt, L * relative track number of the extent lower limlti thot If, the number 
of tracks from cylinder 0, track to the lower limit of the corre - 
spondinge^dent* (3 bytes) 

TTT2 * cumulative total tracks in current extent plus previous extents In 
the table. (3 bytes) 

B2 s second byte of bin number (BB), for a disk device. (1 byte) 

M » symbolic unit number, incremented by 1 for each new embolic 
unit. (! byte) 

V * number of tracks from cylinder 0, track to the upper limit of 
corresponding extent. 



For input files, the volurce and Fcrmat 1 
labels are checked against the SYSRES label 
information supplied by the user's // DLBL 
job control card. User labels are then 
processed, providing LABADDR=address has 
been specified in the DTFDA macro defining 
the file. Finally, EXTENT information is 
passed to the user for checking and/or 
processing. 

For output files, extents are checked to 
ensure that they do not overlap the VTOC or 
other extents. Labels are created and 
written in the VTOC, and user labels are 
processed, if required. 



Relativ e Addressing 



When relative addressing is specified for a 
file, the open routines convert extent 
information supplied as actual physical 
DASD addresses into a relative addressing 
format. The converted extent information 
is stored at the end of the DTF table, in a 
table (DSKXTNT) at location ^Filename. P+48 . 
The 12 bytes preceding the DSKXTNT table 



Figure 13. DSKXTNT table for relative 
addressing 



Factor 



CI 
02 
HI 



2311 2314/ 3330 2321 | 
2319 t 



1 

10 
1 



20 
1 



4864 1000 I 



19 
1 



100 



20 



Figure 14. Alteration factors fcr relative 
addressing 

An actt^al physical extent address is 
converted to a relative address in the 
following manner. Each cf the fcur bytes 
(CCHH) of the actual address are handled 
separately and are referred tc as Cl, C2, 
HI, and H2. Starting with Cl, the first 
three bytes of the actual address are 
multiplied, one at a time, by the 
respective device-dependent alteration 
factor (refer to Figure 14). The result of 
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each multiply operation is added into an 
accumulating register- To complete the 
conversion, H2 is added to the accumulated 
result. If the conversion is performed on 
the lower liirit address of the extent, the 
value obtained is the L (or TTTl) value and 
is stored in the DSKXTNT table (refer to 
Figure 13) . 

If the conversion is performed for the 
upper limit address of the extent, the 



converted value is increased by 1 and TTTl 
is subtracted from the result. The value 
obtained from this calculaticn is the total 
number of tracks included in the extent. 
The total number of tracks in the extent is 
then added to the total number of tracks of 
all previous entries to obtain the TTT2 
value for the current extent entry in the 
DSKXTNT table (refer to Figure 13). 
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Chart 01. EAM Open 



c 



From Open 
Monitor, $$BOPEN 



J 



$$BODAIN 



1 Check physical 
device assignments 

2 Input file? 

YES 



jTnc 



3 Relative 
addressing? 



Tye 



ES 



4. Build DSKXTNT 

table of extent 
information m 
relative addressing 
form in the DTF 



1 Ensure proper 
packs are 
mounted 



1 Check for 
duplicate file 
labels in VTOC 



Check that no 
overlap exists 
between extents 
or between extents 
and VTOC 



$SB0DA02 



1 Check Format 
1 labels in 
VTOC 



SSB0DA03 



1 Find area in VTOC 
to write labels 

2 Compute total 
number of extents 



1 Create labels 

2 Check symbolic 
unit sequence 



$$B0DAI1 



1 Check that all 
packs are mounted 

2 Compare labels to 
DLBL information 

3. Build DSKXTNT 
table of extent 
information if 
relative addressing 
IS used 

4. DASD file 
protect? 



o 



YES 



5 User labels? 
YES 



* $$BOFLPT 



Put extent 
mformation m 
JIBs to file 
protect extents 



$$B0DAU1 



1 Check user 
labels on input 

2 Create user labels 
on output 



c 



SVC 2 
FETCH 
$$BOPEN 



J 



* Documented in 
DOS/VS LIOCS 
Volume 2, SY33-8560 
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$$BQD?IIN; DA Open Input/OutPUt Charts 
BG~BJ 

Objective; To ensure that the correct 
device is assigned for each extent, and to 
build a table (DSKXTNT) of extent values if 
relative addressing is used. 

Entry; From ihe Open Monitor, $$BCPEN1. 

Exits; 

• To the TES Processor, $$BCPEN, if the 
COBOL Open/Ignore option is specified. 

• To $$B0DAI1 if an input file. 

• To $$B0DA01 if an output file. 

• To $$BOMSGl if messages are needed. 

Method; This phase determines if the 
correct device has been assigned to the 
file. If the correct device has net been 
assigned, the message writer phase, 
$$B0MSG1, is fetched to print message 46831 
on SYSLOG. If the correct device is 
assigned, a test is made for relative 
addressing. 

If the file is an input file with 
relative addressing, the proper alteration 
factors for the device are inserted in the 
DTF table and phase $$B0DAI1 is fetched. 
If the file is an input file with actual 
addressing, phase $$B0DAI1 is fetched 
directly. 

For output files with relative 
addressing, phase $$B0CAIN, in addition to 
storing the proper alteration factors, 
converts the actual extent limits cf each 
extent to a relative address. The relative 
address forir of each extent is stored in 
sequence in the DTF table. (This extent 
information in relative addressing form is 
referred to as the DSKXTNT table and is 
located in the DTF table at location 
SFilenaffie.P+48.) When the extent 
information is complete, phase $$BCDA01 is 
fetched. 

For output files with actual addressing, 
phase $$B0DA01 is fetched after the device 
assignment of each extent is checked. 



Entry ; From $$B0DAIt^, or from a message 
writer phase. 

Exits; 

• Tc $$BCDSMW to write data security 
message. 

• To the TES Processor, $$B0PEN, if nc 
user options are specified. 

• Tc $$E0EAU1 to process user's options. 

• To $$E0FLPT if DASD file protect is 
specified. 

• To $$BCMSG1 if a message is required. 

Method ; Phase $$B0DAI1 reads the VOLl 
label and checks the voluire serial nuirber 
in the label against the volume serial 
number given in the extent to ensure that 
the correct pack is irounted. The phase 
then reads the Format 1 label fcr the file 
and checks the symbolic unit specified for 
each extent for proper sequence. 

If the data securit]^ indicator in the 
format 1 label is ON, and the data security 
message has not been issi^ed for the file, 
exit is made to $$B0DSMW to print the data 
security message. 

If relative addressing is specified, 
phase $$ECEAI1 converts every set of extent 
limits in the Format 1 label, and the 
Format 3 label (s) as required, from actual 
(CCHH) addresses to a relative address 
form. The extent information in relative 
form is placed in a table (DSKXTNT) within 
the DTF table at location ^Filename. P+48 . 

When all extents have been checked, a 
test is made for file protected extents - 
If file protect is specified, phase 
$$E0FLpT is fetched to build JiBs for the 
protected extents. 

Phase $$E0DAI1 returns control either tc 
the TES Processor ($$BCPEN), or to phase 
$$B0EAU1 if processing cf user labels or 
extent information is required. 



$^B0 pA 0l; DA Open Output^ Phase 1 Charts 

EN~BQ 



$$BQDAI1; DA Open Input Charts BK-BM 



Objective; To ensure that all packs are 
mounted, that the symbolic units are 
specified in sequence, and that the 
symbolic unit (and bin, if 2321) agrees 
with the user supplied DLBI information. 



Cbjective; To check the volume serial 
number and determine if the DLBL and EXTENT 
serial numbers are equal, and tc ensure 
that nc extent specified by the user 
overlaps on the VTCC or on another extent 
fcr the same file. 

Entry; Frcm $$B0BAIIS1. 
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Exits: 



Entry; From $$B0DA01. 



• To $$B0DA02 if job goes tc ncriral 
cocnpletion. 

• To $$B0SDO8 to check for duplicate DLBL 
in yTOC. 

• To $$B0MSG1 if messages are to fce put 
out. 

Method; This phase reads the volume label 
for the symbolic unit (and bin, if the 
device is a 2321). It checks tc see that 
the correct volume is available by 
comparing the volume serial number with the 
serial number specified on the first 
extent. If they are not equal, message 
4755A is initialized and $$B0MSG1 is 
fetched to write the message on SYSLOS. 

If the serial numbers are equal, the 
Format 4 label is read. Each extent for 
the current symbolic unit is checked to see 
that it does not overlap on the VTCC. If 
an overlap is present, message 4741A is 
initialized and written out on SYSLOG by 
$$BCMSGl. Upon reentry to this phase, the 
current extent is deleted at the user's 
request. 

The next extent is checked tc see if it 
has the same symbolic unit as the previous 
extent. If it does not, the rcutine exits 
to $$B0SDD8 to check for a duplicate DIBL 
in the 7T0C. If the next extent has the 
same symbolic unit, the phase checks to see 
if the first extent has twc tracks. If it 
does not, message 4766A is initialized and 
written on SYSLOG by $$B0MSG1. Upcn 
reentry to this phase, the first extent is 
deleted at the user's request. 

If the first extent has two tracks, a 
check determines if extents cverlap. If an 
overlap exists, message 4740A is 
initialized and written on SYSLOG. Open 
reentry to this phase, the extent causing 
the overlap is deleted at the user's 
request, ft.ll remaining extents are moved 
down the length of one extent so that the 
upper limit of the extent is decreased by 
the length cf cne extent. 

When all extents on the file have been 
checked in this manner, this phase exits to 
$$BODA02. 



$$B0DgkQ2: DA Open Output, Phase 2 Charts 

CA-CD 



Objective: To ensure that no extent for 
the incoming file overlaps en any extent 
for any file cataloged in the VTCC. 



Exits : 

• Tc $$B0EA03 to create labels. 

• Tc $$E0MSG1 if messages are to be 
printed. 

Method; This phase reads the VOLl label tc 
get the starting address (CCHHR) cf the 
VTOC. If the VOLl label is not found, 
message 47061 is initialized, and phase 
$$B0MSG1 is fetched to write the message en 
SYSLOG. 

The Fcrirat 4 label, or VTCC definition 
label, is read to get the upper limit 
address CcCHH) of the VTCC- If the Format 
4 label is not found, message 47041 is 
initialized, and phase $$BCMSG1 is fetched 
to write the message. 

If the Format 4 label is found, the 
routine reads DASD labels (count, key, and 
data) from the VTOC, one at a time, until a 
Format 1 label is found cr the last record 
in the VTOC is read* If a no- record- found 
condition results before the end cf the 
VTOC is reached, message 47091 is 
initialized and written en SYSLOG by phase 
$$B0MSG1. 

If the end of the VTOC is reached 
without finding a Format 1 label, the 
routine determines the address of the 
extent for the next file en a different 
symbolic unit, and returns tc prccess the 
extents fcr that file. If an extent on a 
different symbolic unit cannot be found, 
and all extents have been scanned, this 
phase fetches phase $$BCDAC3 tc create 
labe Is . 

When a Form.at 1 label is found, the 
extents for the new file are checked fcr 
cverlap en the extents in the Format 1 
label and any other labels chained tc it. 
If overlap is found, the Format 1 label is 
reread, and the expiration date is checked 
to see if the file has expired. If the 
file has not expired, message 47 44A is 
initialized and phase $$fiCMSGl is fetched 
to write the message on SYSLOG. At this 
point, the operator sets indicators either 
to delete the file, or delete the extent. 
Upon reentry to this phase, the indicators 
determine the action to he taken, and that 
action is executed. 

If the file has expired, or the operator 
requests that the file be deleted, it is 
dene by writing zeros over all the labels 
in the chain. When the file is deleted, 
the phase returns to read the next Format 1 
label from the VTOC and continue 
processing. 
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When overlap occurs on an unexpired data 
secured file, $$BoMSGl is fetched to issue 
message 479 81 OVLAP UNEXPRD SECRD FILE. If 
overlap on an expired secured file occurs, 
message 47971 OVLAP EXPIRED SECRD FILE is 
issued. In both cases, the jot is 
canceled. 



$$EQEj^Q4 ; DA Open Output, Phase 4 Charts 



CG-CJ 



Objective: To create Format 1 and Format 3 
labels, and write their in the VTOC. Tc 
ensure that symbolic units are in sequence. 



When all the extents for the incoming 
file liave been processed, this phase exits 
to $$B0DAD3 to create labels. 



Entry; From $$B0DA0 3, 



Exits: 



^^BCDA03£ DA Open Qutput| Phase 3 

CE-CF 



Charts 



• To $$B0DA03 if additional extents are tc 
be processed. 



• Tc $$B0PEN if there are no user 
routines. 



Objective: To find an open area in the 
VTOC in which tc write labels. To set the 
DADSM bit on in the Format 4 label and 
compute the total number of extents. 



Entry; From $$B0DA02, 



Exits; 



To $$B0DA04 to create Fcrnat 1 and 
Format 3 labels. 



To $$BOMSGl if messages are to be 
printed . 



Method ; This phase first counts the number 
of extents on the syirbolic unit and saves 
the total number to be inserted in the 
label later, h test determines if the 
total number exceeded the liirit. If it 
did, an exit is made to phase $$B0KSG1 to 
issue a message to that effect. 

If the liirit has not been exceeded, the 
VOLl label is read to get the starting 
address of the VTOC. The Fcrmat 4 label, 
or VTDC definition label, is then read and 
the DADSM bit is set on in the Forirat 4 
label. This phase then writes and verifies 
the Format 4 label. 

The VTOC is then searched to find the 
first open area in which to write a label. 
This first open area contains the Format 1 
label, or in case of more than three 
extents, the Format 3 label. If a Format 3 
label is to be created, the VTOC is 
searched again to find a seccnd open area 
for the Format 1 label. 



• To $$BCDAai if there are user labels. 



• To $$B0MSG1 if messages are to be put 
out. 



TO $$ECFLPT if DASD file-protect is 
present. 



Method ; This phase tests for user labels. 
If there are any, a user label extent is 
created from the first prime data extent 
for the symbolic unit, and the first track 
becomes the user label track. If the 
limits in the prime data extent specify 
more than one track, the lower limit is 
updated by one track to form a new lower 
limit for the prime data extent. 

Fields specified in the DLBL are used to 
create the Format 1 label. The extents are 
then inserted into the Format 1 label from 
the extent storage area. If mere than 
three extents on the same symbolic unit are 
specified, the Format 1 label is written 
cut and the Format 3 label is created. The 
remaining extents are inserted into the 
Fcrmat 3 label. 

When a different symbolic unit or the 
end of the extent storage area is detected, 
the label currently being created is 
written out. If the last synbclic unit has 
not been processed, the DIBL volume 
sequence number is updated b;^ 1. The next 
symbolic unit is processed. If the 
symbolic unit has changed, the new symbolic 
unit must be in sequence. If not, phase 
$$B0]yiSGl is fetched to issue a message tc 
that effect. 



When the necessary number of open areas 
have been found, this phase exits to phase 
$$B0DA04 to create the labels. 



To process the next symbolic unit, this 
phase exits to phase $$BCDAC3 to find 
another open area for the next label. 
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$$BQD?^U1; DA Open Inputs O utput Ch arts 
CK-CL 



Objective: To check user header labels for 
an input file if the user elects the user 
label option. To create user header labels 
for an output file, to be written by the 
open routine on a DhSD device. To pass 
extents to the user frcm the labels if 
requested to do so by the user. 



Entry: 

• From $$B0DAI1 if an input file. 

• From $$B0DA04 if an output file. 

Exits: 

• To $$B0MSG1 if messages are to be 
printed. 

• To $$BDPEN at completion of CPEDi 
routine . 

Method; The VOLl label is read to get the 
starting address of the 7T0C. The VTOC is 
then searched to find the correct Format 1 
label. If the label cannot be found, a 
message is written by phase $$BCiy!SGl to 
that effect. 

When the correct label has been found, a 
test is made for user labels. If there are 
none, the routine branches tc pass extents 
if requested by the user. 

Then a test determines if the current 
label is a user label. If it is net, the 
routine branches to pass extents to the 
user. If the current label is a user 
label, a test determines if the device is a 
2321. If it is, the niaxiniuir nuirter of 
header labels for input or output files 
must be modified because only five user 
labels are possible with a 2321 file. 
Eight user labels may be used with a disk 
file. 

When the maximum constants have been 
modified (if necessary), this phase 
determines whether the file is an input or 
output file. If the file is an input file, 
the user header labels are read by this 
phase and checked to ensure that they are 
correct user header labels. The data 
portion is then passed to the user if the 
labels are correct. If the labels are not 
correct, a message is written by $$B0MSG1 
to that effect. The reading of labels 
continues until the maximum number of 
labels have been read (and rewritten if the 
user has updated the label), or the user 
signals that he does not want tc read any 
more labels. 



If the file is an output file, this 
phase creates the count field, including 
the ID, key length, and data length and the 
key field, (UHLl for the first user label 
to UHL5 cr QHLS for the maximum number of 
user labels). It also initializes the 
first four bytes of the data field which 
correspond to the key field. This phase 
then exits to the user in order to create 
the last 76 bytes of the data field. Upon 
return frcir the user, the label is written 
by this phase. 

The creating and writing of labels 
continues until the maximum number of 
labels has been written cr the user signals 
that he does not want to create any more 
labels. When the last label has been 
written, two file marks are created and 
written, the first of which is a header 
label with a data length of zero, and the 
second of which is a trailer label with a 
key of UTLC and a data length cf zero. 
When these file marks have been written, 
the routine branches tc pass extents. 

A test determines whether the user warts 
extents passed. If not, this phase 
proceeds to process the next symbolic unit. 
If the user does want extents passed, the 
extent information is passed via a fourteen 
byte area illustrated by Figure 15. 



JEyte 



j Extent Type 



(Byte 1 lExtent Sequence Number 
^„ ^ 4« . 

I Bytes 2 tc 5 | Extent Lower Limit 

h 



(Bytes 6 to 9 [Extent Upper Limit 
^ ^ ^^. 

(Bytes 10, 11 I Symbolic Unit 

h 



|Byt€ 12 [Original Bin fiumber 

I (0 for disk) 



F 

JByte 13 
I 



[Present Bin Number 
I (0 for disk) 

.i . 



Figure 15. Format of extent infcrmaticn tc 
user. 

Extents are passed until the end of the 
extent area in the label is detected. 
Another test determines whether a pointer 
to a Format 3 label is present. If sc, the 
Format 3 label is read and the extents in 
that label are passed to the user. This 
continues until there are no more extents 
within a label to be passed to the user. 

The phase then finds the next symbolic 
unit to process those labels and extents. 
When all the incoming extents in the extent 
storage area in main storage have been 
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processed, this phase exits to the TES 
processor, $$BOPEN. 



$$BCDACL; 
CM-CP 



EA Close, 



Charts 



Objective: To read or write standard user 
trailer labels, and to test for track hold. 

Entry ; From the Close Monitor or from a 
message writer phase. 

SlEii- ^^ ^^^ Close Monitor, $$ECLOSE; to 
$$BCMSG1 if a message is reqiiired? or to 
$$B0SDC2 to free any tracks. 

Method ; For input files, phase $$BODACL 
initializes the search CCK with a key 
argument of the first standard user trailer 
label (UTLO). The label is read and 
control is passed to the user's lafcel 
routine. Processing of standard user 
trailer labels continues until either the 



iraxiirurr nuirber of trailer labels are read 
(5 for 2321, 8 for disk devices), cr a file 
irark (a UTI with a data length of 0) is 
read. Control then returns tc the Close 
Monitor. 



Fcr output files, phase $$BCDilCI 
initializes the search CCW with a key 
argument of UTLCI, the end-of-file nark 
written after the last UHI. When the UTLO 
lafcel is found, control passes tc the 
user's label routine. Control returns to 
$$BOD?lCL tc write the standard user trailer 
lafcel on the user's lafcel track. The first 
standard user trailer label written is 
identified by UTLO and is written ever the 
6nd~cf-file mark previously identified by 
XjTLO. a new end-of~file irark (a standard 
user trailer label with a data length of 0) 
is written and the Close Monitor is fetched 
after all standard user trailer labels are 
processed. The maxiirum number of standard 
user trailer labels permitted (excluding 
the end-of~file raark>, is 5 for a 2321 and 
8 for a disk device. 
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INDEXED SEQUENTIAL ACCESS METHOD 



The indexed sequential access irethcd (ISAM) 
permits processing DASD records in both 
random and/cr sequential order fcy control 
information. For random processing, the 
user supplies the control inforiration 
(record key) of the desired record to ISAM, 
and then issues READ or WRITE iracrc 
instructions to transfer the specified 
record. For sequential processing, the 
user specifies the first reccrd to be 
processed, and then issues GET and/or PUT 
macro instructions to retrieve records in 
sequential order by record key. Variations 
in macro instructions permit: 

• A logical file of records to be loaded 
onto DASD (created) . 

• Individual records to be read from, 
added to, or updated in the file. 



RECCRD TYPES 

Logical records in an ISAM-crganized file 
must be fixed-length records either blocked 
or unblocked. Each physical record in the 
file must contain a key area. If the 
records are blocked, the record key 
(control inf criration) cf the highest (last) 



logical record in the blcck is stored in 
the key area of the block. 



STORAGE AREAS 



I/O Areas 

An I/O area must be specified for each ISAM 
file to be processed in a prcbleir prcgrair. 
This I/O area must be defined to contain 
sufficient space for the data area. If 
unblccked records are to be retrieved 
sequentially or records are tc be loaded cr 
added, space for a key field is required. 
Space for the count area irust be provided 
when the file is being leaded or additions 
to the file are being irade. Space fcr a 
sequence-link field is required when 
additions are to be irade to the file cr 
when records are retrieved frorr a file. 
The sequence-link field is used for 
overflow records (see Add Records to a 
File). 

Figure 16 shows the ISAK I/C area 
requirerrents. 



, .. , . ^ ^-.. — , , ^ —^ ^ 
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1 1 1 1 Factor 

L_ « X ~ — ± i m^* -. ~ — — 


j.« - -|. — « - -j. "1 or'»' - — — — - - - 

1 8 |Key Length] 10 j Record length 
4 + + ^„+ ^ 

Random Retrieve - Unblocked 1 - 1 — ] 10 ] Record length 
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Random or Sequential Retrieve -| ~ ] — | — (Record length (Including 
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] Record Length 
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Figure 16. ISAM I/O area requirements (in bytes) 
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LOAD: To create or extend a disk file of 
blocked or unblocked records. This area 
must be defined with enough capacity for an 
8-byte count field, a control inf oririation 
field (key area), and the data record (s). 

ADD, UNBLOCKED RECORDS; The output area 
for adding unblocked records tc an ISAM 
organized file must be defined with enough 
capacity for an 8-byte count field, a 
control information field (key area), and a 
data record area. The data record area 
must have space for a 10-byte sequence-link 
field that is used in conjunction with 
overflow records (see Add Ke cords to a 
F ile ) . The sequence-link field is required 
when a record is written on an overflow 
track. ISAM determines the correct 
sequence link and stores this information 
at the beginning of the data section of the 
I/O area. Vvhen the sequence-link field is 
not used, the ten unused bytes fall at the 
end of the data section and are ignored. 
Figure 17 shews the forirat cf the 10-byte 
sequence-link field. 

ADD I BLOCKED R£C:QRDS ; The output area for 
adding blocked records to an ISFMS 
organized file must contain enough space 
for an 8-byte count field, a control 
information field (key area) and a data 
section large enough tc contain the block 
of logical records. The minimum size for 
the data section is one logical record plus 
10- bytes to be used for a sequence-link 
field when required. 



SEQUENTIAL RETRIEVE, UNBLOCKED RECORDS ; 
The input area for reading unblocked 
records must contain sufficient capacity 



for a key area and a data area. The data 
area must include enough space for' the 
logical record plus 10-bytes for the 
sequence-link field of overflow records. 
If a record does not have a sequence-link 
field, the extra 10-bytes in the I/O area 
fall at the end of the data section and are 
ignored by the program. 



RANDOM RETRIEVE, UNBLOCKED RECORDS : The 
input area for reading unblocked records 
must contain space for a data area. The 
data area must include enough space for the 
logical record plus 10-bytes for the 
sequence-link field of an overflow record. 
If a record does not have a sequence-link 
field, the extra 10-tytes in the I/O area 
fall at the end of the data section and are 
ignored by the program. 



RETRIEVE , BLOC KED RECORD S! The input area 
for reading blocked records must contain 
space for a data area. The data area must 
be large enough to contain a full block cf 
records. The minimum size of the data area 
is one logical record plus 10-bytes for the 
sequence-link field i;sed with overflow 
records. 



When blocked or unblocked records are tc 
be retrieved and processed directly in the 
I/O area, a register must be specified. 
This register is used for indexing, to 
point to the beginning of each logical 
record when it is needed for processing. 
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The format of the sequence- link field of an overflow record or the index- level pointer is MBBCCHHRFP: 

231 1/2314/2319/3330 Disk 2321 Data Cell 


M = Extent Sequence Number 

BB=00 

CC = Cylinder Number 

HH = Head (Track) Number 

R = Record Number 

F ^ iccccciii) Entry Type and Index Level. See Note 1 . 

P = Pointer type. See Note 2. 


M = Extent Sequence Number 

BB- Cell Number 

CC -- Subcell and Strip Number 

HH = Cylinder and Head Number 

R ~ Record Number 

F - (ccccciii) Entry Type and Index Level . See Note 1 . 

P = Pointer type. See Note 2. 


Note 1 : F - ccccciil 


Entry Type (ccccc) 


Index Level (ill) 


DASD Address Information 


00000- Normal Entry (Unshared Track) 


000- Track< Index 
001 - Cylinder \ndex 
010- Master Index 


R = 


00001 - Normal Entry (Shared Track) 


000 - Track Index 


R = N (Points to First Data Record on the Track) 


00010- Overflow Entry (End) 


000 - Track Index or Sequence- Link Field 


R-255 


00011 - Overflow Entry (Chained) 


000 - Track Index or Sequence- Link Field 


R = N (Actual Record Address) 


00100- Dummy Entry (End) 


000 - Track Index 

001 - Cylinder Index 
010- A^aster Index 


M through R = 


00101 - Dummy Entry (Chained) 


001 - Cylinder Index 
010- Master Index 


M through H Points to First Track on Next Cylinder, R = 


00110- Inactive Entry 


000 - Track Index 

001 - Cylinder Index 
010 - Master Index 


M through R =^ 


Note 2: 

P = Seek Op~Code 


Seek Op -Code 


Meaning 


Index Level 


07 


Entry Points to Cylinder Index Track on Different Strip (2321 Data Cell) 


Master Index 


IB 


Entry Points to Cylinder Index Track on Same Cylinder 


Master Index 


OB 


Entry Points to Cylinder Index Track on Different Cylinder 


Master Index 


07 


Entry Points to Track Index 


Cylinder Index 


IB 


Normal Entry (Shared or Unshared) 


Track Index 


07 


Overflow Entry (End) 


Track Index or Sequence- Link Field 


07 


Overflow Entry (Chained) 


Track Index or Sequence- Link Field 


07 


Dummy Entry (End) 


Master, Cylinder and Track Indexes 


07 


Dummy Entry (Chained) 


Master and Cylinder Indexes 


07 


Inactive Entry 


Master, Cylirder and Track Indexes 



Figure 17. Format of sequence-link field/index level pointer. 
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Work Areas 



When a work area is specified on input, 
ISAM moves each record froir the I/O area to 
the work area. The problem program can 
then process the record in the wcrk area. 
When a work area is specified on output, 
ISAM moves the record frorr: the work area to 
the I/O area in preparation for 
transferring the record to DASD storage. 
If a work area is specified, an I/c 
register is not required. Figure 18 shows 
the ISAM work area requirements. 

J. , . ^ ^ — ^ 
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Unblocked 
Records 


1 


Blocked 
Reccrds 


Load 


1 


KL+DL or 10* 


1 


DI or 10* 


Add 




KL+DL or 10* 




DI or 
(KL+10)* 


Random 
Retrieve 




DL 




DL 


Sequential 
Retrieve 




KL+DL 




DL 



h 

where: 



-X 



K = Key 
D = Data 
L = Length 

^. ^ 

I* Whichever is larger. | 

L , ^ , . . . J 

Figure 18. ISAM work area requirements (in 
bytes) . 



and when records are to be added tc an 
organized file. 

2. An independent overflow area may be 
specified for storing all overflow 
reccrds for the logical file. In this 
case, a job control EXTEt>iT card must be 
included when the program is executed 
to specify the area cf the vcluire to be 
used fcr the overflow area. This area 
may be on the same volume with the data 
reccrds, or on a different volume that 
is on-line. However, it must be 
contained within one volume. (It must 
be the same kind of device as that 
containing the primie data area.) 

3. Cylinder overflow areas (method 1) and 
an independent overflow area (method 2) 
both may be used. In this case, 
overflow records are placed first in 
the cylinder overflow areas within the 
data file. When any cylinder overflew 
area becomes filled, the additional 
overflow records froir that cylinder are 
written in the independent overflow 
area. The specifications required fcr 
both methods 1 and 2 must be included 
for this combined method of handling 
overflows. 

All records placed in the overflow area 
will be in the unblocked format and will 
have a sequence-link field prefixed tc each 
record. There must always be one prime 
data track available (for a DASD record 
that has a data length of 0) when additions 
are being made to the last track in the 
prime data area containing records. The 
format of the overflow area upper limits 
(MEECCHHR) is shown in Figure 25. 



OVERFLOW AREAS 



INDEXES 



The location of the overflow area(s) for a 
logical file may be specified by the user. 
The overflow areas may be built by one of 
three methods: 

1. Overflow areas for records may be 
located on each cylinder within the 
prime data area that is specified by a 
job control extent card for the data 
file. In this case, the user must 
specify the number of tracks tc be 
reserved for overflow on each cylinder 
occupied by the file. The overflow 
records that occur within a particular 
cylinder are written in the cylinder 
overflow area for that cylinder. 

The number of tracks to be reserved 
for each cylinder overflow area must be 
specified in the DTFIS entry CYLOFL 
when a file of reccrds is tc be loaded 



As ISAM loads the records, it creates a set 
cf two or three indexes to be used to 
control the processing and Iccaticn of the 
data reccrds. Two indexes, the track index 
and the cylinder index, are alwa;^s built 
fcr each file. The third, a master index, 
is bi:ilt only when specified by the user. 
A master index should be specified only for 
large files. As a guide line, if a 
cylinder index occupies less than five 
tracks, it is usually faster tc search only 
the cylinder index (followed by a search on 
the track index) than to search a master 
index, alsc. 

Indexes are developed as a series of 
entries, each including the address cf a 
DASD track and the highest (last) record 
key on that track or cylinder. Each entry 
is a separate DASD record composed of a key 
area and a data area. The key area 
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contains the highest key en the track cr 
cylinder^ and its length CnumDer of bytes) 
is the same as the key-area length 
specified ty the user for the data records. 
The data area cf each index reccrd is 10 
bytes in size and contains the physical 
address of the logical reccrd cr cf another 
index. Figure 17 shows the forirat of the 
10-byte index level pointer (index data 
area) . 



Track Index (TI) 



The lowest level index for logical file is 
the track index. This index has two 
important functions. 

• Point to the correct track in the 
cylinder that contains the specified 
key. 

• Provide direct linkage to the record 
overflow areas. 

Each track index is built en the 
cylinder that it is indexing. The track 
index is located on the first track of each 
cylinder. The index can occupy a partial 
track, a full track, or more than one 
track. If the track index dees net fill a 
track and if the remaining portion is large 
enough to held any priire data records, then 
prime data records are stored on the 
remaining pcrticn of the track. 

The track index can contain the 
folloi«ring types of entries: 



• Normal Entry - Unshared 

• Normal Entry - Shared 

• Overflow Entry - Chained 

• Overflew Entry - End 

• Dummy Entry - End 

• Inactive Entry 

Vihen first created, the track index is 
formatted Kith two entries fcr each track 
used en the cylinder. These two entries 
are the normal entry and the overflew 
entry. Each entry is a EASD record 
containing a key area and a data area. 
Figure 19 is an example cf a track index 
built fcr the prime data area of a logical 
file utilizing eight tracks en a cylinder. 



The normal entry 
entries. A.fter a tr 
records for a file, 
data area the addres 
referenced by the en 
last reccrd on the t 
the key area of the 
area is changed each 
to the track, so tha 
the key cf the last 
(See Add Records to 



is the first cf the twc 
ack is leaded with 
this entry has in its 
s of the track 
tr}'. The key cf the 
rack is maintained in 
normal entry. The key 
time a record is added 
t it always reflects 
record on the track. 
a File.) 



When the first track containing prime 
data records is shared with the last cr 
cnly track cf the track index, the data 
area of the track index normal entry is 
modified tc indicate a shared entry. 

Ihe cverflew entry is used both in the 
track index and in the sequence-link fxeld 
cf an overflow record. See the section Add 
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K = Key Area 
D = Data Areo 
COCR = Cylinder Overflow Control Record (RO) 

Figure 19. Schematic example cf a track index, 
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Records to a File for a description of the 
overflow entry in the sequence-link field. 
The overflow entry is required for handling 
overflow chaining when additional records 
are inserted into the file. Before a 
record is added to a track, the track index 
overflow entry for that track is similar to 
the normal entry in that they both contain 
the key of the last record en the track and 
the address of the track. Note, at this 
point the last record en the track is the 
last record placed on the track when the 
file was originally loaded, when overflow 
records occur, the data area of the 
overflow entry is changed tc reflect the 
address of the lowest record in the 
overflow chain. An overflew chain is 
developed for each track. The key area of 
the overflow entry is not changed, but 
always contains the key of the highest 
record, because records added tc a track 
always have keys lower than the highest key 
originally leaded onto the track. The 
technique used to add records is explained 
in the section Add Records tc a File. 

The two types of overflow entrJ es in the 
track index are overflew chained entries 
and overflow end entries (see Figure 17). 
The data field of the track index overflow 
entry is initially set to indicate an 
overflow end entry. If an cverficw chain 
is later built, the overflow end entry 
indicates the last overflow record in the 
chain, h overflow chained entry is built 
to indicate an overflow chain exists. The 
data field of a overflow chained entry 
contains a pointer to the lowest record in 
the overflow chain. 

The last entry on a track index is 
always a duiriry end entry. The duiriry end 
entry indicates the end of the track index 
and indicates that any follcwing records 
are logical file data records. 

The key area of the dummy record is the 
same length as the user's key length and 
contains bytes of all one-bits. The data 
field is the same length as the normal 
entries but is a null field. 

Inactive track index entries are built 
during the lead operation. For a 2311 DASD 
device type, inactive entries are written 
for the unused portion of the prime data 
extent. For all other DASD device types. 



inactive entries are written only for the 
unused portion of the last cylinder 
containing prime data reccrds. The key 
area of inactive entry contains bytes of 
all one-bits and is the same length as the 
user's key length. The data field is the 
same length as the normal entry. See 
Figure 17 for the format of the track index 
data area entries. 

When the cylinder overflow cpticn is 
specified by the user, record zero (track 
descriptor record) of track zerc in the 
track index is used as a Cylinder Overflow 
Control Record (COCR) . This entry is set 
up in the data area of record zero (RO). 
The address of the last cverficw reccrd en 
the cylinder and the number of tracks 
remaining in the cylinder overflew area are 
maintained by ISAM in this record. The 
format of the COCR is HHROOTOO, where 
HHR = Address of last overflow record on 
cylinder. T = Num.ber of tracks remaining 
in the cylinder overflow area. The COCR 
format is shown in Figure 20. 



Cylinder Index ((:i) 

The cylinder index is present for all 
ISAM-organized files. It is an 
intermediate level index i^sed te point tc 
the correct track index. 

The cylinder index can contain the 
following types of entries: 

• Normal Entry 

• Dummy Entry - chained 

• Dummy Entry - End 

• Inactive Entry 



A cylinder 
contain one in 
in the prime d 
entry contains 
associated (in 
corresponding 
cylinder, and 
index for that 
example of a c 
file requiring 



index is brilt by ISAM te 
dex entry for each cylinder 
ata area of the file. This 

the highest record key 

the cylinder cr a 
overflow area) with the 
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cylinder. Figure 21 is an 
ylinder index built for a 

nine cylinders. 
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Figure 20. Cylinder overflew ccntrol record (COCR) , 
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Tha cylinder index can be located 
i^7herever the user chooses except on one of 
the cylinders that contains data records 
for the file. It nust be on a separate 
cylinder or it can be placed on a separate 
volume that will be on-line whenever the 
logical file is processed. The cylinder 
index can also be located en one cr more 
successive cylinders. When more than one 
cylinder is required, the last entry on 
each cylinder is a dummy chained entry that 
points to the first track cf the next 
cylinder. However, the cylinder index 
cannot be continued frcir one vcluKe to 
another. A job control EXTEl^T card must be 
used to specify the correct location for 
this index. 



The last entry in the cylinder index is 
a dummy end entry. The key cf the dummy 
entry is the same length as the user's key 
length and contains bytes of all one-bits. 
The data field is of the same length as the 
normal entries, but is a null field. 

Inactive cylinder index entries have the 
same format as the track index inactive 
entries. They are written to provide for 
future expansion of the file and for 
OS/VSl and 0S/VS2 compatibility. An 
inactive cylinder index entry is written 
for each track in the cylinder containing 
track index inactive entries. See Figure 



17 for the format of the cylinder index 
data area entries. 



Master Index (MI) 



The master index is the highest level index 
for a logical file built by ISAM . This 
index is cpticnal; and if required, must be 
specified by the user in the DTFIS entry 
MSTIND. 

The master index can contain the 
following types of entries: 

• Normal Entry 

• Dummy Entry - Chained 

• Dummy Entry - End 

• Inactive Entry 

The master index must immediately 
precede the cylinder index on a volumte, and 
it may be located on one cr mere successive 
cylinders. Whenever it is continued from 
cne cylinder to another, the last index 
entry en the first cylinder contains a 
linkage field that points to the first 
track cf the next cylinder. This type of 
entry is a dummy chained entry. A master 
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MASTER JNDEX 
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Figure 22. Schematic exairple cf a master index. 



index may net be continued froir cne volume 
to another. It must be completely 
contained mthin one vcluire. The last 
track assigned to the master index area 
must be contiguous to the first track of 
the cylinder index area. A jot control 
EXTENT card must be used to specify the 
correct location. Like the cylinder index, 
it can be located on the same volume with 
the data records or on a different volume 
that i«?ill be on-line whenever the records 
are processed. 

The entries in this index point to each 
track of the cylinder index. Each entry 
contains the highest record key on the 
cylinder index track and the address of 
that track. Fcr example, if a master index 
is located on track x and a cylinder index 
is located en tracks x+1 through x+20, the 
master index oEiight contain the entries 
shown in Figure 22. 

The last entry on the master index is a 
dummy end entry. The key of the dummy end 
entry is the same length as the user's key 
length and contains bytes of all one-bits. 
The data field is of the same length as the 
normal entries, but is a null field. 

Inactive master index entries have the 
same format as the track index inactive 
entries. They are written to provide for 
future expansion of the file and fcr DS/VS 
compatibility, hn inactive entry is 
written for each track of the cylinder 
index containing inactive entries. See 
Figure 17 fcr the format of the master 
index data area entries. 



FUNCTIONS PERFORMED BY ISAM 



ISAM performs the following four basic 
functions as specified in the DTFIS entry, 
ICRCUT: 



LOAD. To build a logical file on DASD 
cr tc extend a file fceycnd the highest 
record presently in an organized file. 



ADD. To insert nevv records into an 
organized file. 



• RETRVE. To retrieve records from a 
file fcr either random or sequential 
processing and/or updating. 

• ADDRTR. Both to insert new records 
into a file (ADD) and to retrieve 
records for processing and/cr updating 
(RTR) . 



LOAD OR EXTEND A DASD FILE 



Data records to be loaded onto a DASD file 
must be sorted into sequence by record key, 
before being presented tc the ISAM lead 
routines. 

The data records are written by ISAM 
onto a DASD track in an area cf the file 
(called the prime data area) specified by 
the user. The position cf each logical 
record is a function of the record key used 
in the presort operation. That is, each 
record is written one after the other onto 
the prime data area of the logical file. 
The user must specify one extent for the 
prime data area on one pack. If a file is 
tc be loaded onto msore than one pack, the 
prime data area must continue frcm the last 
track cf one pack to the first track of 
another pack. Extents must be adjacent. 
The starting and ending limits cf the prime 
data area are specified by the user in job 
control EXTENT cards. In addition, all 
packs to be used for a multipack file must 
be on-line throughout the load operation. 
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ADD RECORDS TO A FILE 



After a logical file has been organized on 
DASD, it nay subsequently become necessary 
to add records to the file. These records 
may contain keys that are above the highest 
key presently in the file and^ thus, 
constitute an extension of the file. They 
may also contain keys that fall between or 
below keys already in the file and 
therefore require insertion in the proper 
sequence in the organized file. 



If all records to be added have keys 
that are higher than the highest key in the 
organized file, the upper liEit cf the 
prime data area of the file can be adjusted 
(if necessary) by the specification in a 
job control EXTENT card, and the new 
records can be added by presorting them and 
loading them into the file. Ho overflow 
area is required. The file is merely 
extended further on the volume. However, 
new records can be batched with the ncrmal 
additions and added to the end cf the file. 

If records must be inserted among those 
already organized, an overflow area is 
required. ISAM uses the overflew area to 
permit the insertion of records without 
necessitating a complete reorganization of 
the established file. The fast random and 
sequential retrieval of records is 
maintained by inserting references to the 
overflow chains in the track indexes, and 
by using a chaining technique in the 
overflow records. For chaining, a 
sequence-link field is prefixed to the 
user's data record in the overflew area. 
The sequeQce-link field enables ISAM to 
follow a chain cf sequential records in a 
search for a particular record. This 
10-byte sequence-link field has twc types 
of entries: an overflow chained entry and 
an overflow end entry (see Figure 17) . 

The overflow chained entry contains the 
address of the record in the overflow area 
that has the next-higher key. The overflow 
end entry indicates the end of the chain. 
All records in the overflow area are 
unblocked, regardless of the specification 
(in DTFIS RECFORM) for the data records in 
the logical file. 

To add a record by insertion, ISAM 
searches the established indexes first to 
determine on which track the record must be 
inserted. After the proper track index 
entries are located, the pcint cf insertion 
can then be determined. The keys of the 
last records on the tracks in the 
originally organized file determine the 
track where an inserted reccrd belongs. A 
record is always inserted on the track 
where: 



1. The last key is higher than the 
insertion, and 

2. The last key of the preceding track is 
lower than the insertion. 

After the proper track is determined, 
ISAM searches the individual records en the 
track or overflow area (if necessary) to 
find where the record belongs in key order. 
This results in either of two conditions: 

1. The record falls between two records 
presently on the track. ISAM adds the 
record by inserting it in the proper 
sequence and shifting each succeeding 
reccrd one record location higher on 
the track, until the end reccrd is 
forced off the track. ISAM transfers 
the end record to the overflew area, 
and prefixes the record (data area) 
with a sequence-link field. The first 
time a record is inserted on a track , 
the sequence-link of the overflow 
reccrd indicates that this is the 
highest record associated with the 
track. Thereafter, the sequence-link 
field of each overflew records points 
to the next-higher record for that 
track. 

ISAM also updates the track index to 
reflect this change. The ncrmal entry 
for the track has the key field changed 
to indicate the new last reccrd located 
en the track. The overflow entry for 
the track has the track address (in the 
data area) changed to point to the 
address of the overflow reccrd. 

2. The record falls bet^ieen the last 
record presently on the track and the 
last record originally on the track. 
Thus, it belongs in the overflow area. 
ISAM writes the record in the overflew 
area fellcwing the last record 
previously written. ISAM searches 
through the chain of records associated 
with the corresponding track fcr this 
record and identifies the sequential 
position the record should take. Then 
the sequence-link fields of the new 
record, and of the record preceding it 
by sequential key, are adjusted to 
point to the proper records. 



RANDOM RECCRD RETRIEVAI 



Random retrieval from an indexed-sequential 
file is performed by the READ macro 
instruction. In response to the READ 
instructien, ISAM searches the indexes to 
locate the track containing the desired 
record and then searches the track fcr the 
record. The block containing the record is 
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read and the record is made available for 
processing. For both blocked and unblocked 
files, only the data portion of the record 
is read; the key field is net read. 

After record processing has teen 
completed, a WRITE macro instruction can be 
issued to write the record tack in its 
original location. To alloT<< overlap of 
input and output operations with 
processing , REhD and WRITE dc net wait for 
completion of the operations, but return 
control to the probleir prograir. The WAITF 
macro instruction is used at the point in 
the prograir where processing must be held 
up until the I/O operation is complete. 



SEQUENTI?kL RECORD RETRIEVAL 



a record te a file that is being processed 
sequentially, it must be preceded by an 
ESETL. After adding the new record, the 
SETL macro instruction can be reissued, 
specifying the last record processed as the 
new starting point. 



DTFIS MACRO 



Before an indexed sequen 
processed, it must be de 
declarative macro. Scire 
within the DTFIS table g 
macro instruction are no 
filled in until the file 
execution of the program 
fields in the table are 
file in the DASD format- 



tial file can be 
fined by the DTFIS 

cf the fields 
enerated from this 
t determined er 

is opened during 
Many ef the 
retained with the 
2 label. 



Sequential retrieval from an 
indexed-sequential file begins at a 
location or record specified in a SETL 
macro instruction. Input blocks are read 
and each record is presented in sequence in 
response to the GET macro instruction. 
When necessary, ISAM reads those records 
from the overflow area that were displaced 
from the prime data area by added records. 
The track index overflow entry is used to 
indicate when this is necessary. The key 
field of unblocked records is read along 
with the data field. With blocked records, 
however, the key of the block (repeated in 
the last record of the block) is net read. 

After record processing has been 
completed, a PUT can be issued to write the 
record back into its original location. If 
the file is blocked, the entire block is 
written back after either all records in 
the block have been processed and a GET is 
issued for the first record in the next 
block or an ESETL macro instruction is 
issued. The PUT macro instruction does not 
have to be issued for records that have not 
been changed; a series of GETs can be 
issued with no intervening PUT. The entire 
block is written back into the file if, and 
only if, a PUT is issued for any record in 
the block. 

Once a SETL macro instruction has been 
issued, GET and PUT are the only I/O 
operations that can be performed before 
issuing an ESETL macro instruction. For 
example, if a WRITE is to be issued to add 



In addition to the parameters that 
describe the file to be processed, the 
DTFIS macro instruction inclijdes certain 
param.eters identical to those in the ISMOD 
macro instruction. 

The following five DTF tables are 
generated according to function. They are: 

DTFIS LOAD (Figure 23) 

DTFIS ADD (Figure 24) 

DTFIS RETRVE, RANDOM (Figure 27) 

DTilS RETRVE, SEQKTI (Figure 28) 

DTFIS ADDRTR (Figure 29) 

In addition, the DTF tables for ADD, 
RETRVE, and ADDRTR are divided irtc the 
three parts that appear in the assembly 
listing. The first part cf the DTF table 
is common to the ADD, RETRVE and ADDRTR 
functions. The rest of the table is 
variable and is generated according to the 
options specified in the DTFIS detail 
entries. 

For a description of the DTFIS header 
entry and detail entries see the DOS/VS 
Supervis or and I/O Macros , GC33-5373. 

Ncte; The DTFIS may te altered when 
used by any of the compilers. For further 
information, refer to the Programmer's 
Guide for the appropriate compiler. 



72 DOS/VS LIOCS Volume 3 DAM and ISAM 



r ""*"*"*"""— — 


-^^ 


—J. — ^ ^ ^ ^ ^^ 


1 DTF Ikssernbly 


1 Module 








1 Label 


IDSECT Label 
.j.« .. 


1 Bytes 
.J. ^«_ 


Bits 


Function 




-^- — — - — 


-^ ^— . — 







1 ^Filename 


1 IJHKCCB 


1 0-15 
1 (0-F) 




Coirirand Control Block (CCB) . 






1 16 


0-1 


Not used. 




1 \ 


1 (10) 


2 
3 
4 

5 
6 
7 


1 = COBOL open ignore opticn. 

Not used. 

1 = DTF table address constants relocated by 

CPENF. 
Not used. 

1 = Data set security. 
1 = Wrong blocksize error during file 
1 extension. 






1 17-19 




[Address cf Icgic module. 






1 (11-13) 










1 20 




IFile type fcr OPEN/ CLOSE (X'24' = LOAD). 






1 (14) 








1 IJHKOPCO 


1 21 
1 (15) 

1 22-28 
1 (16-lC) 



1 
2 
3 
4 

5 
6 
7 


Option byte. 

1 = 2321 (version 1/2 only). 
Not used. 

|1 = Cylinder overflow option. 
Not used. 
|1 = Elccked records (used by previous 

versions) . 
1 = Verify. 

1 = Indexes on 2321 (Version 1/2 only) . 
|1 = 2 I/O areas present. 

IFile name. 




1 IJHKPDEV 


1 29 
1 (ID) 




Prime data device type indicatcr. 
1 X'OO' = 2311 

X'Cl' = 2314/2319 
1 X'02" = 2321 

^•C4« = 3330. 


iSFilename.C 


1 IJHKCCOD 


1 30 
1 (IE) 




1 
2 
3 

5 
6 
7 


Status byte. 

1 = Uncorrectable DASD errcr (except WLR 
\ error) . 

1 = WLR error. 
|1 = Prime data area full. 

1 = Cylinder index area not large encugh tc 
1 reference prime data area. Set on only 
if error detected at SETFL time. 

1 = Master index not large enough to 

reference prime data area. Set en only 
1 if errcr detected at SETFL time. 

1 = Duplicate record. 
|1 = sequence error. 

1 = No EOF record written in priire data 
1 area. 



Figure 23. DTFIS LOAD table (1 cf 5). 
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p ^ 


-T 


"T"" """"""' 


—J. , . . ^ 


1 DTF Assembly | Module 








1 Label IDSECT Label 

L J. 


1 Bytes 

_4. 


[Bits 

.i 


1 Function | 

_4. , , ^ , 1 


r T 


_-|. 




-^ -. — f 


1 1 IJHKHNDV 


1 31 




|High level index device type indicator. \ 




1 (If) 




\ X'CO' = 2311 1 
1 X'Ol' = 2314/2319 | 
1 X'C2« = 2321 1 
1 X'04« = 3330. ( 




1 32 




[Relative position of the DSKXTN (logical | 




1 (20) 




(unit, cell nmiber) table (in v;crds). This | 
lvalue is the length of the DTF table divided! 
|by 4. 1 




1 33-34 




1 First prime data track in cylinder (HH) . | 




1 (21-22) 








1 35 




iFirst prime data record in cylinder (R) . | 




1 (23) 








1 36-37 




|Last prime data track in c:^linder (HH) . | 




1 (24-25) 








1 38 




JHigh record on master inde3</cylinder index | 




1 (26) 




jtrack (R) . | 


1 1 IJHKNRPD 


1 39 
1 (27) 




|High reccrd en prime data track (R). | 




1 40 




Ifligh reccrd en overflow track (r). | 




1 (28) 






1 1 IJHKNRSH 


1 41 




|High record on last track index track in | 




1 (29) 




(cylinder (whether shared or unshared). | 


1 1 IJHKNRTI 


1 42 




|High reccrd en track index track other than ( 




1 (2A) 




jlast in cylinder. If only one track index | 
1 track in cylinder, it is equal to Byte 41. | 


1 1 IJHKFLAG 


1 ^3 

1 (2E) 




jcondition Cede. | 






1 


|1 = WLR checks requested (for extension). | 






1 1 


|1 = First record in file. | 






1 2 


jl = Prime data extent full. | 






1 3 


|1 = Master index/cylinder index extent too | 
1 small . 1 






t ^ 


|1 = Prime data upper limit has been | 
1 increased (for extension). | 






1 5 


|1 = Extensicn. | 






1 6-7 


|Not used. 1 




1 44-50 




jprime data lower limit (KBECCHH) . | 




1 (2C-32) 








1 51-57 




(Cylinder index lower limit (MBECCHH) . | 




1 (33-39) 








1 58-64 




(Master index lower limit (ly.EECCHH) . | 




1 (3A-40) 








1 65 




(Number of index levels (1 if cylinder index, ( 




1 (41) 




(2 if master index). ( 



Figure 23. DTFIS LOAD table (2 of 5). 
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J. . — , ^ — J. 

DTF Assembly 

Label 

H- 

SFilenaroe. H 



Module 
DSECT Label 



Bytes 



Bits 



Function 



IJHKLPDR 



IJHKLGLN 



IJHKBKLN 



IJHKNRCD 



h 



66-73 

(42-49) 

74-75 
(4A-4E) 
76-77 
(4C-4D) 

78-79 

(4E-4F) 

80-81 

(50-51) 

82-83 

(52-53) 

84-85 

(54-55) 

86-87 

(56-57) 

88-89 

(58-59) 

90-91 

(5A-5E) 

92-93 

(5C-5D) 

94-95 

(5E-5F) 



Address of last prime data record 
(MEECCHHR) . 

Logical record length. 

Key length. 



Block length (logical record length tiires 
nuirber of records) . 

Overflow record length (logical record 
length +10) . 

Blocking factor (number of logical records). 

Index entry length (key length +10). 

Priire data record length (key length + 

physical record length) . 

Overflew record length with key (key length 

+ logical record length + 10). 

Prirre data record format length (key length 

+ physical record length + 8). 

Overflew record format length (key length + 

logical record length + 18). 

Key location (in blocked records). 



This is the end of the common DTF area. The fcrmat of the remainder of the table 
is variable and is generated according to the parameters specified in the DTFIS 
macro instruction. 



h 



^Filename. S 


1 

IJHKSBKT 

1 


96-103 
(60-67) 




SFilename.P 


1 IJHKLGCT 

1 
1 


104-105 
(68-69) 
106-107 
(6A-6B) 






1 

IJHKPRCT 

1 

1 
1 

1 


108-111 
(6C-6F) 
112 
(70) 


0-1 1 

2 1 

3-5 1 

6 1 

7 1 




i IJHKLTIR 
1 


113-117 
(71-75) 






1 

IJHKLCIR 

1 


118-122 
(76-7A) 






IJHKLMIR 


123-127 
(7B-7F) 





Seek/search address area (MBBCCHHR). 

Logical record counter (for blcckii^g) . 
Number of bytes for high level index. 

Prirre data record counter (logical records). 

Status indicators. 

Wot used. 

1= File closed. 

Not used. 

1 = Last prime data track full. 

1 = Last block full. 

Last track index normal entry address 
(CCHHH) . 

Last cylinder index entry address (CCHHR). 
Last master index entry address (CCHHR) . 



Figure 23. DTFIS LOAD table (3 of 5), 
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J. ^ ^ 

|DTF Assembly | Module 
1 Label IDSECT Label 

! J 


T 

1 

Bytes |Bit 

L 


^ ^ 

:s 1 Function 

1 , , , 


r 1 

iSFilenams.E | 






1 

|CCW build area. See description of 
liracrc, phase 1 ~ $$BSETFI, 


SETFL 




128- 
(80- 
136- 
(88- 
14t^- 
(90- 


-135 1 
-87) 1 
-143 1 
-8f ) 1 
-151 1 
-97) 1 


|Seek CCW. 

1 Search IE equal CCW. 

|TIC CCVi. 




1 1 IJHKRDWR 


152- 
(98- 
160- 
(AO- 
168- 
(A8- 
176- 
(BO- 


-159 1 
-9F) 1 
-167 1 
-A7) 1 
-175 1 
-AF) 1 
-183 1 
-B7) 1 


|Read/Write CCW. 
[Search ID equal CCW. 
|TIC CCW. 
1 verify CCW. 




iSFilename.M | IJHKADCN 


184- 
(B8- 
188- 
(BC- 
192- 
(CO- 


-187 1 
•EB) 1 
-191 1 
-BF) 1 
-195 1 
-C3) 1 


[Address of lOAREAL. 

[Address cf data in WORkL. (FIXBIK = address 
jof WORKL; FIXQNB = address cf WORKL + key). 
[Address cf key in WCRKI. (FIXEIK = address 
(of WORKL + KEYLOC - 1; FIXUNB = address cf 
[WORKL.) 


1 1 IJHKBPCS 


196- 
(C4- 


"19 9 1 
-C7) 1 


[Block positicn indicator (address of logical 
[record in ICAREAL) . 


1 1 IJHKMIXT 


200 
(C81 

201- 
(C9- 
205- 
(CD- 


|0-^ 
1 3 
|4-£ 
1 7 

-204 1 
-CO 1 
-208 1 
-DO) 1 


[Master index, extension indicator. 
\ [Not used. 

[1 = Extending file^ = Creating file. 
> [Not used. 

[1 = Master index being used, = Nc iraster 

[index being used. 

[Cylinder index upper liir.it (CCHH) . 

[Master index upper limit (CCHH). 


1 1 IJHKPDUL 


209- 
(Dl- 
216- 
(D8- 


-215 1 
-D7) 1 
-222 1 
-DE) 1 


[Prime data upper limit (old upper limit, if 
1 extension) (jy.BBCCHH) . 

[Prime data new upper limit (for extension) 
1 (MBBCCHH) . 


1 1 IJHKLTMl 


223 
(DF] 


1 1 


[Last prime data track in cylinder - 


1. 


1 1 IJHKKLJyil 


224- 
(EO- 


-225 1 
-El) 1 


[Key length - 1. 




1 1 IJHKLLMl 


226- 
(E2- 


-227 1 

-E3) 1 


[Logical record length - 1. 




1 1 IJHKTIDR 
1 1 


228" 

1 (E4- 


-229 1 
-E5) 1 


[Address cf track index dummy record 


(HR). 


1 1 IJHKBFCR 


[230- 
, (E6- 


-231 1 
-E7) 1 


[Address of record before first prime data 
[reccrd in cylinder (HR) . 



L X 



X 



X X 



J 



Figure 23. DTFIS LOAD table (4 cf 5) 
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-T-^ 



DTF Aissembly 
Label 

1 

1 


Module 
DSECT Label 

^ ^ 

UaKNRCM 

1 


Bytes JBil 

232 1 
(E8) 1 


:s 1 Function 

.__+-„„ 

INuEber of recorcas on master index/ cylinder 
[index track - 1. 


1 
1 


IJHKCMCT 
1 

1 


233-236 1 
(E9-EC) 1 


[Master index/cylinder index DASD address 

IcoEtrol field (CCHH) . 

1 2311 = X'CCC70009« 

1 2314/2319 = X*00C70013' 

1 2321 = X«13090413' 

1 3330 = X'01FF0012' 




1 

IJHKPDCT 
1 

1 

1 


237-239 1 
(ED-EF) 1 


iPriire data address control field (CCH) . 

1 2311 = X«CCC7CC' 

1 2314/2319 = X'00C700' 

1 2321 = X«130904« 

1 3330 = X'OIFFOO' 


1 
1 
1 


1 

IJHKPDBG 


240-242 1 
(F0-F2) 1 


jPriire data beginning of volume (CCH). 

1 2311 = X'CCOIOO* 

1 2314/2319 = X« 000100' 

1 2321 = X'CCOOOl' 

1 3330 = X« 000100' 


! 
1 


IJHKPDEN 

1 

1 


243-245 1 
(F3-F5) 1 


(Priire data end of volume (CCH). 

1 2311 = X'CCC700' 

1 2314/2319 = X'00C700' 

1 2321 = X'130504' 

1 3330 = X' 019300' 


1 


1 
1 


246-247 1 
(F6-F7) 1 


jused fcr alignment. 


1 
SFilename.E 

1 
1 

1 
1 


1 IJHKXTEL 

1 

1 


248-251^ 1 
(F8-FB) 1 
256-259^ 1 
(100-103) 1 
260-263 1 
(104-107) 1 
264-267 1 
(108-lOB) 1 


[First entry in DSKXTK table (Icgical unit, 

[cell number) . 

[X'FFFFFFFF' = End of DSKXTti table. 

(Address of ICAREA2 . 

[Address used to relocate ICABEA2. 



j.-.^ ^„>X X ^± X ^ 

I^Eacti entry in the DSKXTN table is four bytes long. The m.inimum member of 
entries is two. There is one entry per extent. 

I ^Location of the end-of- table indicator depends on length of DSKXTN table. 

L ^ , . , . . , , , ^_ , J 

Numbers in parentheses are displacem.ents in hexadecimal notation. 
Figure 23. DTFIS LOAD table (5 of 5). 
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J. „, 


-^ ^. 


-^ J. ^ 


|DTF Assembly 


1 Module 


1 






1 Label 


IDSECT Label 

.x^ ^ 


1 Bytes 

„4. , . ^ 


Bits 


1 Function 

L , . , 


f"~ —'—'""'——'""''——'—""—* " 


.^ 


«^ — M 




|. 


1 4 File name 


1 IJHCCCB 


1 0-15 
1 (0-F) 




CCB. 






1 16 


0-1 


Not used. 






1 (10) 


2 
3 
4 

5 
6 
7 


|1 = COBOL open ignore option. 

|1 = Track hold specified. 

|1 = CTF table address constants relocated by 

OPENR. 
|Not used. 

1 = Data set security. 

|1 = Wrcng blccksize error during addition to 
file. 






1 17-19 




1 Logic Ecdule address. 






1 (11-13) 










1 20 




iFile type fcr OPEN/CLOSE (X'25' = ADD). 






1 (14) 








1 IJHCOPT 


1 21 
1 (15) 

1 22-28 
1 (16-lC) 



1 
2 
3 
4 
5 
6-7 


Option byte. 

1 = 2321 (Version 1/2 only). 
|1 = Prime data in core. 
|1 = Cylinder overflow. 
|1 = Cylinder index in core. 

1 = Blocked records. 
|1 = Verify. 

Not used. 
|DTF file name. 




1 IJHCPDEV 


1 29 
1 (ID) 




Prime data device type indicator . 
1 X'OO' = 2311 

X*C1' = 2314/2319 
1 X*02' = 2321 

X'C4' = 3330. 


iSFilename.C 


1 IJHCSTEY 


1 30 
1 (IE) 



1 
2 
3 
4 
5 
6 
7 


Status byte. 

1 1 = Uncorrectable DASD error (except WLR) . 
|1 = WLR errcr. 
1 = EOF (sequential). 
|1 = No record found. 
il = Illegal ID specified. 
|1 = Duplicate record sensed. 
|1 = Overflow area full. 
|1 = Record retrieved from overflow area. 




1 IJHCHNDV 


1 31 
1 (IF) 




1 Highest level index device type. 

1 X'OO* = 2311 

1 X'Cl' = 2314/2319 

1 X'02' = 2321 

1 X'C4« = 3330. 



L X X . X X . 



J 



Figure 24. DTFIS ADD table, part 1 (1 of 4). 
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r T 1 

|DFT Assembler 1 Module 
1 Label IDSECT Label 

1 X 


Bytes 


Bits 


1 Function 

_ 1 , ^_ , , . , . , 


r -^ 


1 IJHCPNT 

1 

1 1 

1 

1 
1 

1 

1 
1 
1 


, 

r 

32 
(20) 

1 
33-35 

(21-23) 
36-37 

(24-25) 

38 
(26) 




T ' — 

jRelative position of the DSKXTK (logical 
[unity cell ntanber) table (in wcrds). This 
lvalue is the length of the DTF table divided 
|by 4. 
[First prime data record in cylinder (HHR) . 

[Last prime data track in cylinder (HH) . 

[High record number on master 
(index/cylinder index track (R) . 




1 IJHCPDH 

1 
1 

1 


39 
(27) 
40 
(28) 




[High reccrd number on prime data track (r) . 
(High reccrd number on overflow track (R). 




1 

1 IJHCSTH 
1 


41 
(29) 




[High record number on shared track (R) . 




1 IJHCTIH 
1 


42 
(2A) 




[High record num.ber on track index (TI) 
[track (R). 




1 

1 IJHCRTR 

1 
( 

1 
1 


43 
(2B) 

44-50 
(2C-32) 



1 
2 
3 
4 
5 
6 
7 


(Retrieval b^te. 

(1 = v^ORKR area specified. 

[1 = WORKS area specified. 

[Overflow switch. 

|1 = Read. 

(Not used. 

(1 = Output. 

1 1 = V^rite ke^f. 

[1 = POT macrc issued. 

[Prime data lower limit (KEECCHri) . 




1 

1 IJHCCIS 

i 


51-57 
(33-39) 




(Cylinder index lower limit (MBBCCHH) . 




1 IJHCMIS 


58-64 
(3A-40) 




[Master index lower limit (KEECCHH) . 




1 

1 IJHCILN 


65 
(41) 




(Index level number, WAITF indicator. 

( X»C2» = Master index. 

( ^•40* = ViRlTF seek check bit 

1 x'80* = From WAITF routine. 


iSFilename.H 


1 IJHCCLPA 


66-73 
(42-49) 




(Last prime data record address (wEECCHHR) . 




1 IJBCRESZ 


74-75 

(4A-4E) 




[Logical reccrd length (RECSIZE) . 




1 IJHCKYSZ 


76-77 
(4C-4D) 




(Key length (KEYLEN) . 




1 IJHCBLSZ 


78-79 
(4E-4f) 




[Blcck size (logical record length times 
(number of records). 




1 IJHCRLIO 


80-81 
(50-51) 




[Overflow record length (logical reccrd 
(length + 10). 



L ^ ^ J. X i i«- . . 



^-J 



Figure 24. DTFIS ADD table, part 1 ( 2 of 4). 
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r 1 

|DFT Assembler 
1 Label 1 

L , 


P -, 

1 Module 
DSECT Label 


J. 

Bytes |Bi1 
i 


^ ^ ^ . . 

ts 1 Function 

J. ^ . ^_ 


r " 




IJHCEFAC 


82-83 1 
(52-53) 1 
84-85 1 
(54-55) 1 


1 — ~ 

1 Blocking factor (number of logical records 

|in block (NRECDS)) . 

1 Index entry length (key length + 10). 




IJHCABCD 


86-87 1 
(56-57) 1 


1 Prime data record length (key length plus 
1 physical record length (block size)). 






88-89 1 
(58-59) 1 


(Overflow record length plus key (key length 
1+ logical record length + 10). 




IJHCCMAX 


90-91 1 
(5A-5B) 1 
92-93 1 
(5C-5D) 1 


1 Prime data record format length (key length 
1 + block size + 8) . 

1 Overflow reccrd format length (key length + 
1 logical record length + 18). 




IJHCKYLC 


94-95 1 
(5E-5F) 1 
96-97 1 
(60-61) 1 
98-99 1 
(62-63) 1 


|Key location (KEYLOC) for blocked records. 
1 Constant = 5. 
iConstant = IC. 




IJHCATB2 


100-101 1 
(64-65) 1 


1 Displacement of Part 2 of the DTFIS table 
1 f rem start of Part 1. 




IJHCME3 


102-103 1 
(66-67) 1 


1 Displacement of Part 3 of the DTFIS table 
|frcm start of Part 1. 


1 ^Filename. S 


IJHCSA.DR 


104-113 1 
(68-71) 1 


jSeek/search address area (MEBCCHHRFp) . 


|gFilenair.e.W 


IJHCBKCT 


114-123 1 
(72-7E) 1 


1 Random/sequential retrie^/al work area. 


1 SFilenatne.P 


IJHACPRC 


124-127 1 
(7C-7F) 1 


1 Prime data record count. 




1 IJHACSTI 


128 1 
(80) 1 

1 0-- 

1 2 
1 3- 
1 6 
1 7 


1 Status indicators. 

L |Not used. 

|1 = File Closed. 
5 |Not use<3. 

|1 = Lasi^ prime data track full. 

|1 = Bloik complete. 




1 IJHACLTA 


129-133 1 
(81-85) 1 


|Last tr^ck index normal entry address 
1 (CCHHR) . 




IJHACLCA 


134-138 1 
(86-8A) 1 


[Last cylinder index entry address (CCHHR). 




1 IJHACLMA 


139-143 1 
(8B-8F) 1 


|Last master index entry address (CCHHR). 




IJHACLOA 


144-151 1 
(90-97) 1 


|Last independent overflow record address 
1 (MBBCCHHR) . 



L X X X X , J 



Figure 24. DTFIS ADD table, part 1 (3 of 4) 
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j DFT Assembler 
1 Label 

L .^ 


J. — 

Module 
IDSECT Label 


r 

1 Bytes 


|Bits 
_i 


—J. ^ ^„ ^ 

1 Function | 

_j. , , 1 


1 ^— 

1 SFilename.I 


IJHACOTC 


^152-153 
(98-99) 




T T 

INuirber of independent overflow tracks. | 


l&Filenarne.A 


1 IJHACOFC 


,154-155 
(9A-9B) 




iNuirter of full cylinder cverflc\% areas. [ 


1 SFilename.O 


IJHACORC 


156-157 
1 (9C-9D) 




[Overflew record count. | 




1 IJHACOLL 


158-164 
(9E-A4) 




1 Independent overflow area Icwer liirit | 
1 (MEECCHH) . 1 




IJHACOUP 


165-171 

(A5-AE) 




1 Independent overflow area upper limit | 
l(MBBCCHH). 1 




1 IJHAHRAA 


172-175 
(AC-AF) 

176-179 

(B0-E3) 

180-183 
(B4-E7) 

184-187 
(B8-EB) 

188-191 
(BC-EF) 

192-195 
(C0-C3) 




|A( gFilenaine.D) - Address of work area for | 
jcylinder overflow control record (COCR) . | 

|A(gFilenaire.E+8) - Address of work area for | 
(the current track index noriral entry count | 
Ifield. 1 

|A(gFilenaire.E+16) - Address of work area for| 
1 current track index overflew entry count | 
[field. I 

|A(gFilenaire.E+24) - Address of work area for| 
1 current prime data record count field. | 

|A( gFilenaiRe.D+32) - Address of work area fcr| 
(current overflow record count field. | 

(A(gFilenaire.E+40) - Address of work area for| 
(track index normal entry data field. ( 




1 IJHADLNK 


196-199 
CC4-C7) 




1 A( gFilenaine.D+50) - Address of work area fcr| 
[current overflow record linkage field. | 




IJHAARAD 


200-203 
(C8-CB) 




|A(&IOAREAL) - Address of lOAREAL, the I/O j 
(area used for adding records tc a file. | 




1 IJHACUSE 


204-207 
(CC-CF) 




|A(g\^ORKL) - Address of WCREI, work area | 
[containing user data records to be added to | 
[the file. | 




IJHADKEY 


208-211 
(D0-D3) 

212-215 
(D4-D7) 




1 A( SFilenanie.K) - Address of the ADE key | 
[area. | 

1 A(&ICAREAL+8) - Address of key position in ( 
[lOAREAI. 1 




IJHAKLNB 


216-219 

(D8-DB) 




|A(gIOAREAL + 84SKEYLElSl) - Address of data | 
1 position in lOAREAL. I 



Numbers in parentheses are displacements in hexadecimal notation, 
Figure 24. DTFIS ADD table, part 1 (4 of 4). 



Indexed Sequential Access Method 81 



J. ^ ^ 

DTF Assembly 
Label 



h 



Module 
DSECT Label 



Bytes 



Bits 



Function 



&Filenanie.2 



IJHCASAD 



0-3 
(0-3) 

(4) 



5-7 
(5-7) 





1-5 
6 
7 



A(4Fil€name.S+3) - Address cf the 

seek/search address area+3. 

1 = Seek check indicated. 

Not used. 

1 = Over /under seek has occi^rred. 

1 = An error has been found, but a seek 

check is indicated. 

A (SFilenaire.w) - Address of 

random/sequential retrieval vvork area. 



The following information is generated if the cylinder index in core option 
is specified. 



IJHCORST 



IJHCORBT 



IJHCORKY 



8-11 
(8-B) 

12-13 

(C-D) 

14-21 
(E-15) 

22-26 
(16-lA) 

27 
(IB) 



28-31 
(IC-IJ) 



1 
2 
3 

4-7 



A(§INDAREA) - Starting address of main 
storage area specified for cylinder index. 
AL2(€INDSIZE) - Number of bytes in main 
storage available for cylinder index. 

Next cylinder index entry to be read 
(MEECCHHR) . 

Last cylinder index entry (CCHHR). 



Core index byte. 

1 = First tiire through B-transient, 

$$BINDEX. 
1 = End cf cylinder index reached. 
1 = Index skip option specified. 
1 = Suppress in-core option and read 
cylinder index. 
Not used. 

Pointer to key (stored by module). 



The following information is generated if the prime data in core add 
function is specified. This information is aligned on a double word boundary. 



IJHPSIZE 



IJHPMAX 



IJHPDSPl 



IJHPDSP2 



IJHPSW 



32-33 
(20-21) 

34-35 
(22-23) 

36-39 
(24-27) 

40-43 
(28-2E) 

44 
(2C) 



45-47 
(2D-2F) 




1-7 



Size of lOAREAL. 



Maximum number of prime data records in main 
storage. 

Address cf write CCW's. 



Address of read CCW*s. 



Switch byte. 

1 = EOF. 

Not used. 

For boundary alignment. 



Figure 24. DTFIS ADD table, part 2, 
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p — . «, . — ^ 

DTF Asseaibly 
Label 



h 



Module 
DSECT Label 



Bytes 



Bits 



Function 



gFilename.B 



SFilenarae.D 



SFilename.E 



&Filenaffie.K 



IJHCCCl^ 



IJHACOCR 



IJHACTNA 



IJHIICTCI^ 



IJHACRID 



IJHA.CFID 



IJHACTIN 



IJHA.CLNK 



IJHACTIA 



IJHAGFVTE 



IJHAOCOH 



IJHmCOM 



IJHmSKY 



0-7 
(0-7) 
8-127 
(8-7F) 



128-135 
(80-87) 

136-143 
(88-8F) 

144-151 
(90-97) 

152-159 
{98-9F) 

160-167 
(A0-A7) 

168-177 
(A8-B1) 

178-187 
(B2-EB) 

188-197 
(BC-C5) 

198 
(C6) 

199-201 
(C7-C9) 

202-203 
(CA-CB) 
204-211 
(CC-D3) 

212-217 
CD4-D9) 



218-223 
(DA-DF) 



224-227^ 

(E0-E3) 
232-235^ 

(E8-EB) 

236+ 
(EC-end) 



t- 



CCK X'07', gFilenarae.S+1, X'40', 6 - Long 
seek CCW with command chaining. 
Channel prcgram build area. See Figures 
17-38 for a description of the channel 
prcgrair builder. 

Cylinder overflow control record (COCR) . 



Current track index normal entry count field 
address. 

Current track index overflew entry count 
field address. 

Current prime data record ccunt field 
address. 

current overflow record count field address. 



Track index normal entry data field. 



Current overflow record sequence link field. 



Current track index overflew entry data 
field. 

X'Ol' - Md to EOF. 

X'C2' - Add to independent cverflcv^ area. 

Overflow control bytes (CCH) . 



High HE on overflow track. See Figure 10. 

Volume upper limit for priffe data records 
CMEECCHHR). See Figure 11. 

CLC 0(€KE¥LIN,13),0(6) - Unblocked 

CLC 0(&KEYIEli,13),6KEYLOC-l(6) - Blocked 

Utility CLC for key. 

MVC 0(^KE!fLEN,13),0(12) - Unblocked 

MVC 0(€KEfLEN,13),gKEYLOC-l(12) - Elccked 

Utility MVC for key. 

First entry in DSKXTN table (logical unit, 

cell number). 

4X»FF' - End of DSKXTN table. 



Key area for ADD only. Nunber of bytes 
depends on key length, KEYLEN. 



^Each entry in the DSKXTN table is four bytes long. The minimum number of entries is 

two. There is one entry per extent. 
^Location cf the end-of -table indicator depends on length of DSKXTN table. 



Numbers in parentheses are displacements in hexadecimal notation. 
Figure 24. DTFIS ADD table, part 3. 
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2311 



I 



2321 



2314/2319 



I 



3330 



M = 



Extent sequence 
number 



BB = 00 
C = 
C 
H 
H 



= 199 



= 



9 - CYLOFL 
(nuir-ber of 
tracks reserved 
for ci^linder 
overflow 

Nufnber of 
records that fit 
on overflow 
track- 



BB 



Extent sequence 
number 

Cell number 

19 



a = 4 



R = 



19 - CYLOFL 
(nurrber of 
tracks reserved 
fcr cylinder 
overflow 

Number of 
records that 
fit on overflow 
track. 



M 

BE 
C 



Extent sequence 
nuirber 

00 



= 



C = 199 







B = 



19 - CYLOFL 
(number of 
tracks reserved 
for cylinder 
overflew 

Number of 
records that 
fit en overflew 
track. 



M = Extent sequence 
number 

EB = 

CC = 403 



H = 

H = 18 - CYLOFL 
(number cf 
tracks reserved 
for cylinder 
overflow 

R = Number of 

records that fit 
on overflow 
track. 



Figure 25. Overflow area upper limits (MBBCCHHR) , 



2311/2314/2319/3330 



2321 



|. ^^ 

M = Extent sequence number 

IBB = 00 

|CC = 199 for 2311/2314/2319 

= 403 for 3330 

H = 



H = Last prime data track 
in cylinder 

R = Last record on current 
track. 



M = Extent sequence number 

BB = Cell number 

C = 19 

C = 5 

H = 4 

H = Last prime data track 
in cylinder 

R = Last record on current 
track . 



L ± 

Figure 26. End of volume limits for prime data area (MBBCCHHR) • 



. J 
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I— . ,. 


-T ' 


-.,.-. — .^ f ^^ ^ 


1 DTF ?\sseoably 


1 Module 








1 Label 


IDSECT Label 
„ 1 ^«„_ 


1 Bytes 
„ 1 


Bits 


1 Function 

L . ^ ^ , 


1* "" ~" ■""— ^ '"'""—"""*"'*" " 


-f- — ^— — — 


-^«- — — 




|. ^ ^ , 


1 ^Filename 


1 IJHCCCB 


1 0-15 
1 (0-F) 




iCoirirand Control Block (CCB) . 






1 16 





|Not used. 






1 (10) 


1 
2 
3 
4 

5-7 


1 1 = GE1 issi^ed. 

|1 = CCEOL open ignore option. 

|1 = HOLD option specified. 

|1 = DTF table address constants relocated by 

1 OPENR. 

|Not used. 






1 17-19 




JMdress of Icgic module. 






1 (11-13) 










1 20 




iFile type fcr OPEN/CLOSE (X'26' = RETFVE). 






1 (14) 








1 IJHCOPT 


1 21 
1 (15) 

1 22-28 
1 (16-lC) 



1 
2 
3 
4 
5 
6-7 


1 Option byte. 

|1 = 2321 (Version 1/2 only). 

|1 = Priire data in core. 

|1 = Cylinder overflow cpticn. 

|1 = Cylinder index in core option. 

[1 = Blocked records. 

|1 = Verify. 

[Not used. 

File name (DTF name). 




1 IJHCPDDV 


1 29 
1 (ID) 




1 Priire data device type. 

}«'CC' = 2311 
1 X'Ol' = 2314/2319 
, X'C2' = 2321 
1 X'04' = 3330. 


1 SFilenama.C 


1 IJHCSTBY 


1 30 
1 (IE) 




1 Status byte. 










1 
2 
3 
4 
5 
6 
7 


|1 = Uncorrectable DASD error (except WLE 

t error) . 

|1 = WLR errcr. 

il = EOF (sequential). 

|1 = Nc record found. 

|1 = Illegal ID specified. 

|1 = Duplicate record sensed. 

|1 = Overflo)^ area full. 

|1 = Record retrieved from overflow area. 




1 IJHCHNDV 


1 31 
1 (IF) 




|High level index device type. 

X'CC = 2311 
1 X'Ol' = 2314/2319 

X'C2' = 2321 
1 x'04» = 3330. 




1 IJHCPNT 


1 32 
1 (20) 




[Relative position of the DSKXTN (logical 
unit, cell number) table (in v?crds) . This 

lvalue is the length of the DTF table divided 
by ^. 



I L ^ J. ^ X X , J 



Figure 27. DTFIS RETRVE, RANDOM table, part 1 (1 cf 3) 
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J., , ^ ^ ^ 


—J . — — - « - ^ 


1 DPT Assembler 1 Module 








1 Label IDSECT Label 


Bytes 1 


Bits 


1 Function j 


^ + ^. 


h 


.^ . 


.4 „-^ ^„. ^ 




33-35 i 




1 First priitie data record in cylinder (HHR) . | 




(21-23) 








36-37 




JLast prime data track in cylinder (HH) . | 




(24-25) 








38 I 




|High record number on iraster index/cylinder \ 




(26) 




jindex track (R) . | 


1 1 IJHCPDH 


39 
(27) 




(High record number on priire data track (R) . | 




40 




(High record number on cwerflcw track (R) . | 




(28) 






1 1 IJHCSTH 


41 
(29) 




jHigh record number on shared track (R) . 1 


1 j IJHCTIB 


42 i 
(2A) 




|High record number on track index track (R) . | 


1 1 IJHCRTR 


43 

(2B) \ 




[Retrieval byte. 1 









|1 = WORKR specified. | 






1 


|1 = ViORKS specified. | 






2 


1 Overflew switch. | 






3 


j 1 = Read key. | 






4 


jlsiot used. 1 






5 


jl = Output. 1 






6 


|1 = Write key. | 






7 


\1 = PUl macro issued. ( 




44-50 




1 Priire data Icwer limit (MEECCHH) . | 




(2C-32) 






1 1 IJHCCIS 


51-57 
(33-39) 




1 Cylinder index lower limit (KBECCHH) . t 


1 1 IJHCMIS 


58-64 
(3A-40) 




IMaster index lower limit (MEBCCHH) . | 


1 1 IJHCILN 


65 




1 Index level number t WAITF, and track held | 




(41) 




1 indicators. | 









1 1 - From WAITF routine . | 






1 


|1 = Seek check from WAITF. | 






2 


|1 = Index track held. | 






3 


|1 = Data track held. | 






4-5 


|Mot used. 1 






6 


|1 = Master index. | 






7 


jl = Cylinder index. j 


1 1 IJHCCLPA 


66-73 
(42-49) 




|Last prime data record address (wEECCHHR) . | 


1 1 IJHCRESZ 


74-75 

i (4A-4E) 




1 Logical reccrd length. 1 


1 1 IJHCKYSZ 


1 76-77 
(4C-4D) 




|Key length. | 


1 1 IJHCBLSZ 


78-79 




lElcck size (logical record length times | 




1 (4E-4I) 




1 number of records). | 


( 1 IJHCRLIO 


1 80-81 




1 Overflow record length (logical reccrd 1 




i (50-51) 




1 length + 10) . | 



Figure 27. DTFIS RETRVE, RAKDCM table, part 1 (2 of 3). 
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p -_, J. ^ ^ 

1 DFT A.ssecnbler| Module 

1 Label IDSECT Label 

! , , _± 


^ ^ 

Bytes |Bii 

._ 1 


^^ ^ . — ^ — ^ — , 

:s 1 Function 

^ 1 ,^ ._, , , , , . ^ 




1 UeCBFAC 


... -j. 

82-83 t 
(52-53) 1 
84-85 1 
(54-55) 1 


^^ — .^ ^- — — — 

lElccking factor. 

jlndex entry length (key length + 10). 




1 IJHCABCD 


86-87 t 
(56-57) 1 

88-89 1 
(58-59) 1 


1 Prime data record length (key length + 
[physical reccrd length). 

1 Overflow record length with key (key length 
1+ logical record length + 10). 




1 IJHCCMAX 


90-91 1 
(5A-5E) 1 


iPriire data record format length (key length 
1+ physical record length + 8). 






92-93 1 
(5C-5D) 1 


[Overflow record format length (key length + 
(logical reccrd length + 18). 




1 IJHCKYLC 


94-95 1 
(5E-5F) 1 
96-97 1 
(60-61) 1 
98-99 1 
(62-63) 1 


|Key location (blocked records). 
(Constant = 5. 
(Constant = 10. 




1 IJHCME2 


100-101 1 
(64-65) 1 


(Displacement of Part 2 of the DTFIS table 
(frcir Part 1. 




1 IJHCATB3 


102-103 1 
(66-67) 1 


1 Displacement of Part 3 of the DTFIS table 
( from Part 1. 


iSFilenaroe.S 


1 IJHCSAER 


104-113 1 
(68-71) 1 


(Seek/search address area (ly.EBCCHHBf P) . 


1 ^Filename- W 


1 IJHCBCKT 


114-123 1 
(72-7B) 1 


(Kandcm/sequential retrieval work area. 



L X X ^ X X 



^ . ^-- . J 



Figure 27. DTFIS RETRVE, RJ^NDOM table, part 1 (3 cf 3). 
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r 




-^ ^ 


1 




-.J ^ 


|DTF Assembly 


1 Module 








1 Label 




IDSECT Label 

. 1 ^_. 


Bytes 


Bits 


1 Function 

_j ^ , 




"— — '" 


-j. ^-^ 


^__ 


*—'—"'""' 


-^ 


iSFilename. 


2 


1 IJHCASAD 


0-3 
(0-3) 




1 Address of seek/search address area + 3. 








4 





|1 = seek check indicated. 








(4) 


1-5 

6 

7 


|Not used. 

jl = Over/under seek has cccurred. 

|1 = An errcr has been found, but a seek 

[check is indicated. 








5-7 




[Address cf rand cm/ sequential retrieval work 








(5-7) 




[area. 






1 IJHSIOAR 


8-11 
(8-B) 




[Address cf ICAREAS. 






1 IJHCRARA 


12-15 
(C-F) 




[Address cf ICAREAR. 






1 IJHCRKEY 


16-19 
(10-13) 




(Address cf KEYARG. 






1 IJHCRWCR 


20-23 
(14-17) 




[Address cf v;ORKR. 






1 IJHSDBl 


24-27 
(18-lE) 




[Current sequential I/O area address. 






1 IJHSLICR 


28-31 
(IC-IF) 




[4 -byte NO-OP instruction. 






1 IJHSLMIT 


32 

(20) 

33 

(21) 

34 

(22) 

35-39 

(23-27) 




IX'OO' = Nc verify, X'40' = Verify. 

|X'08' = Unblocked, X'OO' = Blocked. 

[R = First priir.e data record on shared track. 

[upper liirit for sequential retrieval 
1 (CCHHR). 






1 IJHSINIT 


40-41 
(28-29) 

42 
(2A) 
43-47 
(2B-2F) 




[H'O* = Blocked records. 

|H'2' = Overflow record. 

[H'8' = Unblccked records. 

|X'C7' = 2311, 2314, or 2319? X'09' = 2321; 

[X'93' = 3330. 

[Initial values for sequential retrieval. 


1 ^Filename. 


H 


1 IJHSCADR 


48-55 
(30-37) 




[Current CASE address for sequential 
1 (MBBCCHHR) . 






1 IJHSCOVF 


56-63 
(38-3F) 




[Current overflow DASD address for sequential 
1 (MBBCCHHR) . 






1 IJHSRCNT 


64-65 
(40-41) 




[sequential record counter. 






1 IJHSTICU 


66-67 
(42-43) 




[Current track index entry for sequential 
1 (HR). 


l&Filenairie 


,T 




68-69 
(44-45) 




[Nunster of records tagged fcr deletion. 






1 IJHRREGS 


1 70-71 
(46-47) 




[Load lOREG for random retrieval. 


1 ^Filename 


.G 


1 IJHRIDSV 


72-79 

1 (48-4F) 




[DASD address save area (MBBCCHHR). 






1 IJHRADSV 


i 80-83 
1 (50-53) 




[Record pointer within I/O area for write 
[operation. 



Figure 27. DTFIS RETRVE, RANDOM table, part 2 (1 cf 2) 
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p- ^ — ^ ^ ^^__-. ^ — , ^_ 

DTF Assembly | Module | | | 
Label IDSECT Label | Bytes |Bits | 



h 



Function 



& Filename. R | IJHROVCN 



h 



I 8^4-87 I 

I (54-57) I 

-i J.. 



I^onfirst overflov? record count. 



The following information is generated when the cylinder index in cere option is 
specified. 



h 



IJHCORST 



IJHCORBT 



IJHCORKY 



88-91 
(58-5E) 

92-93 
(5C-5D) 

94-101 
C5E-65) 



102-106 
(66-6A) 
107 
(6B) 



108-111 
(6C-6F) 

112-143 
(70-8F) 





1 

2 

3-7 



A(SINDAREA) - Starting address cf irain 
storage area specified for cylinder index. 

AL2 (^liSiDSIZE) - Number of bytes in main 
storage available for cylinder index. 

Next cylinder index entry to be read 
(MEECCHHR) . (Initialized by $$BINDEX to 
cylinder index starting address.) 

Last cylinder index entry. 

Core index byte. 

1 = First tirre through transient. 

1 = End of index reached. 

1 = Index skip option. 

Wot used. 

Pointer to key (stored by the ncdule). 



Reserved. 



Figure 27. DIFIS RETRVE, RANDOM table, part 2 (2 cf 2) 



P -J. 

DTF Asse^nbly 
Label 



h 



f- 



Module 
DSECT Label 



Bytes 



Bits 



Function 



^Filename. E 



IJBCCZ^ 



^Filename. E 



0-7 
(0-7) 

8-63 
(8-3F) 



64-67^ 

(40-43) 

72-75^ 

(48-4B) 



X' C7\4Filename.S+l,X'40' ,6 - Lcng seek CCVi 
with ccirirand chaining. 

Area tc build CCW-strinq. See Figures 42-48 
for a description of the channel prcgrair 
builder for random retrieval. 

First entry in DSKXTN table (logical unit, 

cell number) . 

4X'FF' End cf DSKXTN table. 



h 



^The length of one entry is the four bytes shewn here. The minimurr number of entries 
is 2. There is one entry per extent. 

^The location cf the end-cf-tahle indicator depends on length of DSKXTK table. 



Numbers in parentheses are displacements in hexadecirral notation. 
Figure 27. DTFIS RETRVE, RAWCK table, part 3. 
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J. 


-^ 


-^ ^ ^ . ^ . 


jDTF Assembly 


1 Module 








1 Label 


IDSECT Label 

.J , ^ 


1 Bytes 

.4. 


Bits 


Function 


ir''~""~~~"'~"~'~'~"~"~"^'~"" 


-l — ^ 


-^ 






jSFilenair.e 


1 IJHCCCB 


1 0-15 
1 (0-F) 




Coirmand Control Block (CCB). 






1 16 





Wot used. 






1 (10) 


1 
2 
3 

6 
7 


1 = GET issued. 

1 = COBOL open ignore opticn. 

1 = Track held specified. 

1 = DTF table address constants relocated by 

CPENB. 
1 = EOF on sequential retrieve. 
1 = Lata set security. 
1 = Different blocksize in fcrirat 1 label 

than in ETFIS. 






[ 17-19 




Address of logic module. 






1 (11-13) 










1 20 




File type for OPEN/CLCSE (X'26' = EETRVE) . 






1 (14) 








1 IJHCOPT 


1 21 




Opticn byte. 






1 (15) 



1 
2 
3 

5 

6 

7 


1 = 2321 (version 1/2 cnl^?) . 

1 = Prime data in core. 

1 = Cylinder overflov^ cpticn. 

1 = Cylinder index in core option. 

1 = Blocked records. 

1 = Verify. 

1 = lOAREAS just used^ = ICAEEA2 just 

used. 
1=2 I/O areas present. 






1 22-28 




File name (ETF name) . 






1 (16-lC) 








1 IJHCPDCV 


1 29 
1 (ID) 




Prime data device type. 
X'OO' = 2311 
X'Cl' = 2314/2319 
X'02' = 2321 
X'C4* = 3330. 


|& Filename. C 


1 IJHCSTEY 


1 30 




Status byte. 






1 (IE) 




1 
2 
3 
4 
5 
6 
7 


|1 = Uncorrectable DASD errcr (except WLR 

error) . 
jl = WLR errcr. 

1 = EOF (sequential). 

1 = Nc record found. 

1 = Illegal ID specified. 
|1 = Duplicate record sensed. 

1 = Overflow area full. 

1 = Record retrieved from overflov^ area. 




1 IJHCHNDV 


1 31 
i (IF) 




|High level index device type. 

X'CC = 2311 
1 X'Ol' = 2314/2319 

X'C2' = 2321 
1 X'04' = 3330. 



Figure 28. DTFIS RETRVE, SEQNTI table, part 1 (1 of 3). 
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J. — , 

|DFT Assembler 
1 Label | 

L . I 


Module 
DSECT Label 


. ^ 

Bytes 


Bits 


-^ ^-— , — ^ . 

1 Function 

^± ^_ ^.^ .^ . , , 


|. ^ 


— ^„ — 

IJHCPNT 

I 


r — 

32 1 
(20) 

33-35 

(21-23) 

36-37 

(24-25) 

38 i 

(26) 




^^ ^- — ^„ — ^- — 

(Relative position of the DSKXTN (Icgical 
|unit, cell number) table (in words). This 
lvalue is the length of the DTF table divided 
|by 4. 
1 First prime data record in cylinder (HHR) . 

(Last prime data track in cylinder (HH) . 

jHigh record number on master index/cylinder 
[index track (R) . 




IJHCPDH 
1 

1 


39 
(27) 

40 
(28) 




[High reccrd number on prime data track (r) . 
|High reccrd number on overflow track (R). 




1 IJHCSTH 


41 
(29) 




(High record number on shared track (B) . 




IJHCTIH 

1 


42 
(2A) 




(High reccrd number on track index track (R) . 




IJHCRTR 
1 
1 
I 
1 
1 


43 
(2B) 

44-50 
(2C-32) 



1 
2 
3 
4 

5 
6 
7 


(Retrieval byte. 

|1 = WORKR specified. 

(1 = WORKS specified. 

[Overflew switch. 

1 1 = Read key. 

(1 = First record being processed (after 

( issuing SETI macro). 

(1 = Output. 

(1 = \Nrite key. 

(1 = PUT macrc issued. 

(Prime data lower limit (jy.BECCHH). 




IJHCCIS 
1 


51-57 
(33-39) 




fcylinder index lower limit (MBBCCHH) . 




IJHCMIS 


58-64 
(3J^-40) 




(Master index lower limit (KBECCHH) . 




IJHCILN 
1 

1 


65 
(41) 




(Index level number, WAITF indicator. 

( X*02« = Master index. 

( X»40' = K^ITF seek check bit. 

( X'8G« = From WAITF routine. 




i IJHCCLPA 


66-73 
(42-49) 




(Last prime data record address (MEECCHHR) . 




f 

IJHCRESZ 
1 


74-75 

(4A-4B) 




(Logical reccrd length. 




1 IJHCKYSZ 

1 


76-77 
(4C-4D) 




(Key length. 




i 
IJHCBLSZ 

1 


78-79 

(4E-4f) 




(Blcck size (logical record length times 
(number of records). 




1 IJHCRLIO 


80-81 
(50-51) 




(Overflow record length (logical reccrd 
J length + 10) . 



Figure 28. DTFIS RETRVE, SEQNTI table, part 1 (2 of 3). 



Indexed Sequential Access Method 91 



^ ^ ^ 

1 DFT ?issembler| Module 
1 Label |DSECT Label 

L _ _± J 


J, ^ 

Bytes |Bii 


J. . 

:s 1 Function 

1 ----.« -. « - „ 


r 


T 1 

1 IJriCBFAC 


r - - -j.- - 
82-83 1 
(52-53) 1 
84-85 1 
(54-55) 1 


t ----- - — - - 

lElccking factor. 

Ilndex entry length (key length + 10). 




1 IJHCAECD 


86-87 1 
(56-57) 1 
88-89 1 
(58-59) 1 


iPrirre data record length (key length + 
(physical reccrd length). 

1 Overflow record length with ke> ^^^y length 
1+ logical record length + 10). 




1 IJHCCMAX 


90-91 1 
(5A-5B) 1 
92-93 1 
(5C-5B) 1 


iPriire data record format length (key length 
1+ physical record length + 8). 
1 Overflew reccrd format length (key length + 
1 logical record length + 18). 




1 IJHCKYLC 


94-95 1 
(5E-5F) 1 
96-97 1 
(60-61) 1 
98-99 1 
(62-63) 1 


|Key location (blocked records). 
1 Constant = 5. 
iconstant = IC. 




1 IJHCATB2 


100-101 1 
(64-65) 1 


iDisplaceirent of Part 2 of the DTFIS table 
1 frcro Part 1. 




1 IJHCATE3 


102-103 1 
(66-67) 1 


1 Displacement of Part 3 of the DTFIS table 
|frcm Part 1. 


1 ^Filename. S 


1 IJHCSADR 


104-113 1 
(68-71) 1 


jSeek/search address area (MBBCCHHRFP) . 


1 SFilename.W 


1 IJHCECKT 


114-123 1 
(72-7B) 1 


1 Random/sequential retrieval work area. 



L J. ^X 



X X -, 



Figure 28. DTFIS RETRVE, SEQNTI table, part 1 (3 of 3) 
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J. .^ 

1 DTF Asseonbly 
1 Label 


"T — " 1 

1 Module 
IDSECT Label 
_i. 


^ 

Bytes 


Bits 


_^ — ^ ^ ^ 

1 Function 

_j. .^ .^ . 


j gFilename.2 


1 IJHCASAD 


0-3 
(0-3) 
4 
(4) 

5-7 
(5-7) 




1-5 
6 
7 


T 

lAddress of seek/search address area + 3. 

jl = seek check indicated. 

|Not used. 

jl = Over/under seek has occurred. 

|1 = An errcr has been found, but a seek 

[check is indicated. 

1 Address cf random/sequential retrieval work 

1 area. 




1 IJHSIOi^R 


8-11 
(8-B) 




1 Address of ICAREAS. 




i IJHCRhRA 


12-15 
(C-F) 




(Address cf I0AREA2. 




1 IJHCRKEY 


16-19 
(10-13) 




1 Address of KEYARG. 




1 IJHCRWCR 


20-23 
(14-17) 




1 Address cf WORKR. 




1 IJHSDBl 


24-27 
(18-lE) 




1 Current sequential I/C area address. 




1 IJHSLIOR 


28-31 
(IC-IF) 




|L ICREG,*-4 - Load lOREG. 




1 IJHSLMIT 


32 

(20) 

33 

(21) 

34 

(22) 

35-39 

(23-27) 




IX'CC = No verify, X'4C' = Verify. 

|X'C8' = Unblocked records, X'OO' = Blocked 

1 records. 

|R = First prime data record on shared track. 

jupF^^ limit for sequential retrieval 
1 (CCHHR) . 




1 IJHSINIT 


40-41 
(28-29) 

42 
(2A) 
43-47 
(2B-2F) 




|H'0' = Blocked records, 

|fl'2' = Overflow record, 

|H'8' = UnjDlccked records. 

|X«C7' = 2311, 2314, or 2319; X'09' = 2321? 

|X'FF' = 3330. 

1 Initial values for sequential (CCHHR). 


1 ^Filename. H 


1 IJHSC?^DR 


48-55 
(30-37) 




(Current CASE address for sequential 
1 retrieval (WBBCCHHR) . 




1 IJHSCOVF 


56-63 
(38-3F) 




1 Current overflow DASD address (lyiEECCHHR) . 




1 IJHSRCNT 


64-65 
(40-41) 




[Sequential record counter. 




1 IJHSTICa 

1 


66-67 
(42-43) 




(Current track index entry (HR) . 



L -J. X X X ^ ^ — . , 



Figure 28. DTFIS RETRVE, SEQNTI table, part 2. 
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J. ^ 

DTF A^sseiPbly 
Label 



h 



Module 
DSECr Label 



Bytes 



Bits 



Function 



SFilename.B 



IJHCCCW 



SFilename.E 



0-7 
(0-7) 

8-63 
C8-3F) 



64-67^ 
(40-43) 
72-75^ 
(48-4B) 



X'07%SFilenarae.S+l, X'40',6 - Long seek CCW 
with comitiand chaining. 

Area to build CCW-string. See Figures 49-56 
for a description of the channel program 
builder for sequential retrieval. 

First entry in DSKXTN table (Icgical unit, 

cell number). 

4X'FF' - End of DSKXTN table. 



h 



^The length of one entry is the four bytes shcvin here. The mininiuir number cf entries 
is 2. There is one entry per extent. 

^The location of the end-of -table indicator depends en length of BSKXTN table. 



Nurrber in parentheses are displaceitents in hexadecimal notation. 
Figure 28. DTFIS RETRVE, SEQl^TL table, part 3. 
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r 


-^ — ^- ^„ 


-T T" T ■ ' 


|DTF Assembly 


1 Module 








1 Label 


IDSECT Label 
.i.. . , 


1 Bytes 

.4. «, 


Bits 


i Function 

: _^ «, ^^ , , . ^_ 


1 


-^- — 


-^ -, 


._, 


^-^ -^ ^- 


jg File name 


1 IJHCCCE 


1 0-15 
1 (0-F) 




CCB. 






1 16 





Not used. 






1 (10) 


1 
2 
3 

5 
6 
7 


1 = GET issued. 

1 = COBOL open ignore opticn. 
|1 = Track held option specified. 

1 = DTF table address constants relocated by 
i CPENR. 

EOF switch. 
|1 = Data set security. 

1 = I^rong blocksize error during addition tc 
1 file. 






1 17-19 




Logic module address. 






1 (11-13) 










1 20 




File type for OPEN/CLOSE (X'27' = MDRTR) . 






1 (14) 








1 IJHCOPT 


1 21 
1 (15) 

1 22-28 
1 (16-lC) 



1 
2 
3 

5 
6 

7 


[Opticn byte. 

1 = 2321 (Version 1/2 only). 

1 = Prime data in core. 
|1 = Cylinder overflow. 

1 = Cylinder index in core. 
|1 = Elccked records. 

1 = Verify. 
jl = lO-AREAS just used, = I0AREA2 just 

used. 
[1=2 I/O areas present. 

DTF file name. 




1 IJBCPDDV 


1 29 
1 (ID) 




1 Prime data device type indicator. 

X'CC = 2311 

X'Ol' = 2314/2319 

X'C2« = 2321 
1 X'Oa* = 3330. 


1 SFilenams.C 


1 IJHCSTBY 


1 30 




1 Status byte. 






1 (IE) 



1 
2 
3 

5 
6 
7 


1 = Uncorrectable DASD error (except WLR) . 
|1 = KLR errcr. 

1 = EOF (sequential). 
|1 = Wc record found. 

1 = Illegal ID specified. 
jl = Duplicate record sensed. 

1 = Overflow area full. 

1 = Record retrieved from overflow area. 




1 IJHCHNDV 


1 31 
1 (IF) 

1 




[Highest level index device type. 

X'OO' = 2311 

X'Cl' = 2314/2319 

X'02« = 2321 
1 X«C4' = 3330. 



L i— ^ X i. — X , , ^ J 



Figure 29. DTFIS ADDRTR table, part 1 ( 1 of 4). 
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r T T T 


-^ , 


|DFT Assembler 


Module 








1 Label 1 


DSECT Label | 

^ J 


Bytes 


Bits 


1 Function 

«j. , , , ^ 






^ 




«-j. — — 




IJHCPNT 


32 1 
(20) 

33-35 
(21-23) 
36-37 , 
(24-25) 

38 1 
(26) 




iRelative position of the DSKXTN (Icgical 
(unit, cell nuirber) table (in words). This 
lvalue is the length of the DTF table divided 
|by 4. 
[First prime data record in cylinder (HHR) . 

jLast prime data track in cylinder (HH) . 

|High record number on iraster index/cylinder 
1 index track (R) . 




IJHCPDH \ 


39 
(27) 
40 
(28) 




|High reccrd number on prime data track (r) . 
Iriigh reccrd number on overflow track (R). 




IJHCSTH 


41 
(29) 




jHigh reccrd number on shared track (R). 




IJHCTIH 


42 
(2A) 




(High reccrd number on track index (TI) 
1 track (R). 




IJHCRTR 


43 




1 Retrieval byte. 






(2B) 



1 

2 
3 
4 

5 
6 
7 


|1 = WORKR area specified. 

|1 = WORKS area specified. 

(overflow switch. 

|1 = Read. 

1 1 = First record being processed (after 

I issuing SETL macro). 

I I = Output. 

|1 = Write key. 

|1 = PUT macro issued. 






44-50 




1 Prime data lower limit (MBECCHri) . 






(2C-32) 








IJHCCIS 


51-57 
(33-39) 




(Cylinder index lower limit (jyBBCCHH) . 




IJHCMIS 


58-64 
(3A-40) 




(Master index lower limit (MEBCCHH) . 




1 IJHCILN 


65 
(41) 




1 
2 

3 

4-5 

6 
7 


(Index level number, WAITF , and track held 

(indicators. 

( 1 = From WAITF routine 

(1 = Seek check from WAITF. 

jl = Index track held. 

(1 = Data track held. 

(Not used. 

|0 = Cylinder index; 

1 1 = Master Index. 

(Not used. 


|SFilenam.e.H 


1 IJHCCLPA 


66-73 
(42-49) 




(Last prime data record address (mEECCHHR) . 




IJHCRESZ 


74-75 
(4A-4B) 




(Logical reccrd length (RECSIZE) . 




1 IJHCKYSZ 


1 76-77 
(4C-4D) 


1 


(Key length (KEYIEN) . 




IJHCBLSZ 


78-79 
1 (4E-4F) 


1 

1 

1 


(Blcck size (logical record length times 
(number of records). 




1 IJHCRLIO 


1 80-81 
1 (50-51) 


1 

1 
1 


(Overflow record length (logical reccrd 
(length +10) . 



Figure 29. BTFIS ADDRTR table, part 1 ( 2 of 4). 
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J.--, — . ^ 

1 DFT Assembler 

1 Label 

t . 


P — , ^ 

Module 
IDSECT Label 

L , , 


^ 

Bytes |Bii 


^ ^ ^ ^ 

:s i Function | 

J , , , ^ J 


r — ^ 




IJHCBFAC 
I 

1 


82-83 1 
(52-53) 1 
84-85 1 
(54-55) 1 


^ . , — ^ ^ — 1 

lElccking factor (number of logical records | 
|in block (NRECDS)) . | 
1 Index entry length (key length +10). | 






1 IJHCAECD 

1 

1 


86-87 1 
(56-57) 1 
88-89 1 
(58-59) 1 


1 Prime data record length (key length plus | 
1 physical reccrd length (block size)). | 
(Overflow record length ^ith key (key length | 
1+ Icgical record length +10). | 






IJHCCMAX 

1 

1 


90-91 1 
(5A-5E) 1 
92-93 1 
(5C-5D) 1 


1 Prime data record format length (key length | 
1 + block size +8). | 
1 Overflew reccrd form.at length (key length + | 
1 logical record length + 18). | 






j IJHCKYLC 

1 
1 

1 


94-95 1 
(5E-5F) 1 
96-97 1 
(60-61) 1 
98-99 1 
(62-63) 1 


(Key location (KEYLOC) for blocked records. | 
(Constant =5. | 
(constant = IC. ( 






1 

IJHCATB2 
1 


100-101 1 
(64-65) 1 


(Displacement of Part 2 of the DTFIS table ( 
(from start of Part 1. ( 






IJHCATE3 
1 


102-103 1 
(66-67) 1 


(Displacement of Part 3 of the DTFIS table ( 
(from start cf Part 1. ( 


1 ^Filename. 


S 


1 

IJHCS?^DR 

1 


104-113 1 
(68-71) 1 


(Seek/search address area. ( 


1 ^Filename 


• W 


1 IJHCEKCT 


114-123 1 
(72-7B) 1 


(Random/sequential retrieval work area. ( 


1 ^Filename. 


p 


1 

IJHACPRC 

1 


124-127 1 
(7C-7F) 1 


(Prime data record count. ( 






i IJHACSTI 
i 

1 


128 1 
(80) |0-t 
1 5 
1 6 
1 7 


(Status indicators. ( 
[ (Not used. ( 
( 1 = File closed. ( 
(1 = Last prime data track full. ( 
(1 = Block complete. ( 






1 IJHACLTA 

1 


129-133 1 
(81-85) 1 


(Last track index normal entry address ( 
( (CCHHR) . ( 






1 

IJHACLCA 

1 


134-138 1 
(86-8A) 1 


(Last cylinder index entry address (CCHHR). ( 






i IJHACLMA 
1 


139-143 1 
(8B-8F) 1 


(Last master index entry address (CCHHR). ( 






1 

IJRhCLOh 

1 


144-151 1 
(90-97) 1 


(Last independent overflow record address ( 
( (MEBCCHHR) . ( 


1 ^Filename 


.1 


i IJHACOTC 
1 


152-153 1 
(98-99) 1 


(Number of independent overflow tracks. ( 


1 gFi.lenama. 


A 


1 

IJHACOFC 

1 


154-155 1 
(9A-9B) 1 


(Number cf full cylinder overflow areas. ( 



Figure 29. DTFIS ADDRTR table, part 1 (3 of 4), 
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J. ^ , ^ ^ — 


^ 


|DFT Assembler! Module 






1 Label IDSECT Label 

1 , ' 1 


Bytes |Bi1 

. L_-«.- 


:s 1 Function 

t^ 


|. — ^ 


^„- 


^-. 


iSFilenanie.C | IJHACOEC 


156-157 1 
(9C-9D) 1 


1 Overflow record count. 


1 1 IJH?lCOLL 


158-164 1 


[Independent cverflow area lower limit 




(9E-A4) 1 


1 (MBBCCHH). 


1 1 IJHACOUP 


165-171 1 


[Independent overflow area upper liirit 




(A5-AB) 1 


1 (MEECCHH) . 


1 1 IJHAHRAA 


172-175 I 


|A (gFilenaire.E) - Address of work area for 




1 (AC-AF) 1 


1 cylinder overflow control record (CCCR) . 


1 1 


176-179 1 


|A(gFilenaire.E+8) - Address of work area for 




1 (B0-B3) 1 


|th€ current track index noriral entry count 
(field. 




1180-183 1 


|A( gFilename.D+16) - Address of wcrk area fcr 


1 1 


(B4-B7) 1 


1 current track index overflew entry count 
1 field. 


1 1 


184-187 1 


|A (6Filenarre.E+24) - Address of work area for 




(B8-EB) 1 


(current prime data record count field. 


1 1 


188-191 1 


|A(gFilenaire.E+32) - Address of work area for 




i (BC-BE) 1 


(current overflow record count field. 


1 i 


192-195 1 


(A (SFilenaire.E+40) - Address of work area for 




1(C0-C3) 1 


(track index normal entry data field. 


1 1 UHADLNK 


196-199 1 


(A(gFil€name.D+50) - Address cf wcrk area fcr 




(C4-C7) 1 


(current overflow record sequence-link field. 


1 1 IJHAARAD 


200-203 1 


(A(€ICAREAL) - Address of lOAREAL, the I/O 




i (C8-CB) 1 


(area used for adding records tc a file. 


1 1 IJHACUSE 


1204-207 1 


(A(gl^ORKL) - Address of WCRBI, wcrk area 




(CC-CF) 1 


(containing user data records to be added to 
(the file. 


1 1 IJHADKEY 


1208-211 1 
(D0-D3) 1 


(A( gFilename.K) - Address of the ADD key area 




1212-215 1 


( A(&IGAREAL+8) - Address of key position in 




(D4-D7) 1 


(lOAREAL. 


1 1 IJHAKLN8 


216-219 1 


(A(gI0AREAL+8+SKEYLEN) - Address of data 




1 (D8-DB) 1 


(position in lOAREAl. 



L J. X . X ^-X , . ^ . . ^ J 



Figure 29. DTFIS ADDRTR table, part 1 (4 of 4). 
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p- ^ 

|DTF Assenably | 
1 Label 


P ^ 

Module 1 
DSECT Label 


J. , 1 

Bytes 




Bits 


--^ , , ^ ^ 

1 Function | 

_i , , . 1 


1 gFilenafiie.2 | 


.-,>-^— «. . 

IJHCASAD 




0-3 
(0-3) 
4 
(4) 

5-7 
(5-7) 




1-5 
6 
7 


T " ■ ■ f 

|A(gFilenaR:e.S+3) - Address of the | 
1 seek/search address area +3, | 
|1 = Seek check indicated. | 
fNot used. 1 
|1 = Over/under seek has occurred. | 
tl = An error has been found, but a seek | 
1 check is indicated. | 
1 AfgFilenaitie.^) - Address of the rardcir/ | 
{sequential retrieval work area. | 




I 

IJHSIOAR 

1 


8-11 
(8-B) 




1 Address of IGAREAS, I/O area used for | 
[sequential retrieval. | 




[ IJHCRAJRA 

I 


12-15 
(C-F) 




(Address of ICAREAR, I/C area used fcr randcit | 
(retrieval cr address of IOAREA2 (if ( 
(specified) for sequential retrieval. | 




IJHCRKEY 


16-19 
(10-13) 




(Address of KEYARG, field ccntaining ( 
(user-supplied key used for random READ/WrITE( 
(operations and sequential retrieval ( 
(initiated by key. ( 




IJHCRWCR 1 


20-23 
(14-17) 




(Address cf WORKR, work area used for random ( 
(retrieval. ( 




1 IJHSDBl 


24-27 
(18-lE) 




(Current sequential I/C area address. ( 




IJHSLICR 
1 


28-31 
(IC-IF) 




(1. L I0REG,*-4 - Load I/O register for ( 
( sequential or ( 
(2. 4 -byte NC-OP instruction for random. ( 




UeSLMIT 

1 
[ 

1 


32 

(20) 

33 

(21) 

34 

(22) 

35-39 

(23-27) 




(X'OO' = No verify? X'40* = Verify. ( 
(X'OO' = Blocked; X'08' = Unblocked. ( 
|R = First priire data record on shared track . ( 
ILiuits fcr sequential (CCHHR). ( 




IJHSINIT 
1 
1 


40-41 
(28-29) 

42 
(2A) 
43-47 
(2E-2F) 




(H'C = Blocked records. ( 
fH'2'^ = Overflow record. ( 
(H*8' = Unblocked records. ( 
|X'C7' = 2311, 2314, or 2319; X»09» = 2321; ( 
(X*FF' = 333 C. [ 
(Initial values for sequential. ( 


I S Filename. H 


IJHSCAER 


48-55 
(30-37) 




(Current sequential DASD address (MEECCHiiR) . ( 




I 

IJHSCOVF 

i 


56-63 
(38-3F) 




(Current overflow DASD address CMBBCCHHR) . ( 




IJHSRCNT 
1 


64-65 
(4 0-41) 




(Sequential record count. ( 


I 


1 

IJHSTICU 

1 


66-67 
■ (42-43) 




(Current track index entry for sequential ( 
((HR). ( 



Figure 29. DTFIS ?VDDRTR table, part 2 (1 of 2). 
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J. ^ 

DTF Assembl;y 
Label 



Module 
DSECT Label 



Bytes 



Bits 



Function 



SFilenaine.T 



SFilenaroe.G 



SFilename.R 



IJHRREGS 



IJHRIDSV 



IJHRA.DSV 



IJHROVCN 



68-69 
(44-45) 

70-71 
(46-47) 

72-79 

(48-4if) 

80-83 
(50-53) 

84-87 
(54-57) 



Nuirfcer of records tagged fcr deleticn. 



LR glOREG^O for random (or 2- byte i^iO-OP for 
sequential) • 

DA£D address save area fcr randcir retrieval 
(MEECCHHR) . 

Record pointer within I/O area for write 
(fcr random retrieval), 

Non first overflow record count. 



h 



The following information is generated if the cylinder index in core cpticn is 
specified. Bytes 88-91 (58-5B) are not used* 



h 



h 



IJHCORST 



IJHCORBT 



IJHCORKY 



92-95 
(5C-5F) 
96-97 
(60-61) 
98-105 
(62-69) 
106-110 
(6A-6E) 

111 
(6F) 



112-115 
(70-73) 



1 
2 
3 

4-7 



A(SINDARE?\) - Starting address of main 
stcrage area specified for cylinder index. 
AL2(SINDSIZE) - Number of bytes in main 
stcrage available fcr cylinder index. 
Next cylinder index entry to be read 
(MEECCHHR) . 
Last cylinder index entry (CCHHR) . 



Core index byte, 

1 = First time through B-transient, 

$$EINBEX, 
1 = End of cylinder index reached. 
1 = Index skip cpticn specified. 
1 = Suppress index in-core cpticn and read 

cylinder index. 
Not used. 

Pointer to key (stored by module). 



The following information is generated if the prime data in core add function is 
specified. This information is aligned on a double wcrd boundary. If both cylinder 
index in core and prime data in cere add functions are specified ^ the following 
information is found in bytes 120-135 (78-87). 



h 



1 IJHPSIZE 


112-113 1 
(70-71) 




1 IJHPMAX 


114-115 
(72-73) 




1 IJHPDSPl 


116-119 
(74-77) 




1 IJHPDSP2 


120-123 
(78-7E) 




1 IJHPSW 


il24 
(7C) 

125-127 
1 (7D-7F) 


1 
1-7 1 



Size of lOAREAL, 



Maximum number cf prime data records in main 
stcrage. 

Address of write CCW's. 



Address of read CCW's. 



Switch byte. 

1 = EOF. 

Not used. 

For boundary alignment. 



Figure 29. DTFIS ADDRTR table, part 2 (2 of 2). 
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p — ^„_- ^ 

DTF Assennbly 
Label 



h 



Module 
DSECT Label 



Bytes 



Bits 



Function 



SFilename.E 



^Filename. D 



^Filename. E 



SFilename.K 



IJHCCCW 



IJH?^COCR 



IJHACTNA 



IJHACTCA 



IJHACRID 



IJH?^CFID 



IJHACTIN 



IJH?^CLNK 



IJHACTIA 



IJHAGATE 



IJHAOCOH 



IJH?IICCM 



IJH?IISKY 



0-7 
(0-7) 
8-63 
(8-3F) 

64-127 
(40-7F) 
128-135 
(80-87) 

136-143 
(88-8F) 

144-151 
(90-97) 

152-159 
(98-9F) 

160-167 

(A0-A7) 

168-177 
(A8-B1) 

178-187 

(B2-EB) 

188-197 
(BC-C5) 

198 
(C6) 

199-201 
(C7-C9) 

202-203 
(CA-CB) 
204-211 
(CC-D3) 

212-217 
(D4-D9) 



218-223 

(DA-DF) 

224-227^ 

(E0-E3) 

232-235^ 

(E8-EB) 

236 + 

(EC-end) 



X'C7\ SFilename.S+l, X'40', 6 - Lcng seek 

CCW with conirand chaining. 

Channel program build area. See Figures 

56-91 for a description of the channel 

prcgrani b\3ilder. 

Channel prcgrani build area for add function 

only. 

Cylinder overflow control record (CCCR) • 



Current track index normal entry ccunt 
field. 

Current track index overflew entry count 
field. 

Current prime data record ccunt field. 



Current overflow record count field. 



Track index normal entry data field. 



Current overflow record sequence-link field. 



Current track index overflew; entry data 
field. 

X'Ol' - Add to EOF. 

X'C2' - Add to independent overflew area. 

Overflow ccntrol bytes (CCH) . 



High HR on overflow track. See Figure 10. 

Volume upper limit for priire data records 
(MEECCHHR) . See Figure 11. 

CLC 0(gKEYLEN,13) ,0(6) - Onblocked 

CLC 0(£KEYLEK,13),gKEYLOC-l (6) - Blocked 

Utility CLC for key. 

MVC (gKEYLEN,13) ,0(12) - Unblocked 

MVC C(&KEYIEN,13),£KEYL0C-1 (12) - Blocked 

Utility I^VC for key. 

First entry in DSKXTN table (logical unit, 

cell number) . 

4X'FF' - End of DSKXTN table. 



Key area for add only. i>Jurrber of bytes 
depends on key length, KEYLEN. 



X -L- ^ X 

^Each entry in the DSKXTN table is four 

entries is two. There is cne entry per 

^Location of the end-of-table indicator 


X . 

bytes long. The minimum number of 

extent. 

depends on length of DSKXTN table. 



Numbers in parentheses are displacements in hexadecimal notation. 
Figure 29. DTFIS ADDRTR Table, Part 3 
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ISMCD MACRO 



The ISMOD CIndexed-Sequential Mcdule) rracro 
instruction must be included for each logic 
module required to support each DTfIS macro 
in a particular problem program. Ihe logic 
modules are described by an ISMOD header 
entry and a series of parameter entries, 
see PgS/VS Supervisor and l/o Macrcs , 
GC33-5373, fcr an explanation of the 
parameters . 



Ihe following imperative macros use the 
logic in the ISMOD: 

ESETL 
GET 

pur 

RE?^D 
WAITF 

WRITE, KE¥ 
WRITE, NEWKEY 

The logic for the other imperative 
macros used by IS?IM (ENDFL, ESETL, SETFL 
and SETL) is found in various B-transient 
routines. Flowcharts for ISFiyss are in 
alphabetical order by macro within 
function. The functions appear in the 
follow^ing sequence: 

LO?kD 

ADD 

RETRVE, RANDOM 

RETRVE, SEQNTL 

ADDRTK 

This section does not discuss each of 
these mtacros separately but, instead, 
presents them in the context of a 
particular function. 



REENTRANT MODULE; A reentrant ircdule is a 
logic module that can be asynchrcncusly 
used, or shared, by more than cne file. 
ISMCD is made reentrant by inclusion of the 
RDONLY=YES parameter in the ISMCD macro 
instruction. The RDONLY (read-only) 
parameter assures, regardless of the 
processing requirements of any fileCs) 
using the module, that the generated logic 
module is never modified in any way. This 
feature is implemented through the 
establishment of unique (cne fcr each task 
using the module) save areas external to 
the logic mcdule. Each save area must be 
72 bytes and doubleword aligned. The save 
area for ISMCD contains general registers 
2-m, the last overflow record address, the 
new overflow record address, and a work 
area for the channel program builder* A 
task must provide the address of its unique 
save area in register 13 before an 
imperative macro is issued to the file and 
a logic module is entered by the task. 



ERROR OPTION EXTEKSICNS: When ERREXT is 
net specified and an unrecoverable I/O 
error occurs, ISFMS indicates this error in 
Filename. C and returns tc the problem 
program. Control is returned to ISFMS only 
by issuing another macro instruction. 



When ERREXT is specified and an 
unrecoverable I/O error occurs, bit cf 
Filename. C is set on. Also, byte 2, bit 2 
cf the COB in the DTF is set on when data 
transfer has not occurred. The problem 
program error processing routine should 
determine if data transfer occurred by 
checking the data transfer bit (byte 2, bit 
2) in the ETF. Information concerning the 
record being read or written and the 
operation being performed at the time of 
the error can be found in the 18 -byte 
parameter list pointed tc by register 1. 
See Figure 30 for a description cf this 
parameter list. 



r • T- 

1 BYTES j 


BITS 


-^ 

1 CONTENTS 

«j . .^ ^ 


t 0-3 1 




«.j .^ — 

I DTF address. 


1 4-7 1 




1 Main storage address cf 
j the reccrd in error. 


1 8-15 1 




1 DASE address of record in 
1 error (MEECCHHR) , where M 
1 is the extent sequence 
1 number and R is the 
[ record number. R can be 
I inaccurate if a read 
1 error occurred during a 
1 read of the highest level 
1 index. 


1 16 1 




1 Record identification: 







1 Data. 




1 


1 Track index. 




2 


1 Cylinder index. 




3 


1 Master index. 

I Type cf operation: 




4 


1 Not used. 




5 


I Not used. 




6 


1 Write. 




7 


1 Read. 


1 17 I 




i Command code of failing 
[ CCW. 



L- 



-JL X- ^ , i 



Figure 3C. ERREXT parameter list. 
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After checking for errors and taking 
corrective action if necessary, the problem 
program error processing routine can return 
to ISAM via the ERET macro. The ERET 
IGNORE or ERET SKIP macro returns to ISAM 
to ignore the error condition and process 
the record. The ERET RETRY returns to ISAM 
to make another attempt to read or write 
the record. 



Preformats the last track of each track 
index; but when extending the file, SETFL 
Preformats only the last track cf the last 
track index plus each new track index for 
the extension of the file. This allows 
prime data on a shared track to be 
referenced even though no track index 
entries exist on the shared track. 



Note: The ERREXT coding is not designed to 
handle non-recoverable errors that 
are posted in Filename. C. Examples 
of non-recoverable errors are No 
Record Found, Prime Data Area Full, 
Master Index Full, etc. 

DOUBLE jBUFFERING; Double buffering is 
meaningful only when creating the file or 
sequentially retrieving from the file. If 
I0AREA2=YES is specified as an ISMOD macro 
parameter, and the presence cf twc I/O 
areas is indicated in the DTF table, 
overlapping cf I/O with processing is 
provided for the load create and sequential 
retrieve functions. 



ISAM MACRO INSTRUCTIONS TO LOAD OR EXTEND A 
DASD FILE 



The function of originally loading a file 
of presorted records onto DASD, and the 
function of extending the file by adding 
new presorted records beyond the previous 
high record, are the same. Both are 
considered a LOAD operation (specified by 
the DTFIS entry lOROUT), and they both use 
the same macro instructions in the problem 
program. However, the type field in the 
DLBL card must specify ISC for load 
creation and ISE for lead extension. 

The areas of the volumes used for the 
file are specified by job control EXTENT 
cards. The areas are: the prime data area 
where the data records are written, a 
cylinder index area where the user wants 
ISAM to build the cylinder index, and a 
master index area if a master index is to 
be built (specified by the DTFIS entry 
MSTIND) . 

During the load operation, ISAM builds 
the track, cylinder, and master (if 
specified) indexes. 

Three different macro instructicns are 
always required in the problem program to 
load original or extension records into the 
logical file on DASD. 

The SETFL (set file load node) macro 
instruction causes ISAM to set up the file 
so that ttie load or extension function can 
be performed. When loadiag a file, SETFL 



This macro must be issi^ed whenever the 
file is to be loaded or extended. 

When a WRITE macro instruction with the 
parameter NEWKEY is issued in the problem 
program between a SETFL instruction and an 
ENDFL instruction (the third macro required 
for loading), it causes ISAM tc lead a 
record cntc DASD. 

Before issuing the WRITE instruction, 
the problem program must store the key and 
data portions of the record in a wcrk area 
(specified by DTFIS WORKL) . The ISAM 
routines construct the I/C area by moving 
the data record to the data area, moving 
the key to the key area, and building the 
count field. When the 1/0 area has been 
filled, ISAM transfers the records tc DASD 
storage and then constructs the count field 
for the next record. The WAITF macro 
should net be used when loading or 
extending an ISAM file. 

Before records are transferred, ISAM 
performs both a sequence check (to ensure 
that the records are in order by key) and a 
duplicate-record check. 

After each WRITE is issued, ISAM makes 
the ID of that record or block available tc 
the problem program. The ID is located in 
an 8-byte field labeled Filename. H. 

As records are loaded on DASD, ISAM 
writes track index entries each time a 
track is filled, writes a cylinder index 
entry each time a cylinder is filled, and 
writes a master index entry (if DTFIS 
MSTIND is specified) each time a track of 
the cylinder index is filled. 

The ENDFL macro performs an operation 
(similar to a CLOSE) for the file that has 
been leaded. It writes the last block of 
data records, if necessary, and then writes 
an end-cf-file record after the last data 
record. It writes any irdex entries that 
are needed. It also writes inactive track 
index entries for the unused portion of the 
prime data extent for the 2311 device type. 
Fcr 2314/2319/3330/2321 device types, only 
the remaining portion of the last cylinder 
ccntaining prime data records has inactive 
track index entries. 

When extending or adding to a file, the 
user is responsible for checking byte 16, 
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bit 7 of the DTF to determine whether the 
correct blocksize has been specified. 



ISAM MACRO INSTRUCTIONS FOR ADDING RECORDS 
TO A FILE 



After a file has been organized on DASD, 
new records can be added to the file. Each 
record is inserted in the proper place 
sequentially by key. This function is 
provided by specifying ADD or ADDRTR in the 
DTFIS entry lOROUT. 

The file can contain either blocked or 
unblocked records^ as specified by the 
DTFIS entry RECFORM. When the file 
contains blocked records^ the user must 
provide ISAM with the location of the key 
field that is provided through the DTFIS 
entry KEYLOC. The records to be inserted 
are written cne record at a tirre. The 
records must contain a key field in the 
same location as the records already in the 
file. Whenever the addition of records is 
to follow sequential retrieval CAEDRTR), 
the macro instruction ESETI must be issued 
before a record is added. 

Two macro instructions, WRITE NEWKEY and 
WAITF are used in the problem program for 
adding records to a file. 

Before the WRITE macro is issued for 
unblocked records, the program must store 
the record (key and data) to be added into 
a work area specified in the DTFIS entry 
WORKL. For blocked records, the program 
must store only the data (the key is 
assumed to be a part of the data) . Before 
any records are transferred, ISFMS checks 
for duplicate record keys. If nc 
duplication is found, ISAM inserts the 
record in the file. 

To insert a record into a file, ISAM 
performs an index search at the highest 
level index. This search determines if the 
record to be inserted can be placed within 
the file, or if it is higher than the last 
record on the file. 

If the record can be inserted within the 
file, searching of the master index (if 
available), the cylinder index, and the 
track index determines the appropriate 
location to insert the record. 

For an entry to an unblccked file, an 
equal/high search is performed in the prime 
data area of the track. When a record on 
the track is found that is equal tc or 
higher than the record to be inserted, the 
record is read from the track and placed in 
main storage (in the I/O area). The two 
records are com«pared tc see if a duplicate 



record is found. If a duplicate record is 
found, that information is pcsted to the 
user in the DTF table at Filename. C. If nc 
duplicate is found, the appropriate record 
(in the user's work area) is written 
directly en the track. The record (just 
displaced from the track) in the I/O area 
is m.cved by ISAM to the user's work area. 
The next record on the track is read intc 
the I/O area. 

Then, the record in the work area is 
written on the track. Succeeding records 
are shifted until the last record on the 
track is set up as an overflew record. If 
the ADD I/C area (ICAEEAI) is increased to 
permit the reading or writing cf mere than 
cne record on DASD at a time, an equal/high 
search is performed in the prime data area 
of the track. When a recerd on the track 
is found that is equal tc or higher than 
the record to be inserted, as many records 
as can fit into the I/O area specified in 
the DTFIS operand lOAREAL are read frcn the 
track and placed in main storage (in the 
I/O area) . 

The record to be added is compared to 
existing records in the I/C area. If a 
duplicate key is found, the condition is 
posted tc the user in the DTF table 
Filename. C. If no dup icate is found, the 
records are shifted in m.ain storage, 
leaving the record with the highest key 
remaining in the user's work area. The 
ether reccrds are rewritten directly onto 
the track. Any remaining record (s) on the 
track are then read into the I/C area. The 
process continues until the last record en 
the track is set up as an overflow record. 

This last record is then written into 
the appropriate overflow area, and the 
appropriate track index entries are 
updated. This is the cylinder overflow 
area, if CYLOFL has been specified for this 
file and the area has not been filled. 

If the cylinder overflow area is filled, 
or if only an independent overflew area has 
been specified by a job control EXTENT 
card, the end record is transferred tc the 
independent overflow area. If an 
independent overflow area has net been 
specified (or is filled) and the cylinder 
overflow area is filled, there is no room 
available to store the overflow record. 
ISAM posts this condition in the DTF table 
at Filename. C. 

In all eases, before any records are 
written, ISAM determines if room is 
available. 

For an entry to a blocked file, the work 
area, WORKL, is required in the DTFIS 
entries. Each record to he added must 
contain a key field in the same lecatien as 
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the records already in the file. The 
high-order position of this key field, 
relative to the leftmost position of the 
logical record, reust be specified to ISAM 
by the user. The DTFIS entry KEYLCC is 
used for this specification. 

When the WRITE raacrc is issued in the 
problem program, ISAM first locates the 
correct track by referring tc the necessary 
master (if available), cylinder, and track 
indexes. Then, a search on the key areas 
of the DASD records on the track is made to 
locate the desired block of reccrds. The 
block of records (or as many as vwill fit 
into the I/O area if lOAREAL has been 
increased for reading and writing ir.ore than 
one record on DASD at a tiire) is read into 
the I/O area. ISAM then examines the key 
field within each logical record tc find 
the exact position in which to insert the 
new record and to check for duplication of 
records. If duplication of keys exists, 
the condition is posted in Filenaire.C. If 
the key of the record to be inserted 
(contained in the work area WORKL) is low, 
it is exchanged with the record presently 
in the block. 

This procedure continues with each 
succeeding record in the block until the 
last record is iroved into the wcrk area. 
ISFMS then updates the key area of the DASD 
record to reflect the highest key in the 
block. If the lOAREAL has been increased, 
succeeding blocks in the I/O area are also 
updated. The block (or blocks) is then 
written back ontc DASD. The reiraining 
blocks on the track are similarly processed 
until the last logical reccrd en the track 
is moved into the work area. This record 
is then set up as an overflew record with 
the proper sequence-link field and moved to 
the overflow area. The indexes are updated 
and ISAM returns to the problem prograiTi for 
the next reccrd to be added. If the 
overflow area is filled, the infcriration is 
posted in Filename. C. 

If the proper track for a record is an 
overflow track (determined by the track 
index), ISAM searches the overflow chain 
and checks fcr duplication. If nc 
duplication is found, ISAM writes the 
record, preceded by a sequence-link field 
in the data area of the DASD record, and 
adjusts the appropriate linkages tc 
maintain sequential order by key. ISAM 
writes the new record in either the 
cylinder overflow area or the independent 
overflow area. If these areas are filled, 
the user is notified by a bit in 
Filename. C. 

If the new record is higher than all 
records presently in the file 
(end-of-file), ISAM checks to determine if 
the last track containing data reccrds is 



filled. If it is not, the new record is 
added, replacing the end-cf-file reccrd. 
The end-cf-file record is written in the 
next record location on the track, or en 
the next available priire data track. 
Another track roust be available within the 
file liirits. If the end-of-file record is 
the first record on an;^ track, the new 
record is written in the appropriate 
overflow area. After each new reccrd is 
inserted in its proper location, ISAM 
adjusts all indexes that are affected by 
the addition. 

The KAITF iracro instruction is issued to 
ensure that the transfer cf a reccrd has 
been ccrrpleted. 

This instruction must be issued before 
the problero program atteirpts tc process an 
input reccrd or build another output record 
for the file concerned. The prcgrair dees 
net regain control until the previous 
transfer of data is coirplete. 



ISAM MACRO INSTRUCTIONS FOR RANDOM 
RETRIEV?^! 



When a file has been organized by ISAM, 
records can be retrieved in random order 
for processing and/or updating. Retrieval 
irust be specified in the DTFiS entry ICROUT 
(ICHCUT=RETRVE or IOROUT=ADDRTR) . Randoir 
processing must be specified in the DTFIS 
entry TYPEFLE=RANDOM. 

Because random reference to the file is 
by record key, the probleir prcgrair irust 
supply the key of the desired record tc 
ISAM. Tc do this, the key must he stored 
in the main storage key field specified by 
the DTFIS entry KEYARG. The specified key 
designates both the record to he retrieved 
and the record to be written back into the 
file in an updating operation. Records 
added to the file between the READ and the 
KRITE iracrc for a particular record to be 
updated can result in a lest record and a 
duplicate key. 

Three iracro instructions (READ- KEY, 
WRITE-KEY and WAITF) are available fcr use 
in the prcbleir program fcr retrieving and 
updating records randomly. 

The READ KEY instructicn used in 
conjunction with WAITF iracro instructicn 
causes ISAM to retrieve the specified 
record from the file. 

TO locate the record, ISAM searches the 
indexes tc determine the track on which the 
record is stored, and then searches the 
track for the specific record. When the 
record is found, ISAM transfers it to the 
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I/O area specified by the DTFIS entry 
ICAREAR, The ISAM routines also move the 
record to the specified work area if the 
DTFIS entry WORKR is included in the file 
definition. 

When records are blocked, ISAM transfers 
the block that contains the specified 
record to the I/O area. It makes the 
individual record available for processing 
either in the I/O area or the work area (if 
specified) • For processing in the I/O 
area, ISAM supplies the address of the 
record in the register specified by DTFIS 
ICREG. The ID of the record can be 
referenced by using Filenaire.G. 

The WRITE instruction with the paraireter 
KEY is used in conjunction with the WAITF 
macro instruction for random updating. It 
causes ISAM to transfer the specified 
record from main storage to DASD storage. 

ISAM rewrites the record retrieved by 
the previous read instructicn for the same 
file. The record is updated from the work 
area, if one is specified; ctherwise, from 
the I/O area. The key need not be 
specified again ahead of the WRITE 
instruction . 

The WAITF macro instructicn is issued to 
ensure that the transfer of a record has 
been completed. This instructicn must be 
issued before the problem program attempts 
to process an input record cr build another 
output record for the file concerned. The 
program does not regain control until the 
previous transfer of data is complete. 

The WAITF instruction posts any 
exceptional information in the DTFIS table 
at Filename. C. 



ISAM MACRO INSTRUCTIONS FOR SEQUENTIAL 
RETRIEVAL 



When a file has been organized by ISAM, 
records can be retrieved in sequential 
order by key for processing and/cr 
updating. The DTFIS entry ICRCUT=RETRVE 
must be specified. Sequential processing 
must be specified in the DTFIS entry 
TYPEFLE=SEQNTL. 

Although records are retrieved in order 
by key, sequential retrieval can start at a 
record in the file identified either by key 
or by the ID (identifier in the count 
field) of a record in the prime data area. 
Cr, sequential retrieval can start at the 
beginning of the logical file. The user 
specifies, in SETL, the type of reference 
he will use in the problem programi. 



Whenever the starting reference is by 
key and the file contains blccked records 
(RECFORM=FIXBLK), the user must also 
provide ISAM with the position of the key 
field within the records . This is 
specified in the DTFIS entry KEYLOC. To 
search fcr a record, ISAJy. first locates the 
correct block by the key in the key area cf 
the DASD record. (The key area contains 
the key of the highest record in the 
blcck.) Then, ISAM examines the key field 
within each record in the blcck tc find the 
specified reccrd. 



Four macro instructions (SETL, GET, PUT 
and ESETL) are available for use in the 
problem program for retrieving and updating 
records sequentially. 

The SETI (set limits) macro instructicn 
initiates the mode fcr sequential retrieval 
and initializes the ISAM routines to begin 
retrieval at the specified starting 
address. It requires twc parameters. The 
first operand (Filename) specifies the name 
cf the file (specified in the DTFIS header 
entry) from which records are tc retrieved. 

The second operand specifies where 
processing is to begin. If the user is 
processing by the record ID, the cperand 
Idname cr (r) specifies the symbolic name 
cf the main-storage field in which the user 
supplies the starting (or lowest) reference 
for ISAM use. The s;^mbclic field contains 
information as shown in Figure 31. If 
processing is to begin with a ke;^ supplied 
by the user, the second operand is KEY. 
The key is to be supplied by the user in 
the field specified by the DTFIS entry 
KEYARG. If the specified key is net 
present in the file, an indication will be 
given at Filename. C. 

The second operand BCF specifies that 
retrieval is to start at the beginning cf 
the logical file. 

Selected groups of records within a file 
containing identical characters cr data in 
the first locations of each key can be 
processed by specifying GKEY in the second 
cperand. The GKEY specification allows 
processing to begin at the first reccrd (cr 
key) within the desired group. The user 
must supply a key that will identify the 
significant (high order) bytes cf the 
required group of keys. The remainder (or 
insignificant bytes) of the key must be 
padded with blanks, binary zeros, or bytes 
lower in collating sequence than any cf the 
insignificant bytes in the first key of the 
group to be processed. The problem program 
must determine when the generic group is 
completed. Otherwise, ISAM continues 
through the remainder of the group. 
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^ — — 

I Byte 



Identifier | Contents 



-T- 

I 



Inforication 



l.„„^ 4. 1 + f 



I M I 2-245 I Extent sequence number of the volume in which 
I I I the starting record is located. 
+- „-+„ + ^ 

1-2 I B,B I 0^0 (for disk) | i^lways zero fcr disk. Cell numter for 

I I 0, 0-9 (fcr 1 data cell. 

I 1 data cell) | 
f ^«.^4„^-.^ .- 4 ^-„„„„ ^ 

3-4 I C,C I 0,1-199 (fcr | Cylinder member for disk. Si3b-cell and strip 

I 1 2311/2314/2319) | for data cell. 

I I 0-403 (fcr 3330) | 

I I 0-19,0-9 (for I Note: Ihe last four strips on each cell are 

I I 2321) I reserved for alternate tracks. 
+ -„„-4 „_ .- ^^ ^ ^„„<-. ^_ 

5-6 I H,H I 0,0-9 (for 2311) | Head position for 2311, 2314, 2319, and 3330 

I I 0,0-19 (fcr I disks. Cylinder and head fcr 

I I 2314/2319) I 2321 data cell. 

I I 0,0-18 (fcr 3330) I 

I I 0-4,0-19 (for I 

I I 2321) I 



+ -^4 ^-» .„--.„4 ^«„«„ f 



I- 
i7 



I 1-254 
-X- 



I Keccrd location. 



Figure 31. Pointer to first record to be processed by sequential retrieval. 



This method also allows starting at a 
key equal- to or greater-than the one 
specified in the DTFIS entry KEYi^RG without 
getting an error indication in Filename. C. 

The GET macro instruction causes ISAM to 
retrieve the next record in sequence from 
the file. It can be written in either of 
two forms, depending on where the record is 
to be processed. 

The first form is used if reccrds are to 
be processed in the I/O area (specified by 
DTFIS lOAREAS) . It requires only cne 
parameter, which is the name of the file 
from whicli the record is tc be retrieved. 
ISFMS transfers the record from this file 
to the I/O area, and the reccrd is 
available for the execution of the next 
instruction in the problem program. The 
key is located at the beginning of lOAREAS 
and the register (lOREG) points to the 
data. If blocked records are specified, 
ISAM makes each record available by 
supplying its address in the register 
specified by the DTFIS entry ICREG. The 
key is contained in the reccrd. 

The second form of the GET instruction 
is used if records are to be processed in a 
work area (DTFIS specifies WORKS). It 
requires two parameters both of which can 
be specified as symbols or in register 
notation. The first is the name of the 
file, and the second is the name cf the 



work area. When register notation is used, 
wcrknaire should net be preloaded into 
register 1. The reccrd is available fcr 
the execution of the next program 
instruction. 

If blocked records are specified in the 
file definition, each GET that transfers a 
block cf records to main storage will, if 
necessary, also write the preceding blcck 
back into the file in its previous block 
location. GET writes the preceding blcck 
if a PUT instruction has been issued for at 
least one of the reccrds in the blcck. If 
no PUT instructions have been issued, 
updating is not required for this blcck, 
and GET does net cause the block to be 
rewritten. Whenever an unblccked reccrd is 
retrieved from the prime data area, ISAM 
supplies the ID of that record in the field 
addressed by Filename. H. If blocked 
records are specified, ISAM supplies the ID 
cf the blcck. The PUT macro instruction is 
used for sequential updating of a file, and 
causes ISAK to transfer records tc the file 
in sequential order. PUT returns a record 
that was obtained by a GET. It can be 
written in either of two forms, depending 
on where records are processed. 

The first form is used if reccrds are 
processed in the I/O area (specified by 
DTFIS lOAREAS). It requires only the name 
cf the file to which the records are to be 
transferred. 
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The second fcrm of the PUT instruction 
is used if records are processed in a ^ork 
area. It requires two parameters, both of 
w7hich can be specified either as a symbol 
or in register notation. The first is the 
name of the file, and the second is the 
name of the work area. When register 
notation is used, worknaire should net be 
loaded into register 1 . The work area name 
may be the same as that specified in the 
preceding GET for this file, but this is 
not required. IS?VM iroves the record from 
the work area specified in the PUT 
instruction to the I/O area specified for 
the file in the DTFIS entry lOhREhS. 

When unblocked records are specified, 
each PUT writes a record back onto the file 
in the same location from which it was 
retrieved by the preceding GET for this 
file. Thus, each PUT updates the last 
record that was retrieved from the file. 
If some records do not require updating, a 
series of GET instructions can be issued 
without intervening PUT instructions. 
Therefore, it is not necessary to rewrite 
unchanged records. 

When blocked records are specified, PUT 
instructions do not transfer records to the 
file. Instead, each PUT indicates that the 
block is to be written after all the 
records in the block have been processed. 
When processing for the block is complete 
and a GET is issued to read the next block 
into main storage, that GET alsc writes the 
completed block back into the file in its 
previous location. If a PUT instruction is 
not issued for any record in the block, GET 
does not write the completed blcck. The 
ESETL macro instruction writes the last 
block processed, if necessary, before the 
end-of~file. The ESETL (end set limit) 
macro instruction ends the sequential mode 
initiated by the SETL iracrc. If blocked 
records are specified, ESETL writes the 
last block back if a PUT was issued. 

i^ote; If ADERTR and/or RANSEQ are 
specified in the same BTE, ESETL should 
be issued before issuing a READ or 
WRITE. Another SETL can be issued to 
restart sequential retrieval. 



ISAM^LOADj. ENDFL Macro y Phase 1 - $$BENDFL 

Charts DA-DE 



Objective; To validate lOAREAI address 
limits and DTFIS table limits. To reset 
error indicators in BTF table. To pad key 
field and write partially filled block if 
present. To write EOF record. To write 
track index (TI) entries, cylinder index 
(CI) entry, and m.aster index (MI) entry if 
needed. To compute number of bytes used in 



the highest level index used. To write 
track index inactive entries if needed. 

Entry; From the ENDFI macro expansion. 

Exits; To the second phase cf the EWDFL 
nacre, $$BENDFF. 

Method : This phase first validates the 
address limits of lOAREAL and the DTFIS 
table via an SVC 26. It then resets errcr 
indicators in the DTF table for prime data 
area full, duplicate reccrd, and sequence 
error. It checks for a partially filled 
blocked record. If one is present, it pads 
the key field with all I's and writes the 
partially filled block. 

A series of tests is made tc determine 
the location cf the last prime data record 
written. If the record vcas net the last 
record on the track, the last track full 
indicator is set off. If the reccrd was 
the last record on the track, the address 
in the ID field of lOAREAL is modified. If 
space is available in the prime data area, 
the EOF record is written. If encugh space 
is net available for the EOF record, this 
condition is posted at Filename. C in the 
DTF table. 

A test is made to determine if the last 
prime data track was full. If not, this 
routine writes the track index normal entry 
and the track index overflow entry. It 
also writes the cylinder index normal 
entry, and (if the master index is being 
used) the master index normal entry. If 
the last prime data track was full, and the 
last track index record number was net 0, 
this routine writes a cylinder index normal 
entry and a master index normal entry, if 
the m.aster index is being used. 

If the last track index reccrd number 
was zero, tut the track was not 0, a 
cylinder index normal entry is written. If 
the last track index track was 0, and the 
cylinder index record is not the last 
record en the track, a m.aster index ncrmal 
entry is written (if the master index is 
being used). Otherwise, pointers are set 
tc the lower limit of the highest index 
level being used. 

The routine then computes the total 
number of bytes used in the normal entries 
cf the highest level index being used. 

When the total number of bytes in the 
highest level index has teen determined, 
this phase formats the track index inactive 
entries and then tests to determine if 
there are mere track index records on the 
cylinder. If so, track index inactive 
entries are written until there are no more 
records on the cylinder. A test is made 
for the device type. If the device is a 
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2311, this routine continues to write track 
index inactive entries until the end of the 
prime data extent is reached, keeping a 
count of the number of cylinders containing 
track index inactive entries. If the 
device is a 2321, 2314/2319, or 3330, this 
phase does net format any ircre track index 
inactive entries. 



duirir.y chained entries, if an;^ , for the 
cylinder index, and for the master index, 
if it is being used. 

When the dummy chained entries have been 
vfritten, this phase exits to the problem 
program via an SVc 11. 



When there are no mere track index 
inactive entries to be written, the address 
of the DTF is saved for the next phase, and 
this phase exits to phase $$BENDFF. 



ISAiyi_LCADi ENDFL Macro, Phase 2 - $$BENDFF 



Charts DC-BB 



Objective: To write cylinder and master 
index inactive entries for any unused 
cylinders. To write cylinder index and 
master index dummy end entries. Tc write 
cylinder index and naaster index dum.my 
chained entries. 

Entry: From, the first phase of the ELSTDFL 
macro, $$BENDFL. 

Exits; To the problem, program via an 
SVC 11. 

Method; This transient routine first 
formats the cylinder index inactive entry. 
Using the count of the number of cylinders 
containing track index inactive entries, as 
determined by $$BENDFL, this routine writes 
cylinder index inactive entries fcr the 
unused cylinders. While the inactive 
entries are being written, a count is kept 
of the number of tracks containing cylinder 
index inactive entries. A.fter the last 
cylinder index inactive entry is written, a 
cylinder index dummy end entry is written. 

The routine then tests to determine if 
the master index is being used. If it is, 
master index inactive entries are written 
using the count of cylinder index tracks 
containing inactive entries. One master 
index inactive entry is written fcr each 
track of cylinder index inactive entries. 
After the last master index inactive entry 
is written, this routine writes a master 
index dumm.y end entry. 

At the end of each master index or 
cylinder index cylinder, there is a master 
index or cylinder index dummy chained entry 
that points to the next master index or 
cylinder index cylinder. In other words, 
the last record on the last track of a 
cylinder of cylinder index records points 
to record on track of the following 
cylinder if it is also in the cylinder 
index extent. After the dummy end entries 
have been written, this routine writes 



ISAM^LOADj SETFL ^acro. Phase 1 - $$BSETFL 

Charts DE-BF 



Cbjectiye: To validate BTFIS table limits 
and lOAREAL limits. To test fcr prime data 
en data cell and disk devices. To 
determine the number of cylinders in the 
prime data extent, the miaximum number ef 
cylinder index entries in the cylinder 
index extent, and to check if the cylinder 
index extent is too small. Tc check if the 
master index extent (if present) is too 
small. To build the basic CCW string for 
use by the LOAB module and ENBFL 
transients. To move last prime data, track 
index, cylinder index, and master index 
record addresses to the BTF table. 

Entry; From, the SETFL macro expansion. 

Exits: To the $$BSETFF fcr normal exit. 
Tc problem program (via SVC 11) if cylinder 
index or master index extents are toe 
small. 

Method: This B-transient first validates 
the address limits of lOAFEAI and the BTFIS 
table. It then tests whether the prime 
data is en a data cell or disk device, and 
m,ov€S the address limits to the prime data 
control field of the BTF table. 

This phase then calculates the number cf 
prime data extents minus one. With this 
information, the total number ef strips is 
calculated (if the device is a 2321) . Four 
strips per extent are then decreased from 
the total num.ber to allow for alternate 
tracks. The total number of cylinders 
minus one is then calculated. 

This phase next calculates the number of 
active records in the cylinder index, and 
compares this number with the total number 
cf prime data cylinders minus 1. If the 
number of cylinders is greater than or 
equal to the number cf cylinder index 
records, the cylinder index extent is too 
small and flags are set tc indicate this 
cenditicn. 

A test is then made tc determine whether 
the master index is being used. If it is, 
the tctal number of cylinder index records 
referenced by the master index is used tc 
determine the number of cylinder index 
cylinders referenced by the master index. 
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One diaiwiiy record per cylinder index 
cylinder is subtracted from the total 
number of cylinder index records. The 
result of this subtraction (number of 
cylinder index records referenced by the 
roaster index) is compared tc the total 
number of prime data cylinders minus one. 
If the number of priire data cylinders is 
greater than or equal to the number of 
cylinder index records, the iraster index is 
too small, and flags are set to indicate 
this condition. If the roaster index is not 
being used, this check is bypassed. 

Ihe phase then checks to determine if 
either the cylinder index cr iraster index 
extent is too small. If so, this phase 
returns to the problem program via an 
SVC 11. If the extents are large enough, 
the record number of the track index dummy 
record is calculated, and the logical 
transient proceeds to build the CCW string 
shown in Figure 32. 

When the CCW string has been completed, 
the seek/search address is set up. The 
lower limit address of the prime data area 
is moved to the seek/search address area, 
and a test is made to see if the file is to 
be extended. If so^ the extension 
indicator in the DTF table is set on, and 
the address of the last prime data record 
is saved for $$BSETFF. LTIRA (last track 
index record address) is initialized to the 
address of the last track index overflow 
entry. A test is made to see whether the 
upper limit address of the prime data 
extent has been increased. If sc, an 
indicator is set for $$BSETFF, and the old 
prime data upper limit is ircved tc the 
seek/search address area. The upper limit 
address is initialized with the new prime 
data upper limit. 

A test is then made to see if the last 
prime data track is full. If it is not 



full, the last two track index entries must 
be rewritten during the lead operation 
(since the highest key on the prime data 
track increases when new records are 
written) • Therefore^ the last track index 
record number (LTIHA) is decreased tc point 
tc the track index entries for the previous 
track. The last cylinder index record 
number (LCIRA) and the last master index 
record number (LMIRA) are alsc decreased by 
cne. (LJ^IRA is only decreased if the 
master index is being used.) $$BSETFF is 
then fetched* 

if the last prime data track is full, 
and it is not the end of the cylinder, the 
last prime data record address (IPDRA) is 
increased to record zero en the next track. 

A test is made to see whether the last 
track index entry address is the last 
record on the track index track. If sc, 
the last track index entry address (LTIRA) 
is set to record zerc en the next track. 
Then the last cylinder index record address 
(LCIRA) and the last master index record 
address (LKIRA) are decreased by one, and 
$$BSETFF is fetched. 

If the last prime data track is full, 
and the cylinder is full, the last prime 
data entry address (LPDRA) and the last 
track index entry address (LTIRA) are 
updated to the start of the next cylinder 
cf the prime data extent. Since the last 
prime data cylinder is full, the last 
cylinder index record address (LCIRA) is 
not changed. If the last cylinder index 
track is net full, the last master index 
record address (LMIRA) is decreased by one. 
If the last cylinder index track is full, 
LMIRA is net changed. 

When all processing has been completed, 
this phase exits to phase $$BSETFF tc 
initialize the CCW chain and I/O areas. 
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CCW Built 



Function 



X'07\ llddress of Prime Data Lower 
Limit, Coirirand Chaining, 6. 

X'31», Mdress of Prime Data Lower 
Limit, Command Chaining, 5. 

X'08', Pointer to *-8, Command 
Chaining, -. 

X'lD', Address of lOAREAL, Suppress 
Length Indicator, 16384. 



Long seek. 



Search identifier equal for the beginning 
of the prime data area, 

TIC to *-8. 



V^rite count, key and data in prime data 
area. If the verify option is specified, 
the com.mand chaining bit is set en in the 
flag field. 



If the verify option is specified, the follo\«iing CCWs are built in addition to these 
above. 



X'31*, Address of Prime Data Lower 
Limit, Command Chaining, 5. 

X'08», Pointer to *-8, Command 
Chaining , -. 

X'lE' , 0, Suppress Length Indicator 
and Data Transfer, 1 



Search identifier equal. 



TIC to *-8. 



Read count, key and data tc verify prime 
data record written. No data is 
transferred to main storage. 



Figure 32. CCW chain built by $$B£ETFL to write prime data records. 



ISAM LOAD: 
Chart DG 



SETFL Macro ^ Phase 2 - $$BSETFF 



Objective; To initialize the CCW chain and 
I/O areas required to write the last track 
index track in each cylinder of the prime 
data area and the cylinder overflow control 
record (COCB) , if the cylinder overflow 
option has been specified in the DTFIS 
table. 

Entr^: From the first phase of the SETFL 
macro, $$BSETFL. 

Exit; To the third phase of the SETFL 
macro, $$BSETFG. 

Method; This phase first gets the key 
length from the DTFIS table and stores it 
in the count fields associated with the 
write count, key and data CCW's . These 
CCW's are built to write up to 41 track 
index records with one EXCP. 

A track index dum^my record is built in 
the user's lOAREAL and the number of 
cylinder overflow tracks in each cylinder 
is calculated and saved in the CCCR data 
field. This phase then determines the 
correct Write Count, Key and Data CCW to 
write the track index dummy record. When 
the correct CCW is found, the address of 
lOAREAL is moved to its data address field. 



A test is made to determine if the 
cylinder overflow option has been 
specified. If it has. Record Zero CRO) in 
the track index contains a Cylinder 
Overflew Control Record (COCK) . The COCR 
is found in the data area of RO. The COCR 
contains the address of the last overflew 
record on the cylinder and the number of 
tracks rem.aining in the cylinder overflow 
area. This phase initializes the COCR with 
the address of the first cylinder overflew 
track and the number of cylinder overflow 
tracks. 

It tests to determine if the track index 
records to be formatted are en track of 
each cylinder. If so, the seek command 
code is changed to a NO-OP, the flag bits 
are set to indicate command chaining, the 
file protect indicator is reset and 
$$ESETFG is fetched for execution. All 
writing is done on track with cne EXCP. 
If the track index records are not on track 
C, a test for DASD file protect is made. 
If the EASE file protect feature is not 
present, flag bits of the seek CCW are set 
tc indicate command chaining, the file 
protect indicator is reset and $$BSETFG is 
fetched fcr execution. All writing is done 
with one EXCP. If the file protect feature 
is present, the file protect indicator is 
left on and $$ESETFG is fetched. All 
writing is done with two EXCPs. If the 
cylinder overflow option has not been 
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specified^ the file protect indicator is 
reset. All writing will be dene with one 
EXCP. 



SETFL Macro, Phase 3 



$$BSETFG 



ISAM_LCAD£ 
Chart DH 



Objective: To format last track index 
track in each prime data cylinder. To 
write Cylinder Overflow Control Record 
(COCR) data if the cylinder cverflow option 
has been specified. 

Entr^: Froir the second phase cf the SETFL 
macrOt $$BSETFF. 

Exit: To problem program via an SVC 11 or 
to phase 4 of the SETFL macro, $$B£ETFH, 
via an SVC 2. 



Entry; Frcir the third phase of the SETFL 
iracro, $$ESETFG. 

Exit; To problem via an SVC 11. 

y ethcd ; Fcr extension of file, this phase 
reads the last prime data reccrd (the 
address was saved by the first phase, 
$$ESETFL) . This provides keys for a 
comparison in the load operation. If the 
records are blocked and the last block was 
not filled by a previous load operation, 
this phase finds the padded reccrd and sets 
the block position address to load the next 
prime data record at the locaticr cf the 
padded reccrd. If the records are blocked 
and the last block is full, this phase 
reads the last cylinder index entry tc 
cttain the highest key of the load file and 
sets the block position address tc lead the 
next prime data record at the Iccaticn of 
the data in lOAREAL. 



Method: This logical transient phase first 
checks to determine whether the file has 
been extended, but the prime data area 
upper limit has remained the same. If so, 
no formatting is required, and a branch is 
taken to read the last prime data record. 
If the file is being created or being 
extended with increased upper limit, this 
phase formats the last track index track in 
each prime data cylinder (1 track per EXCP 
through use cf an extended CCW chain) , and 
writes the COCR data fcr each cylinder if 
the cylinder overflow option is specified. 

When the last track index tracks are 
formatted, this phase tests to determine 
whether the file is being extended or 
created. If the file is being created, the 
seek/search address is set up, the count 
field of the IOARE?^L is initialized with 
the address, key length and data length of 
the last prime data record.. The CCB is 
initialized with the address of the CCW 
chain. 

If the file is being created, the block 
position address is set with the current 
logical record address. The logical record 
counter is saved in the DTF table, the CCB 
is initialized with the address of the CCW 
chain, and this phase exits to the problem 
program via an SVC 11. 

If the file is being extended, $$BSETFH 
is fetched via an SVC 2. 



ISAM_LgADj_ SETFL_MacrCj__Phase_4_2-i5lSETFH 

Chart DJ 



^fei^^tive: For extension cf file, to read 
the last prime data record so that keys may 
be compared by the ISMOD macro. 



ISAM LOAD; Write Macro, NEWKEY 

Charts DK-EM 



Objective; To ensure that keys are in 
ascending sequence. To vvrite prime data 
record in correct location. To write track 
index entries, cylinder index entry and 
master index entry, if necessary. 

Entry; Frcm the WRITE, NEWKEY macro 
expansion . 

Exit; To problem program via return 
register 14. 

Method; This routine first tests switches 
in the DTF table to determine if the prime 
data area is full or if the cylinder/master 
index is tco small. If either condition 
exists, this routine exits to the problem 
program via linkage register 14. A test is 
then made to determine if I0AREA2=YES is 
specified as an ISMCD macro parameter 
cpticn. If I0AREA2 is specified and the 
presence of two I/O areas is indicated in 
the ETF table to allow overlapping of I/O 
with processing while creating the file, 
this routine gets the addresses of lOAREAL 
and I0AREA2 and determines if the ENDFL 
macro was issued. If it has been issued, a 
wait for I/O completion and a test fcr 
ERREXT=YES are made. If ERREXT is 
specified, additional error conditions can 
be returned to the problem program, thus 
giving the user greater flexibility in 
attem.pting to continue processing. 

If I0AREA2 is not specified or if the 
ENDFL macro was not issued, a test is made 
to determine if the current record is the 
first reccrd in the file. If it is the 
first reccrd in the file, a test for 
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I0AREA2=YES is made. If ICAREA2 is 
specified and there are twc I/O areas, the 
traffic bit ia the CCB is txarned on and the 
I0AREA2 address constant is relocated. If 
I0AREA2 is not specified or if the current 
record is not the first record in the file, 
the current key is moved to the I/O area 
and a test is irade to deteririne if the 
previous key is lower than the current key. 
If the previous key is not Icwer, a test 
for duplicate keys is made. If the keys 
are equal, a duplicate record indicator is 
set at Filename. C. If the current key is 
lower than the previous key, an 
out-of-sequence indicator is set at 
Filename. C. Control then returns to the 
problem program. 

If the previous key is Icwer than the 
current key, the current key and data are 
moved to the I/O area, the prime data 
record count and logical record count are 
updated Dy 1 and a test is rrade tc 
determine if this is the first logical 
record in the block. If it is the first 
logical record, the record number in the 
count field of the I/O area is updated. If 
I0AREA2 is specified, a test for a full 
block is made. If the block is net full, 
the logical record count and the block 
position address are saved and control 
returns to the problem program. 

If the block is full, the logical record 
count is reset to and a test for 
I0AREA2=YES is made. If I0AREA2 is 
specified, the addresses of the twc I/O 
areas are interchanged and saved in the DTF 
table. The I/O area data address is saved 
as the block position address, and a test 
for ERREXr=YES is made. If ERREXT is 
specified, the record type in the paraireter 
list is set to indicate data. A test for 
I0AREA2=YES is made. If ICAREA2 is 
specified and there are two I/O areas 
present, the prime data record ID is 
updated again and a prime data record from 
the second I/O area is written. If I0AREA2 
is not specified, a prime data record from 
lOAREAL is written. 

Note: The preceding process works for both 
blocked and unblocked records. 

A check is then made to determine if the 
data record was written on a shared track. 
If it was written on a shared track, and it 
was not the last record of a shared track, 
control returns to the problem! program. If 
the record was the last on a shared track, 
a test for I0AREA2=YES is made. If I0AREA2 
is specified, a wait for I/c com^pletion is 
made. The track index normal entry is then 
initialized to indicate a shared track 
index entry. 

If the record was net written on a 
shared track and it was not the last record 



on the prime data tr 
the problems program, 
prime data has been 
I0AREA2=YES is made, 
specified, a wait fo 
made and a test for 
ERREXT is specified, 
parameter list is se 
index. The track in 
entries are written 
index record address 



ack, control returns to 

If the end cf the 
reached, a test for 

If I0AREA2 is 
r I/C completion is 
ERREXT=YES is made. If 
the record type in the 
t to indicate track 
dex normal and overflew 
and the last track 
is saved. 



Tests are then made for end of cylinder. 
If the last prime data record written was 
not the next-to-last or last record on the 
cylinder, the current prime data track 
number is updated by 1 and control returns 
to the problem program. If the record was 
the next-te-last record in the cylinder, a 
test is made for the end cf the prime data 
extent. If the end of the extent has not 
teen reached, the prime data track number 
is increased and control returns to the 
problem program. If it is the end of the 
extent, the end-of-extent indicators in the 
DTF table are set and control returns to 
the problem program. 



If the record was the last prime data 
record en the cylinder, a test for 
ERREXT=YES is made. If ERREXT is 
specified, the record type in the parameter 
list is set to indicate cylinder index. A 
cylinder index entry is then written and 
the last cylinder record address is 
updated. If a master index is being used, 
a master index entry is \^ritten if: 



The cylinder index entry is the 
next-tc-last track in the cylinder. 



2. The cylinder index is the last record 
on the track. Before the master index 
entry is written, a test for ERREXT=YES 
is made. If ERREXT is specified, the 
record type in the parameter list is 
set to indicate master index. 



Next, this routine tests for the end of 
the prime data volume. If end of volume 
has been reached, the extent sequence 
number is \:pdated by 1 and the seek/search 
address is modified to the beginning 
address of the volum.e. If it is net the 
end cf vclum.e, the address in the 
seek/search area is updated, and the last 
track index record address and the address 
in the count field of the I/O area are 
modified. (This modification also occurs 
for end of prime data volume.) This 
routine then exits to the problem program 
via return register 14. 
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ISAI^ ADD: WAITF Macro Charts Eh-EL 



Cbjecftive; To add a record to an indexed 
sequential file, adjusting the indexes and 
other records as necessary. 

Entry; From the W?VITF macro expansion. 

Exit: To the problem program via linkage 
register 14. 

Method; This routine first tests for 
ERBEXr=YES. If ERREXT is specified^ 
additional error conditions can fce returned 
to the problem program, thus giving the 
user greater flexibility in attempting to 
continue processing. After waiting for the 
completion of the I/O operation, this 
routine determines the type cf add function 
to be performed. The three types of add 
functions are: 

• Normal add to the priire data area 

• Add to the overflow area 

• EOF add 



Normal Md t o the Prime Data Area : I f a 
normal add to the prime data area is 
required, this routine determines if the 
record is to be added to the last prime 
data track. If it is and the last prime 
data track is full, the overflow record 
address is calculated, and EXCP is issued 
to search and read the prime data track to 
determine the point of inserticn and a wait 
for I/O completion is made. Figures 33-54 
give a description of the channel program 
builder for the ADD function. If the 
addition is not on the last prime data 
track, the overflow record address is 
calculated and the prime data track is 
searched to determine the pcint cf 
insertion for the record to be added to the 
file. When an equal/high key is fcund 
during the search, the count and data 
fields of that location are read into a 
save area in the DTF table and ICAREAL 
respectively. 

A test is made to determine if the prime 
data in core option has been specified as 
an ISMOD macro parameter. I:^ it has been 
specified, as many records as can fit into 
the I/O area specified in the DTFIS operand 
I0ARE?kL are read from the prime data track 
into main storage. The key cf the record 
to be added is compared to the keys of the 
existing reccrds in the I/O area. If a 
duplicate key is found, the condition is 
indicated to the user in the DTF table 
entry labeled Filename. c. If no duplicate 
key is found, the records are shifted in 
main storage leaving the record with the 
highest key remaining in the user's work 



area, WORKL. The other records are 
rewritten directly onto the track. Any 
remaining records on ti:ie track are then 
read into the I/O area. The process 
continues until the last reccrd en the 
track is set up as an overflow record. 
Vvhen the last prim.e data reccrd en the 
track has been rewritten, the new overflow 
record is written in the overflow area, the 
track index normal and overflow entries and 
the COCR are written and control returns tc 
the problem program. 

If the prime data in cere option has net 
teen specified as an ISMOD macro parameter, 
a test for blocked reccrds is made. If the 
file is unblocked, the record previously 
found on the search key equal/high is 
reread tc get the key field. If it is a 
duplicate key, a switch is set en in the 
ETFIS table indicating a duplicate key has 
teen sensed, and a rettirn to the problem 
program is made. If there are no duplicate 
keys, the user's key and data are written 
from the work area, WORkl, onto the DASD 
file. The record in the I/O area, lOAREAL, 
replaces the user's record in the work 
area. The next record on the track 
replaces the one in the I/O area. This 
process is repeated until the end of track 
is reached. 

If the end-of-file (ECF) reccrd is read 
during the process of shifting the records 
over one record position, this routine 
writes the last record over the ECF record, 
and then writes a new EOF record (Figures 
35, 43, 44), 

If the file contains blocked records, 
this routine reads the blcck cf reccrds (or 
as many as fit in the I/C area if lOAREAL 
has been increased for reading and writing 
more than one record at a time) into 
lOAREAL. The key field within each logical 
record is analyzed to determine the correct 
pcsition in which to insert the new record. 
If there is duplication cf keys, a switch 
is set on in the DTFIS table and control 
returns to the problem program. 

If the key of the record to be inserted 
(contained in WORKI) is low, it is 
exchanged with the reccrd presently in the 
blcck. This procedure continues with each 
succeeding record in the block until the 
last record is moved into the work area. 
The key field of the DASE record is then 
updated tc reflect the highest key in the 
block. If the size of lOAREAL has been 
increased, succeeding blocks in the I/O 
area are also updated. The blcck (or 
blocks) is then written back onto DASD. 
The remaining blocks on the track are 
similarly processed until the last logical 
record on the track is mcved into ^ORKL. 
This record is then set up as an overflow 
record with the correct sequence-link field 
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added and written in the overflew area. 
The sequence-link field for the new 
overflow record is taken frcir the track 
index overflow entry. The indexes are 
updated and control returns to the problem 
program for the next record to be added. 
If the overflow area is full, this 
information is indicated to the user in the 
DTF table entry labeled Filename. C. 

The track index norrral entry key field 
is updated to the key of the new last 
record, the track index overflew entry data 
field is updated to the address of the new 
overflow entry (that entry has the lowest 
key for the overflow for that track) and 
the COCR is updated. These records are 
written on the EASD file before control 
returns to the problem program. 

If the last block in the prime data area 
is padded, the last record tc be shifted is 
included in that block. If the EOF record 
is read during the process cf shifting the 
records one record position, the last 
record is written as a new block and a new 
EOF record is written before returning 
control to the problem program. 



Add to the Cverflow i^rea; This routine 
computes the new overflow record address 
and reads the cverflow chain tc get the 
address of the record with the next highest 
key. This address is stored in the 
sequence-link field of the new record. The 
new overflow record is then written in 
either the cylinder overflew area er 
independent overflow area. If these areas 
are full, this conditicn is indicated to 
the user in the DTFIs table entry labeled 
Filename. C. Each time an cverflow record 
is added to the independent overflow area, 
an EOF record is written tc maintain the 
integrity of the indexed sequential file 
(Figure 45) . The next overflow record 
followed by an EOF record overlays the 
previous EOF record. 

If the new cverflow record has the 
lowest key in the overflow chain, its 
address is used to build a new track index 
overflow entry. The new overflew entry is 
then written on the DASD file (Figure 42) 
and control returns to the problem program. 
If a cylinder overflow condition occurs, 
the updated cOCR (cylinder overflew control 
record) is written on CASD before control 
is returned to the problem, program (Figure 
39). 

If the new cverflow reccrd dees not have 
the lowest key, the sequence-link field of 
the record with the next lower key is 
updated to contain the address cf the new 
overflow record. This overflow record is 
then rewritten on DASD and the COCR is 



updated. Control returns to the problem 
program. 

EOF Md; This routine first determines if 
the last prime data track is full. If the 
last prime data track is net full, the new 
reecrd is inserted on it. If the file is 
blocked, the block is read and the new 
reccrd is inserted. 

If the file is not blocked cr if it is 
blccked and the last block is full, a new- 
last prime data reccrd address is stored 
and the new record is written at that 
address. P. new EOF record is then written 
(Figure 35). 

If the last prime data track is full, 
the new record is inserted in the overflow 
area. The new overflow reccrd address is 
computed and the record is written in the 
overflow area. 

If an overflow chain is present, the 
next Icwer record in the chain is found and 
the address of the new record is moved tc 
the sequence-link field cf the next lower 
record. 

If no overflow chain is present, the 
address of the new overflow record is moved 
to the track index overflew entry. The 
track index overflow entry is then written 
with the new high key. The master index 
(if present) and the cylinder index are 
updated with the new high key. h test for 
the cylinder index in core option is then 
made. If it has not been specified, 
control is returned to the problem program. 
If the cylinder index in core option has 
teen specified, the new key is inserted 
into the appropriate index in core entry 
before returning control tc the preblen 
program. 



ISAM AEC: WRITE Macro, KEWKEY Charts EE-EF 



Objective; To perform the necessary 
initialization to add a record tc a file. 

Entry; From the WRITE, NEWKEY macro 
expansion. 

Exit; Tc the problem program via linkage 
register 14. 

Method; After initializing the pointers to 
the three parts of the DTFIS table, this 
routine gets the starting address of the 
highest level index, builds a CCW chain to 
search the highest level index (Figure 33) 
executes the channel program and tests for 
ERREXT=YES. If ERREXT is specified, 
additional error conditions can be returned 
to the problem program, thus giving the 
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user greater flexibility in attempting to 
continue processing. The channel program 
is executed and a wait for I/O completion 
is made. The routine then tests the F code 
of the index level pointer tc determine if 
the next search is of the cylinder or track 
index. The f cede refers tc the index 
level just searched. If it vvas the master 
index, the next search is en the cylinder 
index. See Figure 17 for a description of 
the F code. 

If the f code indicates a dummy chained 
entry , the search of the master, cylinder 
or track index continues. If the index 
level pointer did not indicate a dummy 
chained entry, a test for an inactive or 
dummy end entry is made. If an inactive or 
dummy end entry is indicated, the EOF add 
indicator is set on in the DTFIS table, a 
CCW chain is built to read the last track 
index entries (Figure 46) , the channel 
program to bypass the last of the track 
index entries is executed, a wait for the 
I/O operation to be completed is made, and 
control returns to the problem; program. 
Processing continues with the record 
following the last key. 



If an inactive or dummy end entty is net 
indicated, a test for the presence of a 
m.aster index is made. If the master index 
is net present, indicating the cylinder 
index was just searched, a search ef the 
track index is performed, and a return to 
the problem! program is m.ade. 



If the master index is present, a test 
is made to determine if the cylinder index 
in cere option was specified as an ISMCD 
msacro parameter. If it vias not specified, 
an EXCP is issued to search the cylinder 
index, followed by a wait for I/O 
cempleticn, an EXCP to search the track 
index, a wait for I/O ccmipletion, and a 
return to the problem precram. If the 
cylinder index in core option was 
specified, a search of the track index is 
performed, and a return to the problem 
program is made. When HOLD^YES is 
specified in the DTF, any held data tracks 
and index tracks are freed before control 
returns tc the problem program. 



J. ^ 

1 CCW Builder 
1 Control Code^ 

L ^ J 


P 

1 

CCW Built 




-.^ ^ 

1 Function 

«j ^«. «. — _ — 


1 7961 


i X'69', gKEYARG, CC and 

Key Length 
1 


SLI, 


-^ — -. « — — — «. « _ — 

1 Search key equal or high the 

1 master/cylinder index. Key supplied by 

1 user in the DTFIS table. 


1 0C6B 


1 X'08', Pointer tc *+16, 

and SLI, 5 
1 


CC 


1 TIC to *+16. 


1 D17B 1 


1 

X • 1?^ • , ^SFilename . D+8 , 
1 SLI and SKIP, 5 

1 


CC, 


1 Read heme address into work area 

1 for the current track index normal entry 

1 count field in the DTFIS table. 


1 516C 1 


1 

X ' 92 • , 2gf iiename . D+8 , 
i and SLI, 10 

1 


CC 


1 Read count (multiple track) into 
1 work area for the current track index 
i normal entry count field in the DTFIS 
1 table. 


1 7961 1 


1 

X'69«, SKEYAKG, CC and 
1 SLI, Key Length 

1 




1 Search key equal or high the 

1 master/cylinder index. Key supplied by 

1 user in the DTFIS table. 


1 046B 


1 

X'08', Pointer to *-16 , 
1 and SLI, 5 


, CC 


1 TIC to *-16. 


1 150C 


1 X'06', 2gFiiename.B+aO| 
10 

1 


00, 


1 Read data (next 10-byte index level 

1 peinter) into work area for track index 

1 normal entry data field in DTFIS table. 



L 



L 



X 



J 



^-2 See notes 1 and 2 in Figure 54. 



Figure 33. Channel program builder for ADD — CCW chain built to search master cylinder 
index. 
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1 CCW Builder 
1 Control Code^ 


1 

CCW Built 


P_ — — 

Function 

L 


1 8C4B 


r — - - - -Y 

1 X'31', 2gf ilenaire.s+3, CC, 5| Search identifier equal the track index 

1 using the pointer (CCHHR) in the common 
1 1 seek/search area. 


1 066B 


1 X'08', Pointer tc *-8,CC 

and SLI, 5 
1 


lie to *-8. 


1 106C 


1 

X'06', 2gf.^iiename.D, CC and 
1 SLI, 10 


Eead data (COCR record) into the cylinder 
overflow control record (COCR) area. 


1 516C 


i X'92', 2g|riienaire.B+8^ CC 

and SLI, 10 
1 


Read count (multiple track) into Viczk 
area for the current track index normal 
entry count field in the DTFIS table. 


1 7941 


1 X'69' , &KEYARG, CC, 

Key Length 
1 


Search key equal or high the track 
index. Key supplied fcy user in the DTFIS 
tafcle. 


1 046B 


1 X'08', pointer tc *-16, CC 

and SLI, b 
1 


lie to *-16. 


1 156C 


1 

X'06«, 2gFiienanie.D+40, CC 
1 and SLI, 10 

1 


Read data (next 10-byte pcinter to prime 
data record) into work area for track 
index ncriral entry data field in DTFIS 
tatle. 


1 526C 


1 X'92', 2gfiienaire.E+16, CC 

and SLI, 10 
1 


Read count (multiple track) into vvcrk 
area fcr current track index overflow 
entry count field in DTFIS table. 


1 IDOC 


1 X'06*, 2gpiienarre.W, 00 
10 


Read data (10-byte overflcvs entry) into 
randcir/sequential retrieval work area. 



^"^ See notes 1 and 2 in Figure 54. 

Figure 34. channel program builder for ADD -- 
index. 



X ^ . ^ ^ J 



CCVJ chain built to search master cylinder 



j.«-. . -J. 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



H 



8C4B 



066B 



342C 



X'31', 2gpiiename.S+3, CC, 5 



X'08\ Pointer to *-8, CC 
and SLI, 5 

X'lO' , 2gFiienaire.D+32, 
SLI, 10 



Search identifier equal for the last prime 
data record address using pcinter, CCHriR , 
in ccirircn seek/search area in DTFIS table. 

TIC to *-8. 



Write count, key and data of EOF record 
located in current overflow record count 
field in DTFIS table. 



^-^ See notes 1 and 2 in Figure b4. 
Figure 35. channel prcgran builder for ADD — CCW chain built to write new EOF reccrd. 
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|CCW Builder \ 
1 Control Code^ 

L«.^^ ^ ^^ 


,-„ .^, 

CCW Built 

L , .^^-^ ^-^ ^ - 


1 


Function 


1 1 


|. ,.^-,^^— ^ -^ — ^ ^ -., — 


1 




1 ac4B 

1 1 

i i 


1 


-1 


Search identifier equal the priire data 
track using pointer, CCHBR, in common 
seek/search area in DTFIS table. 


1 1 

1 066B 

1 


1 XV08', Pointer tc *~8, CC 

and SLI^ 5 
1 




lie to *-8. 


1 436C 1 
1 1 


1 

X'12% 2gjFiienaitie.D+2t* , CC 
1 and SLI, 10 




Bead count field for current prime data 
record. 


1 7941 

1 1 

1 


X'69% SKEYARG, CC^ Key 
Length 
1 




Search key equal or high the priire data 
track. Key supplied by user in DTFIS 
table. 


1 1 

1 046B 

1 1 


1 X'08\ Pointer tc *-16, CC 

and SLI, 5 
1 




lie to *-16. 


! 1B02 


1 

X'QS\ Mdress of lCAREhL^8 
1 +KEyLEN, 00, Block Size 




Bead data (prime data block) into 
IOAREAI+8+Key length. 



L_ , J, ^ 

^-^ See notes 1 and 2 in Figure 54, 



-X 



J 



Figure 36. channel prcgrair builder for ADD — CCW chain built to find prine data 
record. 
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J.- — ^ 

1 CCW Builder 
1 Control Code^ 


J. . — ^ . . ^ , 

1 

CCW Built 


-^-. . 

1 

1 Function 

. 1 ^_ „ , , ^ , 


1 8C4B 


1 X«31« , ^gFilenaire, 

1 


S+3, CC, 5 


-t~ ^' ■ — ' ■ 

[Search identifier equal the track index 
1 using pointer, CCHHR, in coninion 
(seek/search address area in DTFIS table. 

r 


1 066B 


1 X'08' , Pointer to 
and SLI, 5 


*-8, CC 


1 

|1IC to ♦-8. 

1 
1 


1 B06C 


1 

X'05\ ^gpiiename, 
1 SLI, 10 


D, CC and 


[ 

1 Rewrite COCR located in cylinder overflow 

(control record work area in BTFIS table, 
i 


1 E14B 


1 X'Bl' , 2gFiienair€ 
CC, 5 

1 


.D+8, 


I 

(search identifier equal (irultiple track) 
|fcr the pointer, CCHHR, in the normal 
(entry count field. 

i 


1 066B 


1 X'08\ Pointer to 

and SLI, 5 

1 


*-8, CC 


1 

(lie to *--8. 

1 
1 


1 2A45 


1 

X'OD', Address of 
1 IOAREAL+8, CC, 
Key Length +10 




( 

(Rewrite track index normal entry located 
(at IOAREAI+8. 

I 
1 


1 E24B 


X'Bl', ^gpiienaiue. 
1 

1 


I 
D+16 , CC, 5|search identifier equal Cirultiple track) 
1 f or the pointer, CCHHR, in the c^?erflcw 

|entry count field. 
1 


1 066B 


X'08\ Pointer to 
1 and SLI, 5 


*-8, CC 


1 

(TIC to *-8. 

1 
t 


1 BDCC 


1 X'05S 2gfiienaire 

DC, 10 
i 


.^, CC and 


( 

[Rewrite overflow entry located in 

j randcm/sequential retrieval work area. 
1 


1 824B 


1 

X'31', 2gFiienaiiie, 
1 CC, 5 


D+16, 


( 

(Search identifier equal for the pointer, 

[CCHHR, in the overflow entry count field. 
1 


1 066B 


1 X*08' , Pointer to 

and SLI, 5 
i 


*-8, CC 


1 

[lie to *-8. 

1 
1 


1 1D3C 


1 

X'06% 2gpiienaitie. 
i SKIP, 10 


Vv, SLI and 


1 

(Read data to verify record just written. 

(Information is not transferred tc nain 

(storage. 



^-^ See nctes 1 and 2 in Figure 54. 

Figure 37. channel program builder for ADD — CCV^ chain built to rewrite track index 
entry. 
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J. J, 

1 CCW Builder | 

1 Control Code^ 1 CCW Built 

L « J_ 


1 


Function 


t — — — j- 

1 8C4B 


i X'13' , ^gpiienaire 


£+3, CC, 


I- 

5| 


Search identifier equal for EQ using 
pointer, CCHHR, in comiron seek/search area 
in D1FIS table. 


1 066B 


1 X'08' , Pointer to 
and SLI, 5 


*-8, CC 




lie to *-8. 


1 B06C 


X'05', 2gpiienaire, 
1 SLI, 10 


D, CC and 


1 


Write data (updated COCR) from the 
cylinder o^verflow control record (COCR) 
area in the DTFIS table. 


1 E14B 


X'Bl', ^^piienaine. 


D+8, CC, 


5| 


Search identifier equal (multiple track) 
the track index using the pointer, CCHHR, 
in the work area for the current track 
index normal entry count field. 


1 066B 


1 X'OB* , Pointer to 
and SLI, 5 


♦-8, CC 




TIC to *-8. 


1 BDCC 


X'05\ 2gFiienartie. 

1 DC, 10 


W, CC and 


1 


Write data (track index overflow entry) 
from the random/sequential retrieval v^crk 
area. 


1 814B 1 


X'31\ 2g|riienanie 


D+8, CC, 


5| 


search identifier equal the track index 
using the pointer, CCHHR, in the vvcrk area 
fcr the current track index normal entry 
count field. 


1 066B 


i X'08' , Pointer to 
and SLI, 5 


*~8, CC 




lie to *~8. 


1 1D3C 


X'06', 2gpiienairie. 
1 and SKIP, 10 


W, SLI 




Read data to verify record just written. 
Information is not transferred tc main 
storage. 



L 



— J 



--.X . 



^ J 



1-2 See nctes 1 and 2 in Figure 54. 



E'igure 38. Channel program builder for ADD — CCW chain built to write track index 
entry. 



J. 

1 CCW Builder 


-T- 

i 




— i- 




(Control Code^ | 


CCW Built 




Function 


L 


1 




1 , 




r 

1 8C4B 


1 


X'31*, 2gFiiename.S+3, CC, 


5| 


Search identifier equal for RO using 
pointer, CCHHR, in common seek/search area 
in DIFIS table. 


1 066B 




X'08', Pointer to *-8, CC 
and SLI, 5 




TIC to *-8. 


1 B02C 




X'05', 2gFiiename.D, SLI, 


10| 


Write data (updated COCR) from the 
cylinder overflow control record area in 
the DTFIS table. 



L X «± . — J 

^~^ See notes 1 and 2 in Figure 54. 
Figure 39. Channel prcgram builder for ADD — CCW chain built to write COCR. 
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CCW Build 
Control 2 


er 

ode 


LI 

1 


CCW Built 


1 


Function 


8C4B 




I 


X'31', 2gFiienaire.S+3, CC, 


1 
5| 


Search identifier equal using pointer, 
CCHHR, in coirrrcn seek/search area in DTFIS 
tafcle. 


066B 






X'08', Pointer to *-8, CC 
and SLI, 5 




lie to *-8. 


AhOl 






X'OE', Address of ICAREAL+8 
00, Key Length + Record 
Length +10 


t i 


Read key and data of previously low 
overflov? record into ICAREAL + 8. 



L ^ X ^- , ^-. X ^-., ^ , , ^ , J 

^~^ See nctes 1 and 2 in Figure 54. 

Figure 40. channel program builder for ADD — CCW chain built to read previous overflew 
record. 



P -^ 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



H 



8C4B 



066B 



2A47 



8C4B 



066B 



AA37 



X'31', ^&Filenaire.S+3, CC, 



X'08', Pointer tc +-8, CC 
and SLI, 5 

X'OD', Address of ICAREAL+8, 
CC, Key Length + Record 
Length +10 

X'31«, 2gfiienaine.S+3, CC, 5 



X'08«, Pointer to *-8, CC 
and SLI, 5 

X'OE', Address cf IOAREAL+8, 
SLI and SKIP, Key length + 
Record Length + 10 



Search identifier equal using pcinter, 
CCHHR, in coirircn seek/search area in DTFIS 
table. 

lie to *-8. 



Write key and data of previously low 
overflow record located at IOAREAL+8. 



Search identifier equal using pointer, 
CCHHR, in coramon seek/search area in DTFIS 
table. 

TIC to *-8. 



Read key and data to verify record just 
written. Information is not transferred 
to main storage. 



^■"^ See notes 1 and 2 in Figure 54. 

Figure 41. channel prcgrair builder for ADD 
overflow record. 



CCW chain built to write previous 
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L. 



CCW Builder 


-T 

1 




— T-. 




ontrol C 


ode^l 


CCW Built 




Function 






1 




X. 




8CUB 




1 


X'31% 2gfiienaire.S+3, CC, 


1 
5 


Search identifier equal for last overflow 
record address using pointer, CCHHR, in 
common seek/search area in DIFIS table. 


066B 






X'08', Pointer tc ♦~8, CC 
and SLI, 5 




lie to *-8. 


37C9 






X'1D\ Address of ICAREAL, 
CC and DC, Key Length + 
Record Length +18 




Write count, key and data of new 
overflow record located at lOARE^L. 


SCUB 






X'31', 2gFiienanie.S+3, CC, 


5| 


Search identifier equal for last overflow 
record address using pointer, CCHHR, in 
ccirircn seek/search area in DTFIS table. 


066B 






X'08* Pointer to *-8, CC 
ana 3Li, b 




TIC to *-8. 


C739 




1 


X'lE', Address cf lOAREAL, 
SLI and SKIP, Key length + 




Read count, key and data to verify 
record just written. Information is 






1 
-X 


Record Length + 18 


_ X. 


not transferred to main storage. 



*---2 See notes 1 and 2 in Figure 54. 



Figure 42. channel program builder for ADD — CCW chain built to write new overflew 
record. 



P-. J. 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



8C4B 



066B 



37C8 



8C4B 



066B 



C738 



X'31', 2gpiiename.S+3, CC, 5 



X'08', Pointer tc +-8, CC 
and SLI, 5 

X'lD', Address of ICAREAL, 
CC and DC, Key Length + 
Block Size + 8 

X'31', 2gpiienarae.S+3, CC, 5 



X'08', Pointer to +-8, CC 
and SLI, 5 

X'lE', Address of ICAREAL, 
SLI and SKIP, Key Length + 
Block Size + 8 



Search identifier equal for present ECi 
record address minus 1 using pointer, 
CCHHR, in common seek/search area in DTFIS 
table. 

TIC to *-8. 



Write count key and data of new record 
to be added located at ICAREAL. 



Search identifier equal for present ECF 
record address minus 1 using pointer 
CPHHR, in ccm.mon seek/search area in DTFIS 
table. 

TIC to *-8. 



Read count, key and data to verify 
record just written. Information is 
not transferred to main storage. 



^-■2 See nctes 1 and 2 in Figure 54. 

Figure 43. Channel program builder for ADD — CCW chain built tc iivrite over ECF record 
(blocked records) • 



122 DOS/VS LIOCS Volume 3 DAM and ISAJ^ 



J, — ^«- — ^„„ ^ 

1 CCW Builder 
1 Control Code^ 


P ^«-_-„ — . 

1 CCW Built 


— T' 

1 


Function 


1 8C4B 

1 1 
1 


X'31', 2gpiienaiiie.S+3, CO, 


1 

^1 


Search identifier equal for present ECJF 
record address minus 1 using pcinter, 
CCHHR, in coiriron seek/search area in DTFIS 
tatle. 


1 

1 066B 

1 1 


1 X'08', Pointer to ♦-B, CC 
and SLI, 5 




lie to *-8. 


1 37C8 

1 


X'lD', l^ddress of ICAREAL, 
1 CC and DC, Key Length + 
Block Size + 8 




Write count, key and data of new record 
to te added, located at ICAREAL. 


I 8caB i 

1 1 

1 1 


X»31', 2gFiienaire.S+3, CC, 


5| 


Search identifier equal for present EOF 
record address minus 1 using pointer, 
CCHHR, in coiriron seek/search area in DTFIS 
tatle. 


1 066B 
1 


1 X'08', Pointer to ♦-S, CC 
and SLI, 5 




lie to ♦-8. 


1 C738 1 
1 


X'lE', Address of ICAREAL, 
i SLI and SKIP, Key Length + 
Block Size + 8 




Read count, key and data to verify 
record just written. Infcriraticn is 
not transferred to main storage. 



L J- ^ .^ , X .^^ ^«-. ^„ , ^J 



^"^ See notes 1 and 2 in Figure 54. 

Figure 44. channel program builder for ADD — 
(unblocked records) . 



CCW chain built to write over ECF record 



J. . ^- 

CCW Builder | 
Control Code^l 



h 



CCW Built 



Function 



H 



8C4B I X*31», 2gfiienaire.S+3, CC, 5 



I 
I 
066B I X«08*, Pointer to *-8, CC 
t and SLI, 5 

I 
37AC I X'1D% Address cf lOAREAL, 
I DC and SLI, 10 



Search identifier equal fcr present EOF 
record address minus one using pointer, 
CCHHR, in common seek/search area in DTFIS 
table. 

TIC to *-8. 



Write count, key and data of ECF record 
located at lOAREAL. 



^"*^ See notes 1 and 2 in Figure 54, 

Figure 45. channel program builder for ADD 
independent overflew area. 



CCW chain built to write ECF in 
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I._ ^ 

1 CCW Builder 
1 Control Code^ 


J. 

CCW Built 


1 

_j 


Function 


1 8C4B i 
1 1 


X • 31 • , ^SFilenanie . S+3 , 


CC, 5| 


Search identifier equal the track index 
using the pointer (CCHHR) in the ccirncn 
seek/search area. 


1 066B 

1 1 


X'08', Pointer to *-8, 
and SLI, 5 


CC 1 

1 


TIC to *-8. 


1 1 
1 106C 

1 1 


1 
X'06\ 2gjFiienaire.D, CC and | 
SLI, 10 


Read data (COCR record) into the 
cylinder overflow control record CCOCR) 








area. 


1 1 

1 E14B 

1 1 

1 

1 

1 


1 X'Bl', 2gFilenaire.B+8, 


CC, 5| 


Search identifier equal (irultiple track) 
the track index for the last normal entry 
using information in the vcrk area for the 
current track index normal entry count 
field. 


1 

1 066B 

1 1 


1 X'08' , Pointer to ♦-8, 
and SLI, 5 


CC 1 


lie to *-8. 


1 154C 1 
1 


C'06% 2gpiienaiiie.D+40 
1 10 


, CC, i 


Read data (last track index normal 
entry) into work area for track index 
normal entry data field. 


1 526C 1 

1 1 
1 


X'92\ 2gpiienanie.D+16 
1 and SLI, 10 


, CC 


Read ccunt (multiple track) of last 
track index overfloi% entr^ intc %crk area 
for the current track index overflow entry 
count field. 


1 

1 IDOC 

1 


1 X«06' , Filename. W, 00, 


10 1 


Read data (last track index cverflcw 
entry) intc random/sequential retrieval 
work area. 



U Jl 

^""■2 See notes 1 and 2 in Figure 54. 



-J.- 



J 



Figure 46. channel program tuilder for ADD — CCW chain built to read last track index 
entry. 



CCW Builder 
Control Code^ 


1 1 
- 1 CCW Built 1 
. 1 _4.. 


Function 


8C4B 


T — — — T 

1 X'31', ^&Filename.S+3, CC, 5| 
1 1 

1 1 
1 1 


Search identifier equal the overflow chain 
using the pointer (CCHHR) in the ccmmcn 
seek/search area. 


066B 


1 1 
1 X'08', Pointer to *-8, CC | 

1 and SLI, 5 | 
1 1 


TIC to *-8. 


AA07 


1 1 
1 X'OE', Address cf I0AREAL+8,| 
1 00, Key Length + Record | 
1 Length + 10 | 


Read key and data of overflow reccrd 
into ICAREAL+8. 



L X J. 



J 



^"^ See notes 1 and 2 in Figure 54. 
Figure 47, Channel prcgram builder for ADD — CCW chain built to read overflew reccrd. 
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|CCW Builder 


1 




— T- 




1 Control Code^ | 


CCW Built 




Function 


1 


1 




. X- 




1 8caB 


1 


X'31', 2gpiienaiiie.£+3, CC, 


1 

5| 


Search identifier equal for last prime 
data record address using pointer, CCHriR , 
in cciriron seek/search area in DTFIS table. 


1 066B 




X'08\ Pointer to *-8, CC 
and SLl, 5 




TIC to *-8. 


1 1B02 




X'06\ Address cf IOAREAL+ 
8+KEYLEN, 00, Block Size 




Read block into ICAREAL + 8 + KEYLEN. 



L ^ „. L ^ ^ , ^— . 

^-2 See nctes 1 and 2 in Figure 54. 



_„x ^ , . ^^ , ^ ^ 



Figure 48. channel program builder for ADD — CCW chain built tc read last prime data 
record. 



r T 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



8C4B 



Q66B 



2AC6 



8C4B 



066B 



AA36 



X'31', 2gpiiename.S+3, CC, 3 



X'08', Pointer to *-8, CC 
and SLI, 5 

X'OD', Address cf IOAREAL+8, 
CC and DC, Key length + 
Block Size 

X'31*, 2gjFiienaire.S+3, CC, 5 



X'08', Pointer tc ♦-8, CC 
and SLI, 5 

X'OE', Address of ICAREAL+8, 
SLI and SKIP, Key Length + 
Block Size 



Search identifier equal for last prime 
data record address using pointer, CCHHR , 
in ccirircn seek/search area in DTFIS table. 

TIC tc *-8. 



Write key and data of priire data block 
located at IOAREAL+8. 



search identifier equal fcr last priire 
data reccrd address using pointer, CCHHR, 
in common seek/search area in DTFIS table. 

TIC to *-8. 



Read key and data to verify record just 
written. Information is not transferred 
tc main storage. 



^-2 See nctes 1 and 2 in Figure 54. 

Figure 49. channel program builder for ADD — CCW chain built to write block of priire 
data records and verify. 
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J, ,, ^ 

1 CCW Builder 
1 Control Code^l 


^.^-, ^ . ^ ^ ^«, ^ ,^ . _ 

I I 

CCW Built 1 Function 

.—^^^^ ^ ^ ^ ^ ^^— —• . »«.—^ 


1 8C4B 


X'31«^ 2gfiienaire.S+3, CC, 5 


r ^ __ ____ — 

Search identifier eqi;al for last track 
index address using pointer, CCHHB, in 
ccinir.on seek/search area in DIFIS table. 


I 0663 


1 X'08% Pointer to —8, CC 
and SLIf 5 


lie to *-8. 


1 2A45 1 


X'OD', Address of ICAREAL+8, 
CC^ Key Length +10 


Write key and data of track index 
normal entry located at ICABEAL+8. 


1 E24B 


X'B1% ^&Filenaire,D+16, CC, 5 


Search identifier equal (irultiple track) 
the track index for the last over flow 
entry using the count for the current 
[track index overflow entry. 


1 066B 1 


C'08\ Painter to *-8, CC 
and SLI, 5 


TIC to *~8. 


i 28^15 


X'OD*, Address cf 1.40RKL, CC, 
Key Length +10 


Krite key and data of track index 
cverflcw entry located at WoRKI. 


1 824B 1 


X'31', ^gFilename.D+16, CC, 5 


Search identifier equal the track index 
for the last overflow* entry using the 
count for the current track index overflow 
entry. 


1 066B 


X*08', Pointer to +-8, CC 
and SLI, 5 


lie to *-8. 


1 ?^835 1 


X'OE', Address of WCRKL, 

SLI and SKIP, Key Length | 

+ 10 


Bead key and data to verify record 
just written. Infornaticn is net 
transferred to main storage. 



^-^ See notes 1 and 2 in Figure 54. 

Figure 50. channel program builder for ADD — CCW chain built to ^rite track index 
entry. 



J, ,,. ^ 

|CCW Build 
[Control c 

L, ^^^ ,^ 


er 
ode^ 


,^ . 

I 

1 CCW Built 

.L^^ ^^ . . . , , 


— f- 

1 


Function 


\ 8C4B 




t X'31', 2^Fiienaife.S+3, CC, 
I 

1 

1 
1 


1:- 

c; i 


Search identifier equal the 
Kaster/cylinder index using the pointer, 
CCHHR, in the comicon seek/search area in 
the ETFIS table. 


I 066B 




1 

1 X'08', Pointer to *-8, CC 

1 and SLI, S 
1 




TIC to *-8. 


I 150C 




1 

1 X'06*, 2§Filenaire.D+40, 

I 00, 10 




Read data (index entry) into work area 
fcr track index normal entry data field. 



^^2 See notes 1 and 2 in Figure 54. 
Fiqure 51. channel program builder for ADD — CCW chain built tc read index entry. 
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p 

1 CCW Builder 
1 Control Code^ 


"T- 
1 


CCW Built 1 

^ ^__ ^^ _i. 


Function 


1 8C4B 


1 


xm\ 2gFiienaiiie.S+3, CC, 5| 


Search identifier equal the 
roaster/cylinder index using pointer, 
CCHHR, in coromon seek/search area in DTFIS 
tatle. 


1 066B 




X«08', Pointer to ♦-8, CC | 
and SLI, 5 | 


lie to *-8. 


1 2A45 




X'OD\ Address of ICAREAL+8,| 
CC, Key Length + 10 | 


Write key and data of roaster/ cylinder 
index entry located at ICAREAL+8. 


1 8C4B 




X'31', 2gFiienaire.£+3, CC, 5| 


Search identifier equal the 
iraster/cylinder index using pointer, 
CCHHR, in common seek/search area in DTFIS 
table. 


1 AA35 




X«OE\ Mdress of ICAREAL+8,| 
SLI and SKIP, Key Length | 
+ 10 1 


Read key and data to verify record 
just written. No inforiration is 
transferred to main storage. 



L . L ,^ , . ^ -^ . -^ X . . , i 



^"^ See nctes 1 and 2 in Figure 54. 
Figure 52. channel program builder for ADD -- 



CCW chain built to write index entry. 



p- ^ ^ , ^ 

|CCW Builder | 

icontrol Code^l CCW Built 


1 


Function 


r- 

1 8C4B 




1 X'31% 2gfiienaire.S+3, CC, 
1 


— J.. 


search identifier equal the track index 
using the pointer, CCHHR, in the common 
seek/search area in the DTFIS table. 


1 066B 




1 X«08', Pointer to *-8, CC 
1 and SLI, 5 




TIC to *-8. 


1 B06C 




1 X'05', 2gFiienaroe.D, CC 
1 and SLI, 10 




Write data CCOCR) from the cylinder 
overflow control record work area in DTFIS 
table. 


1 E24B 




j X'Bl', 2gFilename.D+16, 
1 CC, 5 




search identifier equal (multiple 
track) the track index using the pcinter, 
CCHHR, in the work area for current track 
index overflow entry count field. 


1 066B 




1 X'08', Pointer to *-8, 
[ CC and SLI, 5 




TIC to *-8. 


1 AA35 




1 X'OE', Address of ICAREAL+8 
1 SLI and SKIP, Key Length 
1 + 10 


* 1 


Read key and data to verify record 
just written. Inforiraticn is net 
transferred to main storage. 



L ^ J X 



. ^ - . ^-i 



^-2 See nctes 1 and 2 in Figure 54. 

Figure 53. channel program builder for ADD — 
overflow entry. 



CCW chain built to write track index 
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Note 1; 

The first character of the control code references an operation code at IJHCSTRI. 
The second character of the control code references a data area at IJHJ^HEAA. 
The third character of the control code references the following inforrnation: 



£22t£2i_£M£§S£§]^ CCW flag Field 




2 
3 

6 
7 

h 

C 



X'OO' 
X«20' 
X'30' 
X'40' 
X'60' 
X'70' 
X'AO' 
X'CO' 



Meaning 

End of CCW Chain 

SLI (Suppress Length Indicator) 

SLI and SKIP (Suppress Eata Transfer) 

CC (Comniand Chaining) 

CC and SLI 

CC, SLI, and SKIP 

SLI and DC (Data Chaining) 

CC and DC 



The fourth character cf the ccntrci cede references a L^^te cuunl (leuylh) field al 
IJHCRESZ. 

Note 2: 



^Filename = DTF name supplied by user. 

&Filenarae.X = X is suffix supplied by DTFIS for unique DTF labels. 



Figure 54, Channel prcgrair builder for ADD — notes. 



$$BINDEX Read Cylinder Index Intc Storage 
Charts FA-FE "" 



Objective ; To read all or part of the 
cylinder index into irain storage. 

Entry: Froir the indexed-sequential logic 
module (ISMOD) . 

Exit: To the probleir program. 

Method: This phase determines the number 
of cylinder index entries that can be read 
into main storage at one tiire. Each 
cylinder index entry consists of a key area 
and a data area. The key area contains the 
highest key associated with the cylinder, 
and its length is the same as that 
specified for logical data records in the 
DTFIS entry KEYLEN. The data area is ten 
bytes long and contains the pointer to the 
track index for that cylinder. See Figure 
17 for the fcrirat of this ten- byte pointer. 
When this phase reads the cylinder index 
entry into irain storage, only six bytes of 
the 10- byte pointer are retained. The last 
four bytes of the pointer tc the track 
index are the same for all entries in the 
cylinder index. Therefore, only the first 



six bytes cf the pointer are required for 
processing. 

If it is the first tine through this 
E-transient phase, the key of the first 
core index entry is set to 0. If it is not 
the first time through this phase, the key 
cf highest entry minus 1 that was 
previously read into main storage is moved 
to the key area of the first cere index 
entry. A test is made to determine if the 
index skip option was specified in the DTF 
entry. If the index skip option was 
specified, any cylinder index entries 
preceding the one needed to process a given 
key are not read intc main storage. In 
crder to skip the cylinder index entries 
preceding the one needed to process a given 
key, a CCE to read the cylinder index is 
built along with a string of CCWs. Figure 
55 gives a description of the CCW string. 

This transient then executes the channel 
program and determines if the address cf 
the first cylinder index entry read is the 
address of the required entry (SKEH, TIC, 
NO-OP) . If it is, there are no cylinder 
index entries to be skipped and the 
cylinder index is then read into main 
storage from that point. If the addresses 



129 DOS/VS LIOCS volume 3 DAM and ISAM 



are not the same (RDID, SKEH, TIC, RD) , a 
check is nade to determine if this is a 
duroniY chained entry. 

If it is a dum.Tiy chained entry 
(indicating the end of the cylinder), its 
address points to the first track of the 
next cylinder containing the cylinder 
index. This phase subtracts 1 from the 
record number of the dummy chained entry to 
get the preceding cylinder index entry, 
moves the chain address to the next 
cylinder index entry to be read (in the 
DTFIS table) , and reads the cylinder index 
into ffiain storage starting ^ith the entry 
preceding the dum.ray chained entry. 

If it is not a dummy chained entry, a 
test is made to determine if the required 
entry is the first record en the first 
track of the cylinder. If it is, this 
phase sets up to read the cylinder index 
into main storage starting ^ith entry 
preceding the dummy chained entry for the 
previous cylinder. If the required entry 
is not the first record on the first track 
of the cylinder, a test is made to 
determine if the record number of the 
cylinder index entry is 1. 

If it is 1, the track number is 
decreased by 1 and the record number is 
updated to the maximum record number for 
the cylinder index track. The cylinder 
index is read into main storage starting 
with the last record on the preceding 
track. If the required cylinder index 



record number is greater than 1, the record 
number is decreased by 1, and the cylinder 
index is read into main storage starting 
v^ith the preceding entry en the track. 
Each time a cylinder index entry is read, 
the number of available index entries in 
main storage is decreased by 1. 

If the index skip option was not 
specified in the DTF, this phase decreases 
the number available core index entries by 
2. These two core index entries contain 
dummy entries. The first dummy entry at 
the beginning of the cylinder index storage 
area contains either a key of all zeros (if 
this is first time the cylinder index has 
been read into main storage) or it contains 
the key of the last cylinder index entry 
read into main storage. The second dummy 
entry is located at the end cf cylinder 
index storage area and has a key of all 
1-bits. 

Before a part or all cf the cylinder 
index is read into main storage, a test is 
made to determine how man^^ cylinder index 
records can fit in the area available, h 
CCB and a CCW chain are built to perform 
the actual read operation. Figure 55 gives 
a description of the CCW chain. The 
channel program is executed and the number 
of core index entries is decreased by the 
number of records read. The cylinder index 
is read into main storage until either the 
end cf the cylinder index is reached or 
there are no more core index entry 
positions . 
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CCW Built 




1 1 
1 Function | 

_ 1 _ _ J 


X'07*, Address of cylinder index entry, 
Coirmand Chaining, 6 


T ~ f 

iLong seek. | 

1 1 

1 1 


X'31', Address of cylinder index enti 
Command Chaining, 6 


cy. 


i 1 
[Search identifier equal (SIDE) the | 

jcylinder index. j 
1 1 


X'08', Pointer to *-8, - , -. 




1 1 
ITIC to *-8. 1 
1 i 


X'69*, SKEYARG, Command Chaining and 
Suppress Length Indicator, KEYLEN 
(Key Length), 




1 1 

ISearch key equal or high (SKEH) the | 

jcylinder index. Key supplied by user in | 

|the DIE table. | 
1 1 


X'08', Pointer to *+16, -, ~. 




|TIC to *+16. 1 
1 i 


X'03', -, Suppress Length Indicator, 


1. 


1 1 

1 NO-OP. 1 
i 1 


X'92' IDOFHIT CoiP.mand Chaining 9* 




1 1 

ijD^a,^ count (irulti'^lc^t rsck) (RJD'^'') into * 

1 IDOFHIT, 8-tyte area for record fcund en | 

jSIEE. 1 
1 1 


X'69', SKEYARG, Command Chaining and 
Suppress Length Indicator, KEYLEN 
(Key Length) . 




1 1 

jSearch key equal or high (SKEH) the | 
1 cylinder index. | 

1 1 
1 1 


X*08', Pointer to *~16, - , -. 




1 t 

jTIC to *-16. 1 
1 i 


X'Oe', POINTER, End of Chain, 10. 




1 1 
|Eead data portion of cylinder index entry \ 
1 (RD) into POINTER, 10-byte area fcr | 
Ipointer to track index. | 



Figure 55. CCW chain built by $$BINDEX to 
to process a given key. 



skip cylinder index entries preceding the one 



I 



CCW Built 



Function 



|X'07', Address of cylinder index entry, 
iCoirmand Chaining, 6. 

I 

|X'31', Address of cylinder index entry, 

I Command Chaining, 6. 

I 

|X'08', Pointer to *-8, -, -. 

I 

jX'OE', Address of cylinder index entry in 
I main storage (multiple of key length + 6), 
I Command Chaining, Key Length + 10 

L 



I Long Seek. 



ISearch identifier equal (SIDE) the 
[cylinder index. 

ITIC to *-8. 

Read key and data (RKD) of cylinder index 
entry into storage. 



Figure 56. CCW chain built by $$BINDEX to read the cylinder index intc storage. 
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ISAM RETRVg^ RANDOM : 
Chart FC 



READ Macrc^ KE^ 



ISAM RETRVE, RANDOM: 



WAITF Macrc 



Charts FD-FG 



Objective: To perform the random retrieval 
function for an indexed sequential file by 
searching the indexes to determine the 
track on which the desired reccrd is 
stored. 



Entry; Froir the READ, KEY iracrc expansion, 



Exit; To the problem program via linkage 
register 14. 



Method; This routine first initializes 
pointers and status bits in the DTFIS 
table. It then constructs the CCW chain to 
search the Easter or cylinder index (Figure 
57) • It determines the highest le^el index 
(master or cylinder) being used, and tests 
for ERREXr=YES. If ERREXT is specified, 
additional error conditions can be returned 
to the problem prograir, thus giving the 
user greater flexibility in attempting to 
continue processing. This rcutine then 
searches the highest level index to get the 
address of the ne^t index tc be searched. 



A test of the F code from the index 
level pointer is then irade tc determine if 
the next search is of the track index 
(Figure 17) . The F code refers to the 
index level just searched. If the master 
index was just searched, the next search is 
on the cylinder index. If the next search 
is not on the track index, the rcutine gets 
the index entry type and determines the 
routine to process that type. 

If the entry type is a normal entry, the 
routine returns to search the next index. 
If the entry type is a dummy end entry or 
an inactive entry, the routine tranches to 
an error routine to set a no-record-found 
flag in the DTF table and tc return to the 
problem program. If the entry is a dummy 
chained entry, the routine returns to 
search the index using the address supplied 
by the 10-byte index level pointer. 

When the next search is fcund tc be on 
the track index, a test is made to 
determine if the track index takes up one 
track or more. If the track index does not 
require a full track, the rcutine builds a 
new CCW chain to search the track index 
(Figure 58) . This routine then issues the 
EXCP and SVC7 (WAIT) to search the track 
index. If the over/under seek rcutine is 
not needed, it returns to the problem 
program. 



Cbjectiv e; To ensure that the last EXCP 
issued has been completed and that the 
ccnditicn is normal. If the cperaticn is a 
read, to Iccate the specified reccrd and 
complete the transfer of data to the I/O 
area specified by the DTFIS entry lOAREAR, 
and to the specified work area if the DTFIS 
entry WORKR is included in the file 
definition. If the operation is a write, 
the objective is to return ccntrcl tc the 
prcbleir program. 

Entry ; From the WAITF macro expansion. 

Exi t: To the problem program via linkage 
register 14. 

Method; This routine first tests for 
ERREXT=YES. If ERREXT is specified, 
additional error conditicns can be returned 
to the problem program, thus giving the 
user greater flexibility in attempting to 
continue processing. After initializing 
pointers tc the DTFIS table, this routine 
tests the status byte in the DTF table, tc 
determine if the condition so far is 
normal. If an abnormal ccnditicn exists, 
control returns to the problem program. 

If the condition is normal, the routine 
issues a WAIT to determine if the EXCP 
issued by the READ or WRITE routines has 
teen completed, and also tests for errcrs. 
Then, if the cperaticn is a WRITE, this 
routine returns control tc the prcblem 
program. 

If the cperaticn is a READ, this routine 
m.ust complete the read operation by moving 
the data to the I/C area. If first mcves 
the address of the track in which the 
desired record is stored tc the seek/search 
area, and initializes pointers to KEYAKG 
and the I/C area. It alsc gets the 
relative key location and key length. 

The rcutine then gets the index entry 
type (F code) from the search address and 
determines the routine tc process that 
type. If the entry is a normal entry en an 
unshared track, a new CCW chain is built to 
find the record in the prime data area. 
(Figure 59). If blocked records are 
specified, the CCW command cede is modified 
tc search high or equal. An EXCP and WAIT 
are issued to find the record and read the 
blcck intc the I/C area. If records are 
unblocked, the record is moved irtc WOKKR, 
if specified, and control returns to the 
problem program. If records are blocked, 
this rcutine tests to determine if KEYARG 
is less than the key in the first logical 
record. If it is, the record has not been 
found, and the corresponding bit is set en 
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in the DTF table. Otherwise, the 
corresponding key is found within the block 
and the routine moves the block to WORKR, 
if specified. Control then returns to the 
problem program. 

For a normal entry en a shared track, 
the routine decreases the record number in 
the search address by 1, and builds a new 
CCW chain to find records on a shared track 
(Figure 60) . Processing continues as in 
the routine to process a normal entry on an 
unshared track. 

If the entry is an overflew end entry or 
an overflow chained entry, this routine 
first constructs a CCW chain tc search the 
overflow chain (Figure 61). An EXCP and 
WAIT are issued to locate the record in the 
overflow chain. A test is made to 
determine if the desired record has been 
found. If it has not been found, the 
routine tests for an overflew end entry. 
If it is an overflow end entry, the 
no-record-found bit is set en in the DTF 
table. If it is not an overflow end entry, 
the sequence link field is inserted in the 
seek/search address, and the overflow chain 
is searched again. 

If the record has been found, overflow 
bits are set on in the DTF table, and the 
first nonoverflcw record count is increased 
by 1. The logical record is moved to 
WORKR, if specified. Control returns to 
the problem program via register 14. 

If the entry is a dummy end entry or an 
inactive entry, the routine sets a 
no-reccrd-fcund bit on in the DTF table, 
and returns control to the problem program. 



Method; This routine first sets the write 
tit on in the DTFIS table. It then tests 
for an uncorrectable DASD error, wrong 
length record error, or nc record found 
error. If any of these errors exist, the 
no-record- found bit is set on in the DTF 
table, and control returns to the probleir 
prcgrair. 

If there are nc errors, the status byte 
in the DTF table is reset, and pointers to 
the ETF table are initialized. This 
routine then gets the count field ef the 
record as saved by the READ routine, the 
address of WORKR, and the address ef the 
logical record within the I/C area. The 
record, or block of records, is ireved to 
the I/O area from WORKR, if specified. The 
CCW chain to write records is then built 
(Figure 62). 

If the entry to be written is not an 
overflow entry, the byte count field in the 
write and verify CCW's is modified to the 
block length from the DTF table. This 
routine then issues the EXCP to write the 
record, and returns control tc the prcblen 
program without issuing a WAIT. The WAIT 
function is left to the WAITF iracre, which 
must be issued before the user can continue 
processing. 



ISAM RETRVE, RANDOM; 



FREE Macro Chart FK 



Objective; To free a held track if the 
track hold option has been specified. 



ISAM RETRVE, RANDOM; 
Chart FH 



WRITE Maere, KEY 



Objective; To perform the random retrieval 
output function for an indexed sequential 
file. 

Entry; From WRITE, KEY macro expansion. 

Exit; To the problem program via register 
14. 



Entry; Frcm the FREE macro expansion. 



Exit; To the problem program via linkage 
register 14. 

Method; This routine determines whether 
the track hold option has been specified in 
the ETF. If so, both the held data track 
and the applicable held index track are 
released. All tracks are released by SVC 
36. Control then returns to the problem 
program. 
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p ^ 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



7461 



X'69'^ gKEYARG, CC and 
SLI, Key Length 



Search key equal or high the 
master/cylinder index. Key supplied by 
user in the DTFIS tafcle. 



0C6B 



X'08', Pointer tc ♦+16, CC 
and SLI, 5 



TIC to *+16. 



D17B 



X'lA', 2gFilenaire.v^, CC, 
SLI, and SKIP, 5 



Read home address into randcir/sequential 
retrieval work area in ETFIS table. 



536C 



X'92', glOAREAR, CC and 
SLI, 10 



Read count (multiple track) into lOAREAR. 



7461 



X«69', KEY^RC, CC and SLI, 
Key Length 



Search ke^ equal or high the 

iraster/ cylinder index. Key supplied by 

user in DTFIS table. 



0a6B 



X'08', Pointer to *-16 , CC 
and SLI, 5 



TIC tc *-16, 



HOC 



X'06', 2gFiiename.w, 00, 10 



Read data (10-byte index level pointer) 
into random/sequential retrieval area in 
DTFIS table. 



^"^ See nctes 1 and 2 in Figure 63. 

Figure 57. channel program builder for randoir retrieval — CCW chain built to search 
iraster cylinder index. 





-T- 


■.._.~.«»..».. — —._...-._«»__.^ — ______ .^..»>. — «._- . 


— ^ , . 


CCW Builder 






1 


Control Code 


± j 
1 


CCW Built 


1 Function 

±^ « _ « 




1 




— ^^ _ — _— . — « _ « 


D36B 


1 


X'lA', glOARlAR, CC and SLI, 


5|R€ad home address into IOaREAR. 

. J. _ «... « — 




1 


■"* 


-j. — - - — — -. -. « - « 


9461 




X'E9', gKEYARS, CC and SLI, 


[Search key equal or high (multiple 




1 


Key Length 


1 track) track index. Key supplied by user 
|in ETFIS table. 

. ± ., ^ -. — 




1 




^ — — — « -. -. 


066B 


1 


X'08', Pointer tc +-8, CC 
and SLI, 5 


|TIC to *-8. 

1 

_ 1 _ . _ -. « 




1 




_ -J. « « — — - — — -. 


HOC 




X'06', 2gFilenaire.w, 00, 10 


|Read data (10-byte index le^;el pointer) 
|intc randcit/sequential retrieval area in 
1 DTFIS table. 




-.-L- 




J. ^ 



^-2 See notes 1 and 2 in Figure 63. 

Figure 58. channel prcgran builder for random retrieval — CCW chain built tc search 
track index. 
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J. . -p 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



7461 



X'69', gKEYhRG, CC and 
SLI, Key Length 



Search key equal or high in priire data 
area. Key supplied by user in DTFIS 
tatle. 



OC^B 



X'QS\ Pointer to *+16 , 
CC, 5 



lie tc *+16. 



D17B 



X'lll', ^gFilenaroe. Wf CC, 
SLI, and SKIP, 5 



Read hcrre address into random/sequential 
retrieval work area in DTFIS table. 



406C 



X'12*, 2gpiienarre.S+3, CC 
and SLI, 10 



Read count into comiron seek/search 
area in DTFIS table. 



X'29' or X'69', SKEYARG, 
CC and SLI, Key Length 



6461 
or 7461 



If records are unblocked, search key 
equal the priire data area. If records 
are blocked, search key equal or high in 
prime data area. Key supplied by user in 
DTFIS table. 



H 



044B 



X'OS', Pointer tc +-16, 
CC, 5 



TIC to *-16. 



1302 



X'06*, glOZ^RIAR, 00, Block 
Length 



Read data (block) containing starting 
reccrd into lOAREAR. 



^"^ See nctes 1 and 2 in Figure 63. 

Figure 59. channel program builder for randorr; retrieval — CCW chain built to find 
reccrd in priire data area (unshared track) . 



J. , ^ 

CCW Builder 
Control Code^ 



CCW Built 



Function 



804B 



X'31*, 2gpiienaiine.S+3, CC, 5 



Search identifier equal the prime data 
area using the pointer (CCHriR) in the 
cciriron seek/search area in the DTFIS 
table. 



064B 



X'08', Pointer to *-8, CC, 



TIC to *~8. 



406C 



X'12*, 2gpiienanie.S+3, CC 
and SLI, 10 



Read count into comrron seek/search 
area in DTFIS table. 



6461 

or 
7461 



X'29' or X'69', SKEYARG, 
CC and SLI, Key Length 



If records are unblocked, search key 
equal the prime data area. If records 
are blocked, search key high or equal the 
prime data area. Key supplied by user ir 
DTFIS table. 



H 



044B 



X*08', Pointer tc ♦-16, CC, 5 



TIC to *-16, 



1302 



X'06', glOAREAR, 00, 
Block Length 



Read data (block) containing record 
into ICAREAR. 



^-2 See notes 1 and 2 in Figure 63. 

Figure 60. Channel prcgrair builder for random retrieval — 
record in prime data area (shared track) . 



CCW chain built tc find 
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J. ^ — . ^ 

CCW Builder 
Control Code^ 

h 



CCW Built 



Function 



804B 



X'31', 2gFilenaire.S+3^ CC, 5 



Search identifier equal the overflow 
chain using the pointer (CCHHF) in the 
common seek/search area in the DTFIS 
table. 



064B 



X'08', Pointer tc *-8, CC, 5 



TIC to *-8- 



6461 



X'29\ SKEYARG, CC and 
SLIt Key Length 



Search key equal the overflow chain, 
Key supplied by user in DTFIS table. 



116C 



X'06\ 2gpiiename.W, SLI, 10 



Read data (10-byte sequence link field) 
into random/sequential retrieval area in 
DTFIS table. This CCW is executed when 
the required overflow record is net fcund 
in the cverflo;^ chain. 



H 



1303 



X'06\ glOJ^REAR, 00, 
Record Length + 10 



Read data (sequence link field plus 
logical record) into lOAREAR. This CCW 
is executed when the iratching key is 
fcund in the overflow chain. 



L ^-j , . JL , . 

^"^ See nctes 1 and 2 in Figure 63. 

Figure 61. channel program builder for random retrieval -- CCW chain built to find 
record in cverflcw chain. 



J. ^ ^ 

CCW Builder 
Control Code^ 



h 



-+- 



CCW Built 



I 



Function 



804B 



X'31', 2gFilename.S+3, CC, 5 |Search identifier equal prine data area 

I using pointer (CCHHR) in common 
I seek/search area in DTFIS table. 



064B 



X»08*, Pointer to *-8, CC, 5 (TIC tc *-8. 



B3C3 



X'05', SIOAREAR, CC, Record 
Length +10 



I Write data from lOAREAR, 



804B 



X'31', 2g£iiename.S+3, CC, 5 (search identifier equal the priire data 

I area, using pointer (CCHHR) in common 
I seek/search area in DTFIS table. 



06aB 



X«08', Pointer to *-8, CC, 5 |TIC tc *-8. 



1333 



X'06*, glOARFAR, SLI and 
SKIP, Record Length + 10 



|Read data to verify reccrd just 

I written. Information is not transferred 

I to miain storage. 

_JL . . 



^~^ See notes 1 and 2 in Figure 63. 

Figure 62. Channel program builder for random retrieval — CCW chain built to write 
reccrd. 
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Note 1; 

The first character of the control code references an operation cede at IJHCSTEI. 
The secoad character of the control code references a data area at IJHCASAD. 
The third character of the control code references the follov^ing inforiration: 



Control Character 



CCW Flag Field 



Meaning 

End of CCW chain 

SLI (Suppress Length Indicator) 

SLI and SKIP (Suppress Data Transfer) 

CC (Coininand Chaining) 

CC and SIX 

CC and SLI and SKIE 

CC and EC (Data Chaining) 



The fourth character of the control code references a byte count (length) 
field at IJHCRESZ. 

Note 2: 






X'OO' 


2 


X'20' 


3 


X'30' 


4 


x'ao' 


6 


X'60* 


7 


X'70' 


C 


X'CO' 



SFilenaroe = DTF naire supplied fcy user. 

SFilename.X = X is suffix supplied by DTFIS fcr unique DTF labels. 



Figure 63. Channel prcgrair buildei for random retrieval — notes. 

ISAM RETRVE, SEQNTL; ESETL Macrc Chart GA ISAM RETRVE, SEQNTL; GET_Macrc 

Charts GE-GE 



iiZ^' "^^ write the last record if 
necessary^ and reset the status byte in the 
DTFIS table. 



From the ESETL macro expansion. 



Exit; To the problem program via linkage 



register 14. 



Method; After initializing pointers to the 
DTFIS table, this routine sets the status 
byte in tbe DTFIS table to 0. A test is 
then made to determine if the PUT issued 
bit is on in the retrieval byte of the DTF 
table. If it is on, the last block of 
records is written. A test for ICAREA2=YES 
is then made. If I0AREA2 is specified as 
an ISMOD macro parameter option to allow 
overlapping cf I/O with processing, a bit 
is set in the DTF table to indicate the 
first record is being processed and a wait 
for I/O completion is made. If HCLD=YES is 
specified, an SVC 36 releases any held 
tracks. Control then returns to the 
problem program. 



o b jective; To perform the sequential 
retrieval input function for an 
indexed-sequential file. 

Entry; From the GET macrc expansion. 

Exit; To the problem program via linkage 
register 14. 



Method; This routine initializes pointers 
to the DTFIS table, and then tests for 
I0AREA2=YES. If ICAREA2 is not specified 
as an ISMCD m.acro parameter option, a test 
is made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflow area, the 
contents of the sequence-link field is 
mcved to the seek/search area and a test is 
made to determine if the end of the 
overflow chain has been reached. If the 
last record read was in the cverflcw area 
and HOLD=YES has been specified, the track 
is released, then the overflew record is 
read and addresses are saved. If H0LD=YES 
is specified, the index track and data 
track are held during update procedure. 
The index track is then released. The 
record is then moved to WCRKS, if 
specified, and control returns to the 
problem program. 
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If the end of the chain has been 
reached, the current BASD address is 
updated to the next track and the next 
record is read. The record is ircved to the 
w^ork area if specified, addresses are 
saved, and control returns tc the probleiti 
program. 



If the last record read was net in the 
overflov^r area, the routine determines if 
all records in the block have teen 
processed. If all the records in the block 
have not been processed, the I/O area 
pointer is updated to the next logical 
record. If that record is net a padding 
record, it is moved to the yiork area , if 
specified, addresses are saved, and control 
returns to the problem program. If it is a 
padding record, the EOf indicator is set in 
the DTFIS table, and control returns to the 
problem prograir. 



If all records in the block have been 
processed, a check is irade tc determine if 
the PUT macro has been issued. If it has, 
the record is written. A test is rrade to 
determine if the prime data device type is 
a 2321. If it is a 2321 data cell, the 
upper limit for the strip is initialized, 
and then modified if the last record was on 
the next~to~last subcell. 

A test is made to determine if the end 
of the track has been reached. If it has 
been reached, the track index is searched 
to find the next track index entr;y . The 
current track index record number in the 
DTF table is then updated, and a test is 
made to determine if there is any overflow 
record indicated in the track index entry 
just read. If the track index entry 
indicates an overflow record is present, 
that overflow record is read, and moved to 
the work area if specified. Ccntrcl 
returns to the problem program. 

If there is no overflow record indicated 
in the track index entry, the current 
address is updated by 1, and the record is 
read and moved into the work area, if 
specified. Control returns to the problem 
program. 

If I0AREA2 has been specified tc allow 
overlapping of I/O with processing, a test 
is made to determine if the last record 
read was in the overflew area. If the last 
record read was in the overflow area, a 
test is made to determine if the record 
being processed by the user is an overflow 
record. If it is an overflew record, a 
wait for I/O completion is made, the next 
available I/O area address is obtained, the 
current record address is saved, and a test 
is made to determine if the first record is 
being processed. 



If the first record is being processed, 
the overflow record is read, its address is 
saved in the DTF table and the record is 
moved to the work area, if specified. 
Ccntrol then returns to the problem 
program. 

If the first record is not being 
processed, the address of the next overflow 
record is moved to the seek/search address 
and a test is m.ade tc determine if the end 
cf the overflow chain has been reached. if 
the end has net been reached, the overflow 
record is read, and addresses are saved. 
If HOLE=YES is specified, an SVC 36 
releases any held tracks. Ccntrcl then 
returns tc the problem program. 

If the end of the overflow chain has 
been reached, the current disk address is 
updated tc the next track and the next 
record is read. The recerd is moved te the 
work area if specified, addresses are 
saved, and control returns tc the problem 
program. 

If the last record was not an overflow 
record and the current recerd is net an 
everflcw record, this routine determines if 
all the records in the block have been 
prccessed. If all records in the block 
have not been processed, the I/O area 
pointer is updated to the next logical 
record and the record number is updated by 
1. If the next logical record is not a 
padding record, it is moved te the work 
area, if specified, addresses are saved and 
control returns to the problem pregram. If 
it is a padding record, the EOF indicator 
is set in the DTF table and ccntrcl returns 
to the problem program. 

When all the records in the block have 
teen processed, a check is made tc 
determine if the PUT macro has been issued. 
If the PUT macro has been issued, the 
record is written. A test is made to 
determine if the prime data device type is 
a 2321. If it is a 2321, the upper limit 
for the strip is initialized te 9 and then 
medified te 5 if the last record was on the 
next-to-last subcell. A test for the 
presence ef two I/O areas is then made. If 
the presence of two I/O areas is indicated 
in the DTF table, a test is made to 
determine if the first record is being 
prccessed. If the first recerd is net 
being processed, a wait for I/O completion 
is made and the record address is saved in 
the ETF table. 

A test is made to determine if the end 
of the track has been reached. If the end 
ef the track has been reached, the track 
index is searched to find the next track 
index entry. The current track index 
record number in the DTF table is then 
updated, and a test is made to determine if 
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there is any overflow record indicated in 
the track index entry just read. If the 
presence of an overflow entry is indicated^ 
and there are two I/O areas present, this 
routine tests to deteririne if this is the 
first record. If it is not the first 
record, the record counter is set to 1. 
The overflow record address is ircved to the 
seek/search address, and the overflow 
record is read and moved to the work area, 
if specified. Control then returns to the 
problem prograrr. 

If there is no overflow record indicated 
in the track index entry, the current 
address is updated by 1, the next record is 
read and moved to the work area, if 
specified, and control returns to the 
problem prograir. 



E ntry : From the SETI macro expansion • 

Exit; To the problem program. 

Method; This logical transient first 
validates the limits of the DTFIS table and 
lOAREAS tc ensure that they lie within the 
partition. If HOLB=YES has been specified 
in the DTF, $$BSETI1 is fetched to perform 
the SETL macro functions. If track hold 
has not been specified, $$BSETI then 
initializes for sequential retrieval based 
on the information supplied by the user in 
the SETL macro. The SETL macro specifies 
the type of reference used tc identify the 
first record to be processed. The types of 
reference are: 

• KEY. Key of starting reccrd in the 
file. 



ISAM RETRVE, SEQNTL: PUT i^^acrc Chart GF 



Objective; To perform the sequential 
retrieval output function fcr an indexed 
sequential file. 

Entry: From the PUT macro expansion. 

Exit; To the problem program via linkage 
register 14. 



Method; After initializing pointers to the 
DTFIS table, this routine tests whether a 
GET has been issued. If a GET has not been 
issued, there is an SVC 50 (error) . 
Otherwise, the GET issued switch is turned 
off and the output bit in the retrieval 
byte in the DTFIS table is turned on. The 
record is moved from the wcrk area to the 
I/O area, and the output bit in the 
retrieval byte is set off. 

If the record is unblocked, or is in the 
overflow area, this routine writes the 
record and returns control to the problem 
program. If the records are blocked, this 
routine sets the bit in the retrieval byte 
to indicate that the PUT macro has been 
issued for this record, and returns control 
to the problem program. The GET macro 
routine causes the block to be written on 
DASD when it determines that all records in 
the block have been processed. 



I§AM_RETR7E_t_SE2WTLl SETL_Macrc^ $$BSETL 

Charts GG-GI 



Cbjectiye; To initialize fcr sequential 
retrieval based on information supplied by 
the user in the SETL macro. 



• GKEY. Location of starting record in 
the file, identified by a record key 
within a desired group. The user 
supplies a key that identifies the high 
Order bytes of the required grcup cf 
keys . For example, a GK£Y 
specification of 06430000 would permit 
file processing to start at the first 
key containing D643XXXX, regardless of 
the characters represented by the Xs. 

• EOF. Beginning of the logical file. 

• ID (MBBCCHHR) . Location of starting 
record in the prime data area. 

If sequential retrieval is tc begin with 
a record associated with a particular key 
(KEY) , the key of the beginning reccrd must 
be placed in the field defined by the DTFIS 
entry KEYARG before issuing the SETL macro. 
This phase searches the master index (if 
present) , cylinder index and track index 
until it finds the track index entry 
associated with the specified key. It 
determines whether the reccrd with the 
desired key is on a shared or unshared 
prime data track or in the overflew area. 

If the record is on a shared track, the 
search is initialized to begin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflow entry address associated 
with the desired reccrd is calculated and 
stcred in the DTFIS table, and the track is 
searched equal for the desired record. If 
the record is not found, a nc~reccrd-f cund 
indicator is set in the DTFIS table 
(Filename. C) . 

If the file contains blocked records, 
the track is searched equal/high for the 
desired block. The user must supply (in 
the DTFIS entry KEYLCC) the position cf the 
key field in the data record. The block is 
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then searched. When the record v<ith the 
matching key is founds its address is saved 
in the DTFIS table and control returns to 
the problem program. If the record is not 
found, the no-record-found indicator is set 
in the DTFIS table (Filename.C) • 



If the record with the desired key is in 
the overflow area, the track index normal 
and overflow entry addresses are stored in 
the DTFIS table, and the overflow chain is 
searched for the desired reccrd. When the 
desired record is found, its address is 
saved in the DTFIS table. If the desired 
record is not found in the overflow chain, 
a no-record-found indicator is set in the 
DTFIS table (Filename.C) and ccntrcl 
returns to the problem program. 



If GKE^ was specified in the SEIL macro, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record then proceeds 
ira the same iranner as if KEY were specified 
in the SETL macro. However, in this case 
(GKEY) , a nc-record-f ound ccndition should 
not occur unless the key specified is 
higher than the existing highest key in the 
file. 



If BOF was specified in the SETL macro, 
the address cf the first priire data record 
in the file is saved in the sequential 
retrieve section of the DTFIS table, and 
the track index overflow entry address 
associated with the desired reccrd is 
calculated and stored in the DTFIS table. 
Control then returns tc the prctlen 
program. 



If the starting record address is 
referenced by a symbolic naire ir the SETL 
macro, this phase analyzes the 8-byte DASD 
address (MBBCCHHR) in the field specified 
by the symbolic name for validity. If the 
address is invalid, an illegal ID indicator 
is set in the DTFIS table (Filename.C) and 
control returns to the problem program. If 
the starting address is valid, this phase 
saves the address in the DTFIS table, 
calculates the track index overflow entry 
address associated with the desired record, 
stores it in the DTFis table and returns 
control to the problem program. 



In Order to perform a search cf the 
master, cylinder or track indexes, prime 
data area and overflow area for the 
starting record, a CCW string is built to 
search the required areas. Figures 64-67 
give a description of the channel program 
built to perform, the necessary search. 



ISAM RETRVE, SEQNTL ; SETI Nacro^ $$BSETLl 

Charts GM-GR 



Object iv e; To initialize for sequential 
retrieval when HOLD=YES, based on 
information supplied b;y the user in the 
SETL macrc. 

Entry; Frcm the SETL macro expansion. 

Exit; To the problem program. 

Methcd; This logical transient first 
validates the limits of the DTFIS table and 
lOAREAS to ensure that they lie within the 
partition. It then initializes for 
sequential retrieval based on the 
informaticn supplied by the user in the 
SETL macro. The SETL macrc specifies the 
type cf reference used tc identify the 
first record to be processed. The types cf 
reference are; 

• KEY. Key cf starting record in the 
file. 

• GKEY. Location cf starting record in 
the file, identified ty a record key 
within a desired group. The user 
supplies a key that identifies the high 
order bytes of the required group of 
keys. For example, a GKEY 
specification of D6430000 would permit 
file processing to start at the first 
key containing D643XXXX, regardless of 
the characters represented by the Xs. 



BOF. 



Beginning of the logical file. 



• ID (MEECCHHR). Location cf starting 
reccrd in the prime data area. 

If sequential retrieval is to begin with 
a record associated with a particular key 
(KEY), the key of the beginning record must 
be placed in the field defined by the DTFIS 
entry KEYARG before the SETL macro is 
issued. This phase searches the master 
index (if present), cylinder index, and 
track index until it finds the track index 
entry associated with the specified key. 
It determines whether the reccrd with the 
desired key is on a shared or unshared 
prime data track or in the overflew area. 

If the record is on a shared track, the 
search is initialized to begin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflow entry address associated 
with the desired reccrd is calculated and 
stcred in the DTFIS table, and the track is 
searched equal for the desired reccrd. If 
the record is not found, a no-record- found 
indicator is set in the DTFIS table 
(Filename.C) • 
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If the file coQtains blocked records, 
the track is searched equal/high for the 
desired block. The user must supply (in 
the DTFIS entry KEYLOC) the position of the 
key field in the data record. The block is 
searched. When the record with the 
matching key is found, its address is saved 
in the DTFIS table, and control returns to 
the problerr, program. If the record is not 
found, the no-record-found indicator is set 
in the DTFIS table (Filenaire.C) . 

If the record with the desired key is in 
the overflow area, the track index normal 
and overflow entry addresses are stored in 
the DTFIS table, the appropriate index and 
data tracks are held, and the overflow 
chain is searched for the desired record. 
When the desired record is found, its 
address is saved in the sequential 
retrieval section of the DTFIS table. If 
the desired record is not fcund in the 
overflow chain, a no-record-found indicator 
is set in the DTFIS table (Filename. C) , the 
held index and data tracks are released, 
and control returns to the problem program. 

If GKEy was specified in the SETL macro, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record proceeds in 
the same manner as if KEY were specified in 
the SETL macro. However, in this case 
(GKEY) , a nc-record-f ound ccnditicn should 
not occur unless the key specified is 
higher than the existing highest key in the 
file. 

If EOF was specified in the SETL macro, 
the address of the first prime data record 
in the file is saved in the sequential 



retrieval section of the DTFIS table, and 
the track index overflow entry address 
associated with the desired reccrd is 
calculated and stored in the DTFIS table. 
Control returns to the prcbleir prcgrair. 



If the starting record address is 
referenced by a sym.bolic name in the SETL 
macrc, this phase checks the validity of 
the 8-tyte DASD address (MBBCCHHR) in the 
field specified by the symbolic name. If 
the address is invalid, an illegal ID 
indicator is set in the DTFIS table 
(Filename. C) , and control returns to the 
prcblem prcgram. If the starting address 
is valid, this phase saves the address in 
the DTFIS table, calculates the track index 
overflow entry address associated with the 
desired record, stores it in the DTFIS 
table, holds the required index and data 
tracks, and returns contrcl tc the prcbleir 
prcgrair. 

Eefcre I/O is performed, a switch is 
tested to see if track held has been 
specified. If it has, the data track(s) 
and the corresponding index track (s) are 
held until I/O is complete. If any error 
conditions occur (for example, nc reccrd 
fcund, wrong length record, or a DASD read 
error) , any held tracks are freed before 
returning to the user. 

In crder tc perform a search of the 
master, cylinder, or trac]< indexes, prime 
data area, and overflow area fcr the 
starting record, a CCW string is built to 
search the required area. Figures 64-67 
give a description of the channel program 
built to perform the necessary search. 
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iLafcel 



h 



CCW Euilder 
Control Code^ 



CCW Built 



Function 



7441 



X«69', SKEYARG, CC, Key 
Length 



Search key eqi^al or high the 
iraster/cylinder index. Key supplied 
ty user in DTFIS table. 



0C40 



X'08', Pointer to *+16, CC, 
Record Length 



TIC tc *+16. 



B04B 



X'lA.', 2&Filenanie.S+3 , CC , 5 



Read hcire address into cominon 
seek/search area in ETFIS table. 



506B 



X'92', 2gFiienanie.S+3, CC 
and SLI, 5 



Read ccunt (multiple track) - 

CCHHR - into coniEcn seek/ search area 

in DTFIS table. 



7441 



X'69', &KEYARG, CC, Key 
Length 



-+ 



Search key equal or high the 
iraster/cylinder index. Key supplied 
by user. 



0440 



X'08*, Pointer to *-16, CC, 
Record Length 



TIC tc *-16. 



HOC 



X'06', ^gFilename.W, 00, 10 



Read data (10-byte index level 
pointer) into randcir/sequential 
retrieval area in DTFIS table. The 
data field is then ircved frcn the 
randcir/sequential retrieval area to 
the coirmon seek/search area for the 
next search. 



1 — ^6 See notes 1 through 6 in Figure 71. 

Figure 64. Channel program builder for sequential retrieval -~ CCVi chain built tc 
search master cylinder index. 
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Label 



CCW Builder 
Control Ccde^ 



CCW Built 



Function 



-f 



8 06C 



X«31', 2gFiiename.S+3 , CC 
and SLI, 10 



Search identifier equal the track 
index using the IQ-byte pointer in the 
coirrron seek/search area. 



+- 



-4 



0640 



X«08', Pointer *-8, CC, 
Record Length 



TIC to *~8, 



H 



126C 



X'06\ ^lOIhREm, CC and 
SLI, 10 



Read data (10-byte track index 
pointer) into ICAFEAS, input/output 
area for sequential retrieval supplied 
by user. 



H 



506B 



X'92', -^gjfiienaine.S + a, CC 
and SLI, 5 



Read count (multiple track) - 

CCHHR - into coiniron seek/search area 

in DTFIS table. 



7aai 



X'69', gKEYARG, CC, Key 
Length 



Search key equal or high the 

track index. Key supplied by user. 



0240 



X'08«, Pointer to *~24, 
CC, Reccrd Length 



TIC tc *~24. 



HOC 



X'06', 2gjpiienaitie.W, 00, 10 



Read data (10-byte pointer) into 
random/sequential retrieval area in 
ETfIS table. The data field is then 
iroved from the randoir/sequential 
retrieval area for the next search. 



i. — 6 See notes 1 through 6 in Figure 71. 

Figure 65. Channel program builder for sequential retrieval -- CCW chain tuilt to 
search track index. 
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|CCW Builder I I 
Label I control Code^ [ CCW Built | Function 
« + ^«. „+ „.„ ^„„„_^ ^„ + „„ ^-. 

STRI1| oaae |X'31', ^gFilename.S+a, CC, 5 (Search identifier equal the prime data 

I I I area using the pointer (CCHHR) in the 

I I Icoirircn seek/search area in the DTFIS 

I I |tatl€. 

— ^„4«„.^ — 4»„^ — ^ ^,^ 4 ^..^ «.^.^. 

I 066B |X»08', Pointer to *-8^ CC | lIC to ♦-8. 
I land SLI, 5 | 
^„4 4 ...„ 4 ^._«.„. ^^^ 

I 416c |X'12', ^gf'iienanie.W, CC |Read count into coirroon 
I land SLI, 10 | seek/search area in the DTFIS table. 
4 . 4 ^^^^ 4 ^..„ . 

I 6441 |X'29' or X«69*, &KEYhEG , | If KE^ is specified in the 
I or |CC, Key Length jSETL macro and/or records are 
I 7441 I I unblocked, this CCW searches key equal 
I I I the prime data area. If GKEY is 
I I I specified in the SETI macro and/or 
I I (records are blocked, this CCP^ searches 
I I \^^y equal or high the prime data area 
I I I for the starting record. 
4 4 — «-^-^ 4 — ^.^ 

I 046B |X«08\ Pointer to *-16, | IIC to *-16. 
I |CC and SLI, 5 j 
^„4„^ 4-^ ^^ 4 ^^ 

I 1202 |X'06', glCAREi^S, 00, [Read data (block containing 
I jBlock Size starting record) intc lOAREAS. 



L X. .^ , X 

^-*"-® See notes 1 through 6 in Figure 71. 



Figure 66. Channel program builder for sequential retrieval — CCW chain built to find 
starting record in prime data area. 
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i 1 1 

|CCW Builder J | 
Label 1 Control Code^ j CCW Built | Function 

1 _ 1 « «. «. _ X-. — — . — — 


— ^ — - • - — ^ - « - — — -|.« — - - -. — - 

STRI3 1 804B |X'31', 2&Filenanie.S + 3, CC , 5|Searcb identifier equal the overflew 

1 1 |ohain using the pointer (CCHHR) in the 
1 1 1 corcnion seek/search area in the DTFIS 
1 1 Itable. 
, J i « i ^ 


1 0640 |X'08S Pointer to *-8, CC , |TIC to *-8. 
1 1 Record length j 

f 1 !„. 

1 6441 |X«29' cr X'69% &KEYARG, |If KEY is specified in the SETL 

1 or |CC, Key Length |nacro^ this CCW searches key 

1 7441 1 1 equal the overflc\v' chain fcr the 

I 1 1 starting record. If GKEY is specified 

II 1 in the SETI macro, this CCW searches 
1 1 \^^y equal or high the overflow chain 
1 1 1 for the starting record. 

_ L .i _ « i <„ „ 


1 112C |X'06', 2&Filenanie.W, SLI , 10|Reads data (10~byte sequence link 
1 1 1 field) into randoir/sequential 
1 1 1 retrieval area in DTFIS table. This 
1 1 jCCW is executed Mihen the required 
1 1 1 overflew record is not found in the 
1 1 1 overflow chain. 
4„ ^.4 + 

1 1203 |X'06\ glCAREAS, 00, | Read data (sequence link field 

1 1 Record Length +10 Ipl^s starting record) into lOAREAS. 

1 1 1 This CCW is executed when the matching 

1 1 jkey is found in the overflew chain. 



L L . 



X 



± . X 

1. — 6 3ge notes 1 through 6 in Figure 71. 

Figure 67. Channel prcgrair builder for sequential retrieval 

starting record in overflow chain. 



CCW chain built to find 



P . ^- 

CCW Parameter^ | 
Control Code j 



h 



CCW Built 



Function 



0540 |X'31', 2gFilenaire.S+3, CC, 5 
I 



Search identifier equal the prime data 
area using the pointer (CCHHR) in the 
coffimon seek /search area in the DTFIS 
table. 



f — 

jX'O', Pointer tc *-8, CC, 

_ 4. _ 







TIC to *-8. 


- ^ -. 

|X'05\** &IGAREAS, CC , ^ 

jElock Length^ 

1 






Write data (block) onto prime data 
area. 


— — -|. - — 

|X'31', 2gpiiename.S+3, CC, 

1 

_ i_ _ - - - -. 


5 




Search identifier equal to verify write 
operation. 


- — — ^_ — - « - - -. 

|X'08', Pointer to *-8, CC, 

_ _ i 







TIC to *-8. 


|X'06','» SIOAREAS, SKIP, 
1 Block Length^ 

L 




• X- 


Read data to verify write operation. 



i — 6 ggg notes 1 through 6 in Figure 71. 

Figure 68. Channel program builder for sequential retrieval — CCW chain built to write 
records. 
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J. -.-J.- 

CCVi Pararr.eter^l 
Control Code | 



h 



CCW Built 



Function 



0601 



|X'31\ 2gpiiename.S+3, CC, 5 



Search identifier equal the track index 
area using the pointer (CCHHR) in the 
coirrrcn seek/search area in the DTFIS 
tatle. 



|X'08', Pointer to *-8, CC, 



TIC to *-8. 



-4 



iX'Oe','* 2&Iilenaiie.W, CC^^IO 



Read data ClO-byte index level pointer) 
into randoir/sequential retrieval area in 
the DTFIS table. 



|X'31\ 2gFilenaKie.S+3, CC, 5 



Search identifier equal to verify read 
operation - 



|X'08% Pointer to *-8, CC, 



lie to *-8. 



|X'06', &IOAREAS, SKIP, 
[Block Size 

-i . — . 



Read data to verify read cperaticn. 



X — 6 3^g notes 1 through 6 in Figure 71. 

Figure 69. Channel program builder for sequential retrieval — CCW chain built to 
search track index. 



J. ^- 

CCW Parameter^ 1 
Control Code | 



h 



CCW Built 



Function 



0600 



1X'31', 2gfiienaire.S+3, CC, 5 
I 



Search identifier equal the priire data 
area using the pointer (CCHHR) in the 
coiTtinon seek/search area in the DTFIS 
table. 



^.^^.f.^^ 

|X'08' , Pointer to 

i_ _ 


*-8 ,CC, 







TIC to *-8. 


|X«06",'* glOAREAS, 
[Block Length^ 

___ , i_ _ _ 


CC,s 






Read data into ICAREAS . 


|X'31', ^gFiiename. 

1 

i 


S+3, CC, 


5 




Search identifier equal to verify read 
operation. 


|X'08', Pointer to 

^, X — — — - 


*-8 ,CC, 







TIC to *~8. 


— - — — t — 
|X'06%'* glOAREAS, 
1 Block Length'* 

X . 


SKIP, 




-.X, 


Read data to verify read operation. 



^ — ^ See notes 1 through 6 in Figure 71. 

Figure 70. Channel program builder for sequential retrieval -- CCW chain built to read 
records. 
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X'OO' 


2 


X«20' 


4 


X«40' 


6 


X'60' 



Note 1; The CCW chains are built by the B-transients, $$BSETL and $$BSETll, The CCW 
builder control code references inforiration in the §$BSETL and $$BSETI1 asseirtlies. 

The first character of the control code references an operation code at IJHRCE. 

The second character cf the ccntrcl cede references a data area at IJHARA. 

The third character of the control code references the following inforiration: 

Control Character CCW Flag field Meaning 

End cf CCW chain 

SLI (Suppress Length Indicator) 

CC (Command Chaining) 

CC and SLI 

The fourth character cf the ccntrcl code references a byte count (length) field at 
REINT, 

Not e_ 2 s 

gFilename = DTP naire supplied by user. 

SFilename.X = X is suffix supplied by DTFIS fcr unique DTF labels. 



No te_ 3 : 

The CCW parameter is found in the ISMCD assembly. 

The first byte cf the pararreter is the command code. 

The second byte of the pararreter contains flags with the exception of the chain to 
search the track index. In this case, the second byte is an indicator to the channel 
program builder that the CCW chain is to search the track index. 

Note 4 ; If the file contains unblocked records, the command code is ircdified to either 
Read Key and Data, or Write Key and Data. 

Note 5; If the verify option has not been specified, the command chaining bit is not 
set on. 

Note 6; If the file contains unblocked records, the byte count field contains the 
physical record length plus Key length. 



Figure 71. Channel program builder for sequential retrieval — notes. 



ISAJV! ADDRTR: ESETL Macro Chart J A 



Cbjective: To write the last record, if 
necessary, and to reset the status byte in 
the DTFIS table. 

Entry; From the ESETL macro expansion. 

Exit: To the problem program via linkage 
register 14. 

Method; ?^fter initializing pointers to the 
DTFIS table, this routine sets the status 
byte in the DTFIS table to 0. A test is 
then made to determine if the PUT issued 



bit is on in the retrieval byte cf the DTF 
table. If it is on, the last blcck cf 
records is written. A test for I0AREA2=yES 
is then m.ade. If ICAREA2 is specified as 
an ISMCD macro parameter option tc allcw 
overlapping of I/O with processing, a bit 
is set in the DTF table tc indicate the 
first record is being processed and a wait 
for I/C com.pletion is made. Control then 
returns to the problem program. 
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ISAM ?IDDRTR: GET Macro Charts JB-JE 



Objective; To perforir the sequential 
retrieval input function for an indexed 
sequential file. 

Entry; Froir the GET iracro expansion. 

Exit; To the problem prograir via linkage 
register 14. 



Method; This routine initializes pointers 
to the DTFIS table^ and then tests for 
I0AREIV2=YES. If I0AREA2 is not specified 
as an ISMOD macro parameter option ^ a test 
is made to determine if the last record 
read was in the overflew area. If the last 
record read was in the overflow area, the 
contents of the sequence-link field is 
moved to the seek/search area, and a test 
is rrade to determine if the end cf the 
overflow chain has been reached. If it has 
not been reached, the overflew record is 
read, addresses are saved, and the record 
is moved to WORKS, if specified. Control 
then returns to the problem program. 

If the end of the chain has been 
reached, the current disk address is 
updated to the next track and the next 
record is read. The record is moved to the 
work area, if specified, addresses are 
saved, and control returns to the problem 
program. 

If the last record read was not in the 
overflow area, the routine determines if 
all records in the block have teen 
processed. If all the records in the block 
have not been processed, the I/C area 
pointer is updated to the next logical 
record. If that record is not a padding 
record, it is moved to the wcrk area, if 
specified, addresses are saved, and control 
returns to the problem program. If it is a 
padding record, the EOF indicator is set in 
the DTFIS table, and ccntrcl passes to the 
problem program. 

If all records in the block have been 
processed, a check is made to determine if 
the PUT macrc has been issued. If it has, 
the record is written. A test is made to 
determine if the prime data device type is 
a 2321. If it is a 2321 data cell, the 
upper limit for the strip is initialized, 
and then modified if the last record was on 
the next-to-last subcell. 

A test is made to determine if the end 
of the track has been reached. If it has 
been reached, the track index is searched 
to find the next track index entry. The 
current track index record number in the 
DTF table is then updated, and a test is 



made to determine if there is any overflow 
record indicated in the track index entry 
just read. If the track index entry 
indicates an overflow record is present, 
that overflow record is read, and moved tc 
the work area, if specified. Ccntrcl 
returns tc the problem program. 

If there is no overflew record indicated 
in the track index entry, the current 
address is updated by 1, and the record is 
read and moved into the wcrk area, if 
specified. Control returns to the problem 
program. 

If I0AREA2 has been specified tc allow 
overlapping of I/O with processing, a test 
is made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflew area, a 
test is made to determine if the record 
fceing processed by the user is an cverflew 
record. If it is an overflow record, a 
wait for I/O completion is made, the next 
available I/O area address is obtained, the 
current record address is saved, and a test 
is made to determine if the first record is 
fceing processed. 

If the first record is being processed, 
and if track hold has teen specified, the 
appropriate index and data tracks are held, 
the cverflew record is read, addresses are 
saved, and the record is moved tc a 
wcrkarea, if specified. Any held tracks 
are released, and control returns to tne 
problem program. 

If the first record is not being 
processed, the address of the next overflew 
record is moved to the seek/search address 
and a test is made to determine if the end 
cf the overflow chain has been reached. If 
the end has not been reached, and if track 
held has been specified, the appropriate 
index and data tracks are held, the 
overflew record is read, addresses are 
saved and the record is moved to the wcrk 
area, if specified. Any held tracks are 
released and control returns to the preblem 
pregram. 

If the end of the overflow chain has 
been reached, the current disk address is 
updated tc the next track and the next 
record is read. The record is moved to the 
wcrk area, if specified, addresses are 
saved, and control returns to the preblem 
pregram. 

If the last record was not an overflow 
record and the current record is net an 
cverflew record, this routine determines if 
all the records in the block have been 
precessed. If all records in the block 
have not been processed, the I/O area 
pointer is updated to the next logical 
record and the record counter is updated 
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by 1. If the next logical record is not a 
padding record, it is mo^ed to the work 
area, is specified, addresses are saved, 
and control returns to the problem program. 
If it is a padding record, the EOF 
indicator is set in the DTE table and 
control returns to the problem program. 

When all the records in the block have 
been processed, a check is made tc 
determine if the PUT macro has been issued. 
If the PUr macro has been issued, the 
record is written, h test is made to 
determine if the prime data device type is 
a 2321. If it is a 2321, the upper limit 
for the strip is initialized tc 9 and then 
modified to 5 if the last record was on the 
next-to-last subcell. A test fcr the 
presence of two I/O areas is then made. If 
the presence of two I/O areas is indicated 
in the DTF table, a test is made to 
determine if the first reccrd is being 
processed. If the first record is not 
QOi nrj yicc:''Ss^.^Lg a wait for I/O ccnplcrjoa 
is made and the record address is saved in 
the DTF table. 

A test is made to determine if the end 
of the track has been reached. i f the end 
of the track has been reached, the track 
index is searched to find the next track 
index entry. The current track index 
record number in the DTF table is updated. 
If HOLD is specified, the index track is 
held while a test is made tc determine if 
there is any overflow record indicated in 
the track index entry just read. If the 
presence of an overflow entry is indicated, 
and there are two I/O areas present, this 
routine tests tc determine if this is the 
first record. If it is not the first 
record, the reccrd counter is set to 1. 
The overflow record address is moved to the 
seek/search address, the overflew record is 
read, held if HOLD=YES is specified, and 
moved to the work area, if specified, 
control then returns tc the problem 
program. 

xC there is no overflow reccrj iiidicai.eu 
in the track index entry, the current 
address is updated by 1, the next record is 
read and .moved to the work area, if 
specified, and control returrs tc the 
crotlerp p-^oarein. 



ISAM ADDRTR: PUT Macro Chart JF 



Obj e cti ve; To perform the sequential 
retrieval output function fcr an indexed 
sequential file. 

Entry; From the PUT macro expansion. 



Exit; To the problem program via linkage 
register 14. 



Method; After initializing pointers tc the 
DTFIS table, this routine tests whether a 
GET has been issued. If a GET has not been 
issued, there is an SVC 50 (errcr) . 
Otherwise, the GET issued switch is turned 
off and the output bit in the retrieval 
byte in the DTFIS table is turned on. The 
record is moved from the wcrk area tc the 
I/O area, and the output bit in the 
retrieval byte is set off. 

If the record is unblccked , cr is in the 
cverflcw area, this routine writes out the 
record and returns control tc the problem 
program. If the records are blocked, this 
routine sets the bit in the retrieval byte 
tc indicate that the PUT macro has been 
issued for this record, and returns ccntrcl 
tc the problem program. The GET macro 
xoutiii-. causes thi I^iocK tc be written on 
T.P.SC when it determines that all records in 
tht block have been processed. 



13P. 



:i:;\ ix-i* lj'^:: :i acr o, key chart Jb 



Objective; To perform the randcn retrieval 
input function for an indexed sequential 
file by searching the indexes to determine 
the track on which the desired reccrd is 
stored. 

Entry; Frcm the READ, KEY macro. 

S^SiS- To "t^^ problem program via linkage 
register 14. 



Method; This routine first initializes 
pointers and status bits in the DTFIS 
table. It then constructs the CCW chain to 
search the master or cylinder index (Figure 
72). It then determines the highest level 
index (master cr cylinder) being used, and 
teFt ij^ '";f^rEXT=-Yl;S. If ERREXt is 
specified, additional error conditions can 
he returned to the problem program. Tnis 
allows the user greater flexibility in 
attempting to continue processing. This 
routine then searches the highest level 
inde^ to geL the addres--: of th^ :]<i"'!^ xndev 
tc be searched. 

A test of the F code from the index 
level pointer is made to determine if the 
next search is of the track index. The F 
code refers to the index level just 
searched. If the master index was just 
searched, the next search is on the 
cylinder index. If the next search is not 
on the track index, the routine gets the 
index entry type and determines the routine 
to process that type. 
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If the entry type is a normal entry, the 
routine returns to search the next index. 
If the entry type is a dummy end entry or 
an inactive entry, the routine tranches to 
an error routine to set a no-record-found 
flag in the DTF table and return tc the 
problem program. If the entry is a durrmy 
chained entry, the routine returns to 
search the index by using the address 
supplied by the 10-byte index level 
pointer. 

When the next search is found tc be on 
the track index, a test is made to 
determine if the track index takes up one 
track or more. If the track index does not 
require a full track, the rcutine builds a 
new CCW chain to search the track index 
(Figure 73). The routine issues the EXCP 
to search the track index, and returns 
control to the probleir program without 
issuing a WAIT. The WAIT function is left 
to the WAITF macro, which rrust be issued 
before the user can process the record. 



ISAI^i ADDRTR; SETL Macrc, $$ESETL 

Charts JH-JK 



Objective; To initialize for sequential 
retrieval based on information supplied by 
the user in the SETL iracrc (BOF cr ID) . 

Entry: From the SETL macro expansion. 

Exit: To the problem program or to 
$$BSEIL1. 



Method: This logical transient first 
validates the limits of the DTFIS table and 
lOAREAS to ensure that they lie within the 
partition. $$BSETL then initializes for 
sequential retrieval based en the 
information supplied by the user in the 
SETI macro. The SETL iracrc specifies the 
type of reference used to identify the 
first record to be processed. The types of 
reference are: 

1. KEY. Key of starting record in the 
file. 

2. GKEY. Lccation of starting record in 
the file, identified by a record key 
within a desired group. The user 
supplies a key that identifies the high 
order bytes of the required grcup of 
keys. For example, a GKEY 
specification of D6430000 wculd permit 
file processing to start at the first 
key containing D643XXXX, regardless of 
the characters represented by the Xs. 

3. BDF. Beginning of logical file. 



4. ID (MEECCHHR) . Location of starting 
record in the priire data area. 



Note: References 1 and 2 are processed by 

$$ESETL1 . 

If sequential retrieval is to begin with 
a record associated \(cith a particular key 
(KEY) , the key of the beginning record must 
be placed in the field defined by the DTFIS 
entry KEYARG before the SETL macro is 
issued. This phase searches the iraster 
index (if present) , cylinder index and 
track index until it finds the track index 
entry associated with the specified key. 
It determines whether the record with the 
desired key is on a shared or unshared 
prim.e data track or in the overflew area. 

If the record is on a shared track, the 
search is initialized to begin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are i:nblocked, the track 
index overflow entry address associated 
with the desired record is calculated and 
stored in the DTFIS table, and the track is 
searched equal for the desired record. If 
the record is not found, a nc-reccrd-f cund 
indicator is set in the DTFIS table 
(Filename .C) . 

If the file contains blocked records, 
the track is searched equal/high for the 
desired block. The user irust supply (in 
the DTFIS entry KEYLOC) the position of the 
key field in the data record. The block is 
searched. When the record with the 
matching key is found, its address is saved 
in the DTFIS table, and control returns to 
the problem, program. If the reccrd is net 
found, the no-recctd-found indicator is set 
in the DTFIS table (Filename. C) . 

If the record with the desired key is in 
the overflow area, the track index normal 
and overflew entry addresses are stored in 
the DTFIS table, and the overflew chain is 
searched fer the desired record. When the 
desired record is found, its address is 
saved in the sequential retrieval section 
of the DTFIS table. If the desired record 
is net fcund in the overflow chain, a 
no-record-found indicator is set in the 
DTFIS table (Filename. C) , and control 
returns to the problem; program. 

If GKEY was specified in the SETL macrc, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record proceeds in 
the same manner as if KEY were specified in 
the SETL macrc. However, in this case 
(GKEY) , a no-record-found condition should 
net occur unless the key specified is 
higher than the existing highest key in the 
file. 



Indexed Sequential Access Method 14 9 



If BOF was specified in the SETL macro, 
the address cf the first prine data record 
in the file is saved in the sequential 
retrieval section of the DTIIS table, and 
the track index overflow entry address 
associated with the desired reccrd is 
calculated and stored in the DTFIS table. 
Control returns to the profcleiti prcgram. 

If the starting reccrd address is 
referenced by a symbolic name in the SETL 
macro, this phase analyzes the S-fcyte DASD 
address (yiBBCCHHR) in the field specified 
by the syrabclic name for validity. If the 
address is invalid, an illegal ID indicator 
is set in the DTFIS table (lilenaire.C) , 
andcontrol returns to the problem program. 
If the starting address is valid, this 
phase saves the address in the DTFIS table, 
calculates the track index overflow entry 
address associated with the desired record, 
stores it in the DTFIS table, and returns 
control to the problem program. 

In order to perform a search of the 
master, cylinder or track indexes, prime 
data area, and overflow area for the 
starting reccrd, a CCW string is built to 
search the required areas. Figures 87-90 
give a description of the channel program 
built to perform the necessary search. 



ISAM^ADDRTR^ SETL_MacrOj^__^^ESETLl_ 



Objective; To initialize for sequential 
retrieval based on information supplied by 
the user in the SETL macro (KEY or GKEY) . 

Entry; From $$BSETL. 

Exit; To the problem program. 

Method: This logical transient initializes 
for sequential retrieval based en the 
information supplied by the user in the 
SETL macro. The SETL macro specifies the 
type of reference used to identify the 
first record to be processed. The types of 
reference are; 

1. KEY. Key cf starting reccrd in the - 
file. 

2. GKEY. Location of starting record in 
ttie file, identified by a reccrd key 
within a desired group. The user 
supplies a key that identifies the high 
order bytes of the required group of 
keys. For example, a GKEY 
specification of D6U30000 would permit 
file processing to start at the first 
key containing D643XXXX, regardless of 
the characters represented by the Xs. 



EOF. 



Beginning of the logical file, 



4. ID (MBECCHHR) . location of starting 
record in the prime data area. 

Note; References 3 and 4 are processed by 
$$BSETL. 

If sequential retrieval is to begin with 
a record associated vith a particular key 
(KEY) , the key of the beginning record must 
be placed in the field defined by the DTFIS 
entry KEYARG before the SETL macro is 
issued. This phase searches the master 
index (if present) , cylinder index, and 
track index until it finds the track index 
entry associated with the specified key. 
It determines whether the reccrd with the 
desired key is on a shared or unshared 
prime data track or in the overflew area. 

If the record is on a shared track, the 
search is initialized to begin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflew entry address associated 
with the desired reccrd is calculated and 
stored in the DTFIS table, and the track is 
searched equal for the desired reccrd. If 
the record is not found, a no-record- found 
indicator is set in the DTFIS table 
(Filename. C) . 

If the file contains blocked records, 
the track is searched equal/high fcr tne 
desired blcck. The user must supply (in 
the DTFIS entry KEYLCC) the pcsiticn cf the 
key field in the data record. The block is 
searched. When the record with the 
matching key is found, its address is saved 
in the DTFIS table, and control returns to 
the problem! program. If the reccrd is net 
found, the no-record-found indicator is set 
in the DTFIS table (Filename .C) . 

If the record with the desired key is in 
the overflew area, the track index normal 
and overflow entry addresses are stored in 
the DTFIS table, the appropriate index and 
'^ata tracks are held, and the overflow 
chain is searched for the desired reccrd. 
When the desired record is found, its 
address is saved in the sequential 
retrieval section of the DTFIS table. If 
the desired record is not found in the 
overflow chain, a no-record- found indicator 
is set in the DTFIS table (Filename. C) , the 
held index and data tracks are released, 
and control returns to the problem pregram. 

If GKEY was specified in the SETL macrc, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search fcr the desired record proceeds in 
the same m.anner as if KEY were specified in 
the SET! macrc. However, in this case 
(GKEY) , a no-record-found condition should 
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not occur unless the key specified is 
higher than the existing highest key in the 
file. 

If BOF was specified in the SETL macro, 
the address cf the first prirre data record 
in the file is saved in the sequential 
retrieval section of the DtFIS tatle, and 
the track index overflow entry address 
associated mth the desired record is 
calculated and stored in the DTFIS table. 
Control returns to the probleir. prcgram. 

If the starting reccrd address is 
referenced by a symbolic naire in the SETL 
macro, this phase checks the validity of 
the 8-byte EASB address Cl^EECCHHR) in the 
field specified by the symbolic name. If 
the address is invalid, an illegal ID 
indicator is set in the DTFIS table 
(Filename. C) , and control returns to the 
problem program.. If the starting address 
is valid, this phase saves the address in 
the DTFIS table, calculates the track index 
overflow entry address associated with the 
desired record, stores it in the DTFIS 
table, holds the required index and data 
tracks, and returns control to the problem 
program. 

Before I/O is performed, a switch is 
tested to see if track hold has been 
specified. If it has, the data track (s) 
and the corresponding index track (s) are 
held until I/O is complete. If any error 
conditions occur (for example, no record 
found, wrong length record, or a DASD read 
error) , any held tracks are freed before 
returning to the user. 

In order to perform a search of the 
master, cylinder, or track indexes, prime 
data area, and overflow area for the 
starting reccrd, a CCW string is built to 
search the required area. Figures 87-90 
give a description of the channel program 
built to perform the necessary search. 



ISAM ADDRTR: 



WAITF Macro Charts KA-KE 



C b j e c t iy e : 

1. To ensure that the last EXCP issued has 
been completed and that the condition 
is normal. 

2. If the operation is a READ, to locate 
the specified record and tc ccirplete 
the transfer of data to the I/C area 
specified by the DTFIS entry lOAREAR, 
and to the specified work area if the 
DTFIS entry WORKR is included in the 
file definition. 



If the operation is a WRITE (NEWKEY) , 
to ccirplete the addition cf the record 
to an indexed sequential file, 
adjusting the indexes and ether records 
as necessary. 

If the operation is a WRITE (KEY), to 
return control to the prcbleir prcgram. 



Entry; From the WAITF macro expansion. 

Exit: To the problem prcgram via linkage 
register 14. 



^ethcd : This routine first 
ERREXT=YES. If ERREXT is S 
additional error conditicns 
to the prcbleir program. Th 
user greater flexibility in 
continue processing. After 
pointers to the three secti 
table, this routine tests t 
in the DTF table to determi 
condition so far is normal. 
control returns to the prcb 



tests for 
pecif led, 

can be returned 
is allows the 

atteirpting tc 

initializing 
ons cf the DTFIS 
he status byte 
ne if the 
If not, 
lem prcgram. 



If the condition is ncrmal, the routine 
issues a WAIT to determine if the EXCP 
issued by the READ or WRITE routines has 
been completed, and also tests for errors. 
Then, if the operation is a WRITE (KEY) , 
this rcutine returns control to the problem 
program.. 

If the operation is a READ, this rcutire 
must complete the READ operation by moving 
the data to the I/O area. If first sets 
the address of the track on which the 
desired record is stored in the seek/search 
area, and initializes pointers tc KEYARG 
and the I/O area. It also gets the 
relative key location and key length. 

The routine picks up the index entry 
type (F cede) from the search address and 
determines the routine tc prccess that 
type. If the entry is a norm.al entry on an 
unshared track, a new CCW chain is built tc 
find the record in the prime data area 
(Figure 74). If blocked records are 
specified, the CCW command cede is modified 
tc search high or equal. An EXCP and WAIT 
are issued to find the record and read the 
block into the I/C area. If records are 
unblocked, the record is moved into WORKR 
(if specified), and control returns tc the 
problem prcgram. If records are blocked, 
this routine tests to determine if the key 
specified in KEYARG is less than the key in 
the first logical record. If sc, the 
reccrd has not been found, and the 
corresponding bit is set on in the DTF 
table. Otherwise, the corresponding key is 
found within the block and the rcutine 
moves the block to WCRKR, if specified. 
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Control is then returned to the problem 
program. 

For a normal entry en a shared track, 
the routine decreases the record number in 
the search address by 1, and builds a new 
CCW chain tc find records en a shared track 
(Figure 75). Processing continues as in 
the routine to process a normal entry on an 
unshared track • 

If the entry is an overflow end entry or 
an overflow chained entry, this routine 
first constructs a CCW chain to search the 
overflow chain. ?ln EXCP and a WAIT are 
issued to locate the record in the overflow 
chain. h test is made to determine if the 
desired record has been found. If not, the 
routine tests for a overflow end entry. If 
so, the no-record-found bit is set on in 
the DTF table. If the entry is not an 
overflow end entry, the sequence-link field 
is inserted in the seek/search address, and 
the overflow chain is searched again. 

If the record has been found, overflow 
bits are set on in the DTF table, and the 
first nonoverflow record count is increased 
by 1. The logical record is moved to 
WOFKB, if specified. Control returns to 
the problem program via register 14. 

If the entry is a dummy end entry or an 
inactive entry, the routine sets a 
no-record- found bit on in the DTF table, 
and returns control to the problem program. 

If the operation is a WRITE (WEWKEY), 
this routine determines the type of add 
function to be performed. The three types 
of add functions are: 

• Normal add to the prime data area. 

• Add to the Overflow area. 

• EOF add. 



Normal Add tc the Prime Data^Area : This 
routine first determines if the record is 
to be added to the last prime data track. 
If it is and the last prime data track is 
full, the overflow record address is 
calculated, an EXCP (Figure 81) is issued 
to search and read the prime data track to 
determine the point of insertion, and a 
wait for I/C completion is made. Figures 
72 through 107 describe the channel program 
builder for the ADDRTR function. If the 
addition is not on the last prime data 
track, the overflow record address is 
calculated and the prime data track is 
searched to determine the pcint cf 
insertion for the record to be added to the 
file. When an equal/high key is found 
during the search, the count and data 



fields cf that location are read into a 
save area in the DTF table and lOAREAL 
respectively. 



A test is m.ade to determine if the prime 
data in core option was specified as an 
ISMOC macro parameter. If it was 
specified, as many records as can fit into 
the I/O area specified in the DTFIS operand 
lOAREAL are read from the prime data track 
into main storage. The key of the record 
to be added is compared tc the keys cf the 
existing records in the I/C area. If a 
duplicate key is found, the condition is 
indicated to the user in the DTF table 
entry labeled Filename. C. If no duplicate 
key is found, the records are shifted in 
main storage leaving the record with the 
highest key remaining in the user's wcrk 
area, WOrKL. The other records are 
rewritten directly onto the track. Any 
remaining records on the track are then 
read into the I/O area. The process 
continues until the last record on the 
track is set up as an overflew record. 
When the last prime data record on the 
track has been rewritten, the new overflew 
record is written in the overflow area, the 
track index normal and o'verflow entries and 
the COCR are written on DASD, and control 
returns to the problem program. 

If the prime data in cere option has net 
been specified as an ISMCD macro parameter, 
a test for blocked records is made. If the 
file contains unblocked records, the record 
previously found on the search key 
equal/high is reread to get the key field. 
If it is a duplicate key, a switch is set 
en in the DTFIS table indicating a 
duplicate key has been sensed and a return 
to the problem program is made. If there 
are no duplicate keys, the user's key and 
data are written from the work area, WCRKL, 
onto the DASD file. The record in the I/O 
area, lOAREAL, replaces the user's record 
in the work area. The next record on the 
track replaces the one in the I/C area. 
This process is repeated until the end of 
track is reached. 

If the end-of-file (EOF) record is read 
during the process of shifting the records 
over one record position, this routine 
writes the last record over the EOF record 
and then writes a new ECF recerd (Figures 
80, 88, 89). 

If the file contains blocked records, 
this routine reads the blcck cf records (or 
as many as fit in the I/C area if lOAREAL 
was increased for reading and writing more 
than one record at a time) into ICAREAL. 
The key field within each logical record is 
analyzed tc determine the correct position 
in which to insert the new record. If 
there is duplication of keys, a switch is 
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set on in the DTFIS table and ccntrol 
returns tD the problem program. 

If the key of the record to be inserted 
(contained in VvORKL) is low, it is 
exchanged with the record presently in the 
block. This procedure continues with each 
succeeding record in the block until the 
last record is moved into the work area. 
The key field of the BASD record is then 
updated to reflect the highest key in the 
block. If the size of lOAREAL has been 
increased, succeeding blocks in the I/O 
area are also updated. The blcck (or 
blocks) is then written back onto DASD. 
The remaining blocks on the track are 
similarly processed until the last logical 
record on the track is ir.oved into WORKL. 
This record is then set up as an overflow 
record with the correct sequence-link field 
added and written in the overflow area. 
The sequence-link field for the new 
overflow record is taken from the track 
index overflow entry. The indexes are 
updated, and control returns to the probleni 
program for the next record to be added. 
If the overflow area is full, this 
information is indicated tc the user in the 
DTF table entry labeled Filename. C. 

The track index norrral entry key field 
is updated to the key of the new last 
record, the track index overflew entry data 
field is updated to the address of the new 
overflow entry (that entry has the lowest 
key for the overflow for that track) , and 
the COCR is updated. These records are 
written on the DASD file before control 
returns to the problem program. 

If the last block in the prime data area 
is padded, the last record to be shifted is 
included in that block. If the EOF record 
is read during the process of shifting the 
records one record position, the last 
record is written as a new block and a new 
EOF record is written before returning 
control to the problem program. 



Add to the Overflow Area; This routine 
computes the new overflow record address 
and reads the overflow chain tc get the 
address of the record with the next highest 
key. This address is stored in the 
sequence-link field of the new record. The 
new overflow record is then written in 
either the cylinder overflow area or 
independent overflow area (Figure 87) . If 
these areas are full, this ccnditicn is 
indicated to the user in the DTFIS table 
entry labeled Filename. C. Each time an 
overflow record is added to the independent 
overflow area, an EOF record is written to 
maintain the integrity of the indexed 



sequential file (Figure 90). The next 
overflow record followed by an ECF record 
overlays the previous EOF record. 

If the new overflow record has the 
lowest key in the overflow chain, its 
address is used to build a new track index 
overflow entry. The new overflew entry is 
then written on the DASD file, and control 
returns to the problem program. If a 
cylinder overflow condition occurs, the 
updated COCR (cylinder overflow ccntrol 
record) is written on DASD before control 
returns to the problem program. 

If the new overflow record does net have 
the lowest key, the sequence-link field of 
the record with the next lower key is 
updated to contain the address of the new 
overflow record. This o^^erflow record is 
then rewritten on DASD and the COCR is 
updated (figures 84-86). Control returns 
tc the problem program. 



EOF Add: This routine first determines if 
the last prime data track is full. If the 
last prime data track is not full, the new 
record is inserted on it. If the file 
contains blocked records and the record can 
fit in the last block, the block is read 
and the new record is inserted. 

If the file is not blocked, or if it is 
blocked and the last block is full, a new 
last prime data record address is stored 
and the new record is written at that 
address. A new EOF record is then written. 

If the last prime data track is full, 
the new record is inserted in the overflew 
area. The new overflow record address is 
computed and the record is written in the 
overflow area. 

If an overflow chain is present, the 
next lower record in the chain is found and 
the address of the new record is moved to 
the sequence-link field cf the next lower 
record. 

If no overflow chain is present, the 
address cf the new overflow record is moved 
to the track index overflow entry. The 
track index overflew entry is then written 
with the new high key. The master index 
(if present) and the cylinder index are 
updated with the new high key. A test fcr 
the cylinder index in core option is then 
ma<3e. If it has not been specified, 
ccntrol returns to the problem program. If 
the cylinder index in core option has been 
specified, the new key is inserted into the 
appropriate index in core entry before 
returning ccntrol to the problem program. 
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ism A.DDRTR: 



WRITE Macro y KEY Chart KF 



Objective; To perforir the random retrieval 
output function for an indexed sequential 
file. 

EntrYs Froir WRITE, KEY itiacrc expansion. 

Exit; To the probleir prograir via register 
14. 



Method; This routine first sets the write 
bit in the DTFIS table. If then tests for 
an uncorrectable DhSD error, wrong length 
record error, or no record found error. If 
any of these errors exist, the 
no-record-found bit is set en in the DTF 
table, and control returns to the probleir. 
program. 

If there are no errors, the status byte 
in the DTF table is reset, and pointers to 
the DTF table are initialized. This 
routine then picks up the count field of 
the record as saved by the read routine, 
the address of WORKR, and the address of 
the logical record within the I/O area. 
The record, or block of records, is moved 
to the I/O area from WORKR (if specified). 
The CCW chain to write records is then 
built (Figure 77). 

If the entry to be written is not an 
overflow entry, the byte count field in the 
write and verify CCW's is modified to the 
block length from the DTF table. This 
routine then issues the EXCP to write the 
record, and returns control to the problem 
program without issuing a WAIT. The WAIT 
function is left to the WAITF iracrc, which 
must be issued before the user can continue 
processing. 



Charts EE-EF" 



WRITE Macro y iSlEWKEY 



Objective; To perform the necessary 
initialization to add a record to a file. 

Entry; From the WRITE, NEWKEY iracrc 
expansion. 

l^cit; To the problem prograir via linkage 
register 14. 



highest level index, builds a CCW chain to 
search the highest level index (figure 78) 
and tests for ERREXT=YES. If ERBEXT is 
specified, additional error conditions can 
he returned to the problem program. This 
allows the user greater flexibility in 
atteirpting to continue processing. The 
channel program is executed and a wait fcr 
I/O corrpletion is made. It then tests the 
F code of the index level pointer to 
determine if the next search is of the 
cylinder or track index. The F cede refers 
tc the index level just searched. If the 
master index was just searched, the next 
search is en the cylinder index. See 
Figure 17 for a description of the F code. 



If the F code indicates a duiriry chained 
entry , the search of the master, cylinder 
or track index continues. If the index 
level pointer did not indicate a dummy 
chained entry , a test fcr an inactive or 
durrrry end entry is made. If an inactive or 
dummy end entry is indicated, the EOF add 
indicator is set en in the DTFIS table, a 
CCW chain is built tc read the last track 
index entries, the channel program to 
bypass the last of the track index entries 
is executed, a wait for the 1/C operation 
to be ccirpleted is made, and control 
returns to the probleir prcgrair. Processing 
continues with the record following the 
last key. 



If an inactive or durairy end entry is not 
indicated, a test for the presence of a 
Easter index is made. If the master index 
is not present, indicating tne cylinder 
index was just searched, a search of the 
track index is performed, and a return to 
the probleir program is made. 



If the master index is present, a test 
is made to determine if the cylinder index 
in core option was specified as an ISMCD 
iracrc parameter. If it v^as net specified, 
an EXCP is issued to search the cylinder 
index, fcllowed by a wait for I/O 
completion, an EXCP to search the track 
index, a wait for I/O completicn, and a 
return tc the problem program. If the 
cylinder index in core option was 
specified, a search of the track index is 
performed, and a return to the problem 
program is made. 



Method; After initializing the pointers to 
the three parts of the DTFIS table, this 
routine gets the starting address of the 



Any tracks which have been held during 
update are released before ccntrel returns 
tc the user. 
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J. , ^ 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



7461 



X'69«, SKEYARG, CC and 
SLI, Key Length 



Search key equal or high the 
iraster/cylinder index. Key supplied by 
user in the DTFIS table. 



0C6B 



X*08', Pointer to *+16 , CC 
and SLI, 5 



lie to ++16. 



D17B 



X'lA', ^gpiienaitie.w, CC, 
SLI, and SKIP, 5 



Bead hcire address into random/sequential 
retrieval vvork area in DTFIS table. 



536C 



X«92«, 6I0AREAH, CC and 
SLI, 10 



Read ccunt (irultiple-track) into ICAREAR. 



7461 



X'69', gKEYARG, CC and SLI , 
Key Length 



Search key equal or high the 
master/cylinder index. Key supplied by 
user in ETilS table. 



046B 



X«08', Pointer to ♦-16, CC 
and SLI, 5 



TIC to *-16, 



HOC 



X'06', 2gFiienaire.w, 00, 10 



Read data (10-byte index level pointer) 
into randcn/sequential retrieval area in 
DTFIS table. 



^—'^ See notes 1 through 7 in Figures 106 and 107. 

Figure 72. Channel prcgrair builder for ADDRTR — CCW chain built to search 
master-cylinder index for randcir retrieve function. 



CCW Builder | | 

Control Code^ f CCW Built | Function 
« , i.«. ^ _- - -. -. « i .^ - - -. - - 


— , 1 — — — — - — « — .J ^ .^ — — — — 

D36B 1 X'lA', glOAREAR, CC and SLI, | Read home address into lOAREAR. 

1 5 1 
1. ^_.„^>^«_^ 1 ^.„ ^„^ 

9461 1 X'E9', SKEYARG, CC and SII , | Search key equal or high (multiple 

1 Key Length | track) track index. Key supplied by user 
1 1 in DTFIS table. 

_ j ^ « « _« i ^ _ « _ 


066B 1 X»08', Pointer tc *-8, CC | TIC to *-8. 
1 and SLI, 5 t 

. - - -J -. -. . - -i. , . -. , - - — . 


— _ - - -^- — -. - -^ -. , — - - -- . 

HOC 1 X'06', ^&Filenaire.u, 00, 10 | Read data (10-byte index level pcinter) 
1 1 into randcir/sequential retrieval area in 
1 1 DTFIS table. 

I, . X . 



±—7 See notes 1 through 7 in Figures 106 and 107. 

Figure 73. Channel prcgrair builder for ADDRTR — CCW chain built to search track index 
for random retrieve function. 
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CCW Builder 
Control Code^ 



CCW Built 



Function 



7461 



X'69', &KEYARG, CO and 
SLI, Key Length 



Search key equal or high in prirre 

data area. Key supplied ty user in DTFIS 

tatle. 



0C4B 



X'08', Pointer to *+16 , 
CC, 5 



lie to *+16. 



D17B 



X'lh\ ^gFilenaroe.w, CC, 
SLI, and SKIP, 5 



Bead hcrre address into random/sequential 
retrieval area in DTFIS table. 



406C 



X'12% 2gpi3_ename.S+3, CC 
and SLI, 10 



Fead count into coitnicn seek/search 
area in DTFIS table. 



6461 

or 
7461 



X'29' or X'69', &KEYARG, 
CC and SLI, Key Length 



If reccrds are unblocked, search key 
equal in prime data area. If reccrds 
are blocked, search key equal or high in 
prime data area. Ke;^ supplied by user Ie 
DTFIS table. 



044B 



X'08', Pointer to ♦-16, 
CC, 5 



TIC to *-16. 



1302 



X'06', glOAREAR, 00, Block 
Length 



Read data (block) containing starting 
record intc lOAREAR. 



1 — 7 See notes 1 through 7 in Figures 106 and 107. 

Figure 74. Channel program builder for ADDRTR — CCVv chain built to find record in 
prime data area (unshared track) fcr random retrieve function. 



J. ^ 

CCW Builder 

Control Code^ I CCW Built | Function 



h 



804B 



X'31' 



^SFilename.S+3, CC, 5 



Search identifier equal the prime data 
area using the pointer (CCHHR) in the 
coirircn seek/search area in the DTFIS 
table. 



064B 



X'OB', Pointer tc ♦-8 CC, 5 



TIC to *- 



406C 



X'12', 2gpiiename.S+3, CC 
and SLI, 10 



Read count into common seek/search 
area in DTFIS table. 



6461 

or 
7461 



X'29' or X'69', SKEYARG, 
CC and SLI, Key Length 



If reccrds are unblocked, search key 
equal the prime data area. If reccrds 
are blocked, search key high or equal the 
prime data are. Key supplied by user in 
DTFIS table. 



044B 



X'08«, Pointer tc *-16, 
CC, 5 



TIC to *-16. 



1302 



X'06', 6I0AREAR, 00, 
Block Length 



Read data (block) containing reccrd 
into lOAREAR. 



^ — 7 See notes 1 through 7 in Figures 106 and 107. 

Figure 75. Channel program builder for ADDRTR — CCW chain built to find record in 
prime data area (shared track) for random, retrieve function. 
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r " " — ^-T' 

CCW Builder 
Control Code^ 



h 



CCVy Built 



Function 



804B 



X'31', 2gpiiename.S+3, CC, 5 



Search identifier equal the overflow chain 
using the pointer (CCHHR) in the ccirircn 
seek/search area in the DTFIS tafcle. 



H 



064B 



X'08«, Pointer to +-8, CC, 5 



TIC to *-( 



6461 



X'29', SKEYARG, CC and 
SLI, Key Length 



Search key equal the overflow chain. 
Key supplied by user in DTFIS table. 



116C 



X'06', 2gpiienanie.w, SLI , 10 



Read data (10-byte sequence link field) 
into random/sequential retrieval area in 
ETFIS table. This CCW is executed when 
the required overflo^*^ record is net found 
in the overflew chain. 



H 



1303 



X'06', glOhREAR, 00, 
Record Leagth + 10 



Read data (sequence link field plus 
logical record) into lOAREAR. This CCW is 
executed ^hen the rratching key is found in 
the overflew chain. 



^ — '^ See notes 1 through 7 in Figures 106 and 1C7. 

Figure 76. Channel program builder for ADDRTR — CC^ chain built to find record in 
overflow chain fcr randcni retrieve function. 



^ — _^ ^ , — ^ — , ^_^ , , , ^^ — 

CCW Builder | | 

Control Code^l ' CCW Built | Function 

_ _j _ _ _ X — — — — — 


- -..| — - « - — - ^ -. — - — - 

804B 1 X'31', ^gFilenaiTe.S + 3, CC, 5| Search identifier equal priire data area 
1 1 using pointer (CCHHR) in cornrron 
1 1 seek/search area in DTFIS table. 
+ ^^„^^« + 

1 1 
064B 1 X'08', Pointer to *-8, CC, 5| TIC to *-8. 
— + „ +- . 

B3C3 1 X'05', glOAREAR, CC, Record | V^rite data from ICAREAR. 
1 Length + 10 | 
1 ^^ 1 

804B 1 X'31, 2gpiienaine.S+3, CC, 5 | Search identifier equal the prime data 
j 1 area, using pointer (CCHHR) in cciriron 
1 1 seek/search area in DTFIS table. 

.J , « « « i _ - - 


064B 1 X'08', Pointer to ♦-S, CC, 5| TIC to *-8 

J. «. _ « « -. J. -. -. - -. ^ _ 


T — — — - — ^ — — — — ^ — 

1333 1 X'06', glOAREAR, SII and | Read data to verify record just 

1 SKIP, Record Length + 10 | written. Information is not transferred 
1 1 to irain storage. 

L, X 



^ — '^ See notes 1 through 7 in Figures 106 and 107. 

Figure 77. Channel program builder for ADDRTR — CCW chain built to write record fcr 
randcra retrieve function. 
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J. ^ 

CCW Builder 
Control Code^ 



CCW Built 



Function 



7961 



X'69', SKEYARG, CC and SLI, 
Key Length 



Search key equal or high the 
rraster/cylinder index. Bey supplied by 
user in the DTFIS table. 



0C6B 



X»08', Pointer to *+16 , CC 
and Shlf 5 



TIC to *+16. 



D17B 



X'1A\ 2gpiienaine.D+8, CC, 
SLI and SKIP, 5 



Bead hcire address into work area for 

the current track index ncriral entry ccurt 

field in the DTFIS table. 



-4 



516C 



X'92«, ^gjpiienaire.E+S, CC 
and SLI, 10 



Read count (multiple track) intc vvcrk 
area fcr the current track index normal 
entry count field in the DTFIS table. 



7961 



046B 



X'69', &KEYRRG, CC and 
SLI, Key Length 



Search key equal or high the 
master/cylinder index. Key supplied by 
user in the DTFIS table. 



X'08', Pointer tc ♦-16, CC 
and SLI, 5 



TIC to *-16. 



150C 



X'06', 2gfiienaire.D+40, 00, 
10 



Read data (next 10~byte index level 
pointer) into work area for track index 
normal entry data field in DTFIS table. 



J. — 7 3ge notes 1 through 7 in Figures 106 and 107. 

Figure 78. Channel prcgrair builder for ADDRTR — CCW chain built to search naster 
cylinder index for add function. 



158 DOS/VS LIOCS Voluire 3 DAM and ISAM 



J. ^ 

CCW Builder 
Control Code^ 



h 



CCP^ Built 



Function 



8C4B 



X*31', 2gp-Lienai[tie.S+3^ CC, 5 



Search identifier equal the track index 
using the pointer (CCHHR) in the ccrnrcn 
seek/search area. 



066B 



X'08«, Pointer tc +-8, CC 
and SLI, 5 



TIC to *- 



106C 



X'06', 2gFilenaire.D, CC and 
SLI, 10 



Read data (COCR record) into the 
Cylinder overflow record (CCCR) area. 



516C 



X'92\ 2gFilenaire.D+8, CC 
and SLI, 10 



Read count (multiple track) intc wcrk 
area for the current track index normal 
entry count field in the DTFIS table. 



79ai 



X'69', gKEYAHG,CC, 
Key Length 



Search key equal or high the track index, 
Key supplied by user in the DTFIS table. 



046B 



X'08\ Pointer to *-16 , CC 
and SLI, 5 



TIC to ♦-16. 



156C 



X'06\ 2gFilename.D+40, CC 
and SLI^ 10 



Read data (next 10-byte pointer to 
prime data record) into vcrk area for 
track index normal entry data field in 
DTFIS table. 



526C 



X'92', 2gpi]_ename.D+16, CC 
and SLI, 10 



Read count (multiple track) into work 
area for current track index overflow 
entry count field in DTFIS table. 



IDOC 



X"06', 2gFilenaire.v^, 00, 10 



Read data (10-byte overflew entry) intc 
randcm/sequential retrieval work area. 



^ — "^ See notes 1 through 7 in Figures 106 and 107. 

Figure 79. Channel program builder for ADDRTR — CC^ chain built to search track index 
for add function. 



J. ^ ^ 

CCW Builder 
Control Code^ 



h 



-+- 



CCW Built 



Function 



'i 



8C4B 



X'31', 2gFiienaire.S+3, CC, 5| Search identifier equal for the last priire 

j data record address using pointer, CCHHR, 
I in common seek/search area in DTFIS table. 



-f 



066B 



X'08', Pointer to *-8, CC 
and SLI, 5 



1 TIC to *-8. 
I 



342C 



X'lO', 2&Filename.D+32 , 
SLI, 10 



j Krite count, key and data of EOF record 
I located in current overflew record count 
I field in DTFIS table. 



^ — "^ See notes 1 through 7 in Figures 106 and 1C7. 

Figure 80. Channel program builder for ADDRTR — CCW chain built to write new EOF 
record for add function. 
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^ ^ , 

CCW Builder | | 

Control Code^ | CCW Built j Function 

« J. J. _ « _ « 


- ^ — - — — — - — ^ — « « « . — — 

8C4B 1 X'31', ^&FilenaiDe.S+3, CC^ 5| Search identifier the prirre data area 
1 1 using pointer, CCHHR , in corrircn 
1 1 seek/search area in DTFIS tatle. 

« — — — «J «. « -. — X—-.— — - « ^— ^ — 


- - - - -.j — « « ^ ^« — « 

066B 1 X'08', Pointer tc +-8, CC | TIC to *-8. 
1 and SLI, 5 | 

_ ^ J ^ i. 


- _ — — - — .J ^ ^ — 

436C 1 X'12', 2&Filenaire.D+24, CC | Read count for current priire data 
1 and SLI, 10 | record. 

«. _ ..J i « 


7941 1 X'69', €KEYARG, CC, Key | Search key equal or high the prirre data 
1 Length | area. Key supplied ty user in DTFiS 
1 1 table. 
4 4 

0a6B 1 X'08', Pointer to *~16 , CC | IIC to *-16. 
1 and SLI, 5 | 
4 + . « 

1B02 1 X'06', Address of IOAREAL+8 | Read data (prime data fclcck) into 
1 +KEYLEN, 00, Blcck Size | IOAREAL+8+Key Length. 

L , ± 



i— .-7 ggg notes 1 through 7 in Figures 106 and 107. 

Figure 81. Channel prcgrarr builder for ADDRTR — CCW chain built to find prime data 
record for add function. 
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— _„ , ^ , p 

CCW Builder | | 

Control Code^ | CCW Built | Function 

_ «^ J. _ J. _ _ - 


- -. ^ - — ^ - — ^ — - _ — _ - 

8CilB 1 X'31'^ 2&Filename.S+3, CC, 5 | Search identifier equal the track index 
1 1 using pointer, CCHriR , in coirncn 
1 1 seek/search area in DTFIS tafcle. 
^ + ^„„ 

066B 1 X'08\ Pointer to *-8, CC |TIC to *-8. 
1 and SLI, 5 | 

„ _ - -i. , -. - - ± ^ . « - — . « _ - 


„ _ - -^ -. — — - - ^ — « - — . « _ - 

B06C 1 X'05«, ^&Filenaire.B, CC and |Rewrite COCR located in cylinder 

1 SLI, 10 Icverflcw ccntrol record work area in DTFIS 
1 |tatl6. 
4 ^ ^„ ^ ^4„ ^ ^„. 

E14B 1 X'B1\ 2gFilename,D+8, | Search identifier equal (multiple 

1 CC, 5 (track) for the pointer, CCHHR , in the 
1 jncrir.al entry count field. 
_] _« -- -. -.i- • . - « 


066B 1 X'08', Pointer to *-8, CC |TIC to *~8. 
1 and SLI, 5 | 

^„ ^-4^ ^- ^ 4—^ ^ — 

2A45 1 X'OD', Address cf | Rewrite track index noriral entry 
1 IOAREAL+8, CC, Key Length | located at IOAREAL+8. 
1+10 1 
[ _ - -. 4 - -. « _ _ 


E24B 1 X'Bl', 2gFiiename.D+16 , CC , 5 | Search identifier equal (rrultiple track) 
1 1 f or the pointer, CCHHR , in the cverflcw 
1 jentry ccunt field. 

_ « ^ -.- i - -. _« 4 • « « - - 


066B 1 X'08', Pointer to +-8, CC (TIC to +-8. 
1 and SLI, 5 | 
4. ^>„4„ « 

BDCC 1 X'05', ^gFilenaire.w, CC and (Rewrite cverflow entry located in 

1 DC, 10 1 randcir/sequential retrieval work area. 

, j - i- -• -^ -. - - 


824B 1 X'31', 2gFilenaire.C+16, (Search identifier equal fcr the 

1 CC, 5 (pointer, CCHHR, in the overflow entry 
1 [count field. 

1 - « - - J. « - _ -.-. 


^ — — « - — — - ^ « - _ -.-. — 

066B 1 X'08', Pointer to *-8, CC (TIC to *-8. 
( and SLI, 5 ( 
4^^ ^„> 4 ^^ ^^ 

1D3C 1 X'06', 2gpiienanie.w, SLI and (Read data to verify record just 

( SKIP, 10 [written. Information is not transferred 
1 (to main stcrage. 

^.J , . . X ^-. . ^ „ ^ 



±—7 See 
Figure 82. 



notes 1 through 7 in Figures 106 and 1C7, 



Channel program builder for ADDRTR 
entry for add functicn. 



CCW chain built to rewrite track index 
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r T' 

CCW Builder 
Control Ccde^ 



h 



CCW Built 



Function 



-f 



8C4B 



X'13', 2&Filenaire.S+3, CC, 5 



Search identifier equal for RO using 
pointer, CCHHR , in coiriron seek/search area 
in DIFIS table. 



H 



066B 



X'08* , Pointer to *- 
and SLI, 5 



8, CC 



TIC to *- 



B06C 



X'05\ 2&Filenaire.D, CC and 
SLI, 10 



Write data (updated COCR) frcir the 
cylinder overflow control record (COCR) 
area in the DTFIS table. 



E14B 



X'B1\ 2gpiienarpe.D+8, CC, 5 



Search identifier equal (irultiple track) 
the track index using the pointer, CCHriR, 
in the wcrk area for the current track 
index norrrial entry count field. 



066B 



X'Q8\ Pointer to *- 
and SLI, 5 



8, CC 



lie to *-8. 



BDCC 



X'05', ^g^Piienarre.w, CC and 
DC, 10 



i&vrite data (track index overflow entry) 
from the random/ sequential retrieval wcrk 
area. 



H 



814B 



X«31', 2g]piienaire.D+8, CC, 5 



Search identifier equal the track index 
using the pointer, CCHJ9R, in the work area 
for the current track index ncriral entry 
count field. 



H 



066B 



X*08', Pointer tc *-8, CC 
and SLI, 5 



TIC to *-8. 



1D3C 



X'06', ^gfiienaire.w, SLI 
and SKIP, 10 



Read data to verify record just 
written. Information is not transferred 
to main storage. 



^—'7 See notes 1 through 7 in Figures 106 and 107. 

Figure 83. Channel prcgran builder for ADDRTR — CCW chain built to write track index 
entry for add functicn. 



CCW Builder 
Control Code- 


1 

M 

1 


CCW Built 




JL_ 


Function 


8C4B 


1 

1 
1 
1 

1 


X'31', 2gFilename.S+3, 


CC, 


1 

5| 


Search identifier equal for RO using 
pointer, CCHHR, in cciriron seek/search area 
in BTFIS table. 


066B 


1 

1 

1 

1 


X'08' , Pointer tc ♦-8, 
and SLI, 5 


CC 


T 
J., 


TIC to *"8. 


B02C 


1 
1 
1 
1 


X'05', 2gjiienarre.B, SLI, 


10| 


Write data (updated COCR) frcrr the 
cylinder overflow control record area in 
the DTFIS table. 



L X ± . 



J 



See notes 1 through 7 in Figures 106 and 107, 



Figure 84. Channel prcgrair builder for ADDRTR — CCW chain built tc write COCR for add 
function. 
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CCW Builder 
Control Code^ 



CCW Built 



"T- 

I 
I 



Function 



't 



8C4B 



X'31', 2gFilenaine.S+3, CC, 5| Search identifier equal using pointer, 

I CCHHR, in cornmon seek/search area in DTFIS 
1 table. 



H 



066B 



X'08S Pointer to ♦-8, CC j TIC to *■ 
and SLl, 5 | 



AA07 I X'OE% Address of I0AREAL+8,j Read key and data of previously lev? 
00, Key Length + Record | overflow record into IOAREAL+8. 
Length + 10 | 

L , .^ X ^ ^J. , . ^- ^-.- . . ^ ^- 

^"'^ See notes 1 through 7 in Figures 106 and 107. 

Figure 85. Channel prcgrair fcuilder for ADDRTR — CCW chain built to read previous 
overflow record for add function. 



J. ^ ^ 

CCW Builder 
Control Code^ 



CCW Built 



Function 



H 



8C4B 



X*31', 2g^iieBaire.S+3, CC, 5 



Search identifier equal using pointer, 
CCHHR, in ccirjron seek/search area in DTFIS 
table. 



066B 



X'08«, Pointer to *~8, CC 
and SLI, 5 



lie to *-8. 



2A47 



X»OD», Address of ICAREAL+8 , 
CC, Key Length + Record 
Length +10 



Write key and data of previously low 
overflow record located at iOAREAL+8. 



8C4B 



X'31', 2gFilenaire.S+3, CC, 5 



Search identifier equal using pointer, 
CCHHR, in common seek/search area in DTFIS 
table. 



H 



066B 



X^OB\ Pointer tc *-8, CC 
and SLI, 5 



TIC to *- 



AA37 



X'OE', Address cf IOAREAL+8, 
SLI and SKIP, Key length + 
Record Length + 10 



Read key and data to verify reccrd just 
written. Information is not transferred 
to main storage. 



± — 7 See notes 1 through 7 in Figures 106 and 107. 

Figure 86. Channel prcgrair fcuilder for ADDRTR — - CCW chain built to write previous 
overflow record for add function. 
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CCW Builder 


1 










Control C 


ode^l 


CCVv Built 






Function 






1 






1 




8C4B 




1 
1 


X'31', 2gFilenaire.S+3, 


CC, 


51 

L _ 


Search identifier equal for last overflew 
record address using pointer, CCHHB, in 
coniinon seek/search area in DTFIS table. 


066B 




1 

1 


X'08', Pointer to *-8, 
and SLI, 5 


CC 


I 
1 


lie to *-8. 


37C9 




1 


X'1D\ Address of ICAREAL^ 


— -^— 


Virite ccunt, key and data of new 








CC and DC, Key Length 


+ 




overflow record located at lOAREAL. 






1 


Record Length +18 




L. 




8C4B 




1 
1 


X'31', 2gf^iienaire.S+3, 


CC, 


1 

5 1 

- X- 


Search identifier eqi;al for last overflow 
record using pointer, CCHHF, in coinmon 
seek/search area in DTFIS table- 


066B 




1 
1 


X'08', Pointer to *-8, 
and SLI, 5 


CC 


1 
1 


IIC to *-8. 


C739 




1 


X'lE*, Address of ICAREAL, 
SLI and SKIP, Key Length + 


1 


Read ccunt, key and data to verify 
record just written. Infcriraticn is 








Record Length +18 






net transferred to main storage. 



L 



JL , i . J 



See notes 1 through 7 in Figures 106 and 1C7. 



Figure 87. Channel program builder for ADDRTR — CCV> chain built to write new overflow 
record for add function. 



J. J 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



8C4B 



X'31', 2gpiiename.S+3, CC, 5 



Search identifier equal for present EOF 
record address miniis one using pointer, 
CCHHR, in coiriron seek/search area in DTFIS 
table. 



H 



066B 



X'08', Pointer to *-8, CC 
and SLI, 5 



IIC to *-8. 



37C8 



X'lD', Address cf lOAREAL, 
CC and DC, Key Length + 
Block Size + 8 



Pvrite count key and data cf new record 
tc be added located at lOAREAL. 



8C4B 



X'31', ^SFilenaitie.S+3, CC, 5 



Search identifier 

record address minus one using pointer, 

CCHHR, in common seek/search area in DTFIS 

table. 



066B 



X'08', Pointer to *-8, CC 
and SLI, 5 



TIC to *-8. 



C738 



X'lE', Address of ICAREAL, 
SLI and SKIP, Key Length + 
Block Size + 8 



Read ccunt, key and data to verify 
record just written. Information is 
net transferred to main storage. 



^ — '^ See notes 1 through 7 in Figures 106 and 107. 

Figure 88. Channel program builder for ADDRTR — CCW chain built to write over EOF 
record (blccked records) for add function. 
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CCW Builder 
Control Code^ 



CCW Built 



Function 



8C4B 



X'31', 2gi..iienanie.S+3^ CC\ 5 



Search identifier equal for present ECf 
record address minus one using pointer^ 
CCHHE, in coiriron seek/search area in DTFIS 
tafcle. 



066B 



X'08', Pointer to *-8, CC 
and SLI, 5 



•TIC to *- 



37C8 



X'lD', Address of ICAREAL, 
CC and DC, Key Length + 
Block Size + 8 



Write ccunty key and data of new record 
to be added, located at lOAREAL. 



H 



8C4B 



X'31', 2&Filena]ie.S+3, CC, 5 



Search identifier equal fcr present EOF 
record address minus one using pointer, 
CCHHH, in common seek/search area in DTFIS 
table. 



H 



066B 



X'08', Pointer tc *-8, CC 
and SLI, 5 



TIC to *~? 



C738 



X'lE', Address cf lOAREAL, 
SLI and SKIP, Key Length + 
Block Size + 8 



Read count, key and data tc 'verify 
record just written. Information is 
not transferred to main storage. 



1 — 7 See notes 1 through 7 in Figures 106 and 107. 

Figure 89. Channel prcgran builder for ADDRTR — CCW chain built tc write ever EOF 
record (unblocked records) for add function. 



^ ^ 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



H 



8C4B 



066B 



3 7 AC 



X'31', 2gi-iienaire.S+3, CC, 5 



X«08', Pointer to *- 
and SLI, 5 



8, CC 



X'lD', Address cf lOAREAL, 
DC and SLI, 10 



Search identifier equal fcr present EOF 
record address minus one using pointer, 
CCHHR, in common seek/search area in DTFIS 
table. 

TIC to *-8. 



Write count, key and data cf ECF record 
located at lOAREAL. 



^ — "^ See notes 1 through 7 in Figures 106 and 1C7. 

Figure 90. Channel program builder for ADDRTR — CCW chain built to write ECF record in 
independent overflew area for add function. 
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J. ^ 

CCW Builder 
Control Code^ 

h 



CCW Built 



Function 



8C4B 



X'31', 2gfiienaire.S+3^ CC, 5 



Search identifier equal the track index 
using the pointer (CCHHK) in the common 
seek/search area. 



066B 



X'08% Pointer to *-8, CC 
and SLI, 5 



lie to *-8. 



106C 



X'06% ^gg'iiename.D, CC and 
SLI, 10 



Bead data (COCR record) into the 
cylinder overflovw control record (COCR) 
area. 



H 



E14B 



X*B1', 2gpiienaire.D+8, CC, 5 



Search identifier equal (irultiple track) 
the track index for the last normal entry 
using information in the Viork area fcr the 
current track index normal entry count 
field. 



066B 



X'OB\ Pointer to *~8, CC 
and SLI, 5 



lie to *-8. 



154C 



X'06' 
10 



2fiFilename.D+4 0, CC, 



Read data (last track index normal 
entry) into work area for track index 
ncriral entry data field. 



X'92\ 2gFiienaire.D+16, CC 
and SLI, 10 



H 



526C 



Read count (multiple track) cf last 
track index overflow entry into work area 
for the current track index cverflcw entry 
count field. 



H 



IDOC 



X'06\ 2gFiienaire.w, 00, 10 



Read data (last track index overflew 
entry) intc random/sequential retrieval 
work area . 



^ — "^ See notes 1 through 7 in Figures 106 and 107. 

ecw chain built to read last track 



Figure 91. Channel prcgran builder for ADDRTR 
index entry for add function. 



J. ^ 

CCW Builder 
Control Code^ 

h 



CCW Built 



Function 



H 



8C4B 



X*31'^ 2gyiienaire.S+3, CC, 5 



Search identifier equal the overflew chain 
using the pointer (CCHHR) in the common 
seek/search area. 



066B 



X'08', Pointer to *-8^ CC 
and SLI, 5 



lie to *-8, 



AA07 



X'OE', Mdress of ICAREAL+8, 
00, Key Length + Record 
Length +10 



Bead key and data of overflow record 
into IOAREAL+8. 



See notes 1 through 7 in Figures 106 and 1C7. 



Figure 92 • Channel program builder for ADDRTR 
record for add function. 



CCW chain built tc read overflew 
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r '"■"*■"■""""""""""""'" "" 


-T- 




"*"*""*"" 


— T- 


""*~"~~~^'~~"*""**'~'*""^~~'*'~'**~~"*"~~~"^~~~~~"~"~~ """""" '•*"*"""'" 


|CCW Builder 












1 Control Code 


li 


CCW Built 






Function 


1 


1 






- X, 




1 


1 






T" 


"■ — — •— -«-•—. .i. « .. .. 


1 8C4B 




X'31*, 2gFiienaire,S+3, 


cc. 


5| 


Search identifier equal fcr last priire 
data reccrd using pointer, CCHHB, in 
comnion seek/search area in DIFIS table. 


L -.««. .^^ « 


1 






X. 




r — 


1 






— -f- 




1 066B 




X*OQ\ Pointer to *-8, 
and SLI, 5 


CC 




lie to *-8, 


L . ^-. 


1 






— X- 




r — — ~ 


1 






T 




1 1B02 




X'06\ Address of ICAREAL+ 
8+KEYLEN, 00, Block Size 




Fead block into ICAREAI + 8 + KEYLEN. 


L , 


-X- 






.-.X- 





^ — '' See notes 1 through 7 in Figures 106 and 107. 

Figure 93. Channel prcgrair builder for ADDRTR -- CCW chain built to read last prime 
data record for add function. 



J. -J., 

CCW Builder 
Control Code^ 



h 



CCW Built 



Function 



8C4B 



X'31', 2gFiienaire.S+3, CC, 5 



Search identifier equal fcr last priire 
data reccrd using pointer, CCHHR, in 
corninon seek/search area in DIFIS table. 



066B 



X'08', Pointer to *-8, CC 
and SLI, 5 



TIC to *- 



2 AC 6 



X'OD', Address of ICAREAL+8, 
CC and DC, Key Length + 
Block Size 



Vvrite key and data of prirre data block 
located at IOAREAL+8. 



8C4B 



X'31', 2gfiienaire.S+3, CC, 



Search identifier equal fcr last priire 
data record using pointer, CCHHR, in 
common seek/search area in DIFIS table. 



066B 



X'08', Pointer to *-8, CC 
and SLI, 5 



TIC to *-8. 



AA36 



X'OE', Address of ICAREAL+8, 
SLI and SKIP, Key Length + 
Block Size 



Read key and data to verify record just 
written. Information is net transferred 
to irain storage. 



^ — '^ See notes 1 through 7 in Figures 106 and 1C7. 

Figure 94. Channel program builder for ADDRTR — CCW chain built to write block of 
priire data records and verify for add function. 
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CCW Builder 






1 




Control Code 


11 

1 


CCW Built 


1 Function 
X-.-. - — — — 






1 




— ^ — -. — - 


1 


8C4B 


1 


X'31', 2gjfiienaire.S+3, CC, 


5 iSearch identifier equal for last track 
1 index entry using pointer, CCHHR, in 
1 common seek/search area in DIFIS table. 

_ j.« , 






I 




^-. — — — - — - — — — 


1 


066B 


1 


X'08\ Pointer to *-8, CC 
and SLI, 5 


IlIC to *-8. 

1 

. x - « 






I 




T 




2A45 


1 


X'OD% Address of ICAREAL+8 
CC, Key Length + 10 


, l^rite key and data of track index 
1 normal entry located at IOAREAL + 8. 

. X — — — —— - — — 






"T 




- ^ — — - 


■f 


E2 4B 


1 


X'B1\ 2gfiienaine.D+16, CC, 


5 1 Search identifier equal (multiple track) 
|the track index for the last overflow 
1 entry using the count for the current 
(track index overflow entry. 

- X— — — — ^ -. — 






' t • 


" — -" *~ 


- ^- -. - « ^ -. 


1 


066B 


1 


X*08', Pointer to *-8, CC 
and SLI, 5 


|1IC to *-8. 

1 

. X -. - - • - 






1 




T 




2845 


1 


X'OD', Address of WORKL, CC 
Key Length + 10 


, IVvrite key and data of track index 
(overflow entry located at WORKL. 

. X - ^ 






1 




- ^ — - — — 




824B 




X'31', 2gpiienanie.D+16, CC , 


5 (Search identifier equal the track index 
( for the last overflow entry using the 










(count for the current track index overflow ( 








( entry. 






1 




_ X - - • 






1 


~~ 


^— — — 




066B 


1 


X'08\ Pointer to *~8, CC 
and SLI, 5 


(lie to *-8. 

1 

» X - - -, . - - 






1 




^ — -. — —— -»-. «-.- - - 




?^835 




X"OE\ Address of wCRKL, 
SLI and SKIP, Key Length 
+ 10 


(Read key and data to verify record 
(just written. Information is net 
(transferred to main storage. 





^ — "^ See notes 1 through 7 in Figures 106 and 107. 

Figure 95. Channel program builder for ADDRIR — CCP^ chain built to write track index 
entry for add function. 



J. ^- 

CCW Builder ( 
Control Code^ [ 

1-- 



CCW Built 



Function 



8C4B ( X'31', 2gFiienamie.S+3, CC, 5 
I 



Search identifier equal the 
master/cylinder index using the pointer, 
CCHHR, in the common seek/search area in 
the DTFIS table. 



066B ( X'08', Pointer to *-8, CC 
( and SLI, 5 



lie to *~8, 



150C ( X'06*, 2gFiiename.D+40, 
( 00, 10 

X 



Read data (index entry) into work area 
for track index normal entry data field. 



i — 7 See notes 1 through 7 in Figures 106 and 107. 

Figure 96. Channel program builder for ADDRTR — CCW chain built to read index entry 
for add function. 
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CCW Build 


ler 










control Code 


L 1 


CCW Built 




Function 






1 




J.. 








1 




~T 




8CtlB 




1 


X • 31 • , 2gpiiename . S+3 , 


CO, 5 1 


Search identifier equal the 
iraster/cylinder index using pointer, 
CCHHH, in cornmon seek/search area in DTFIS 
tafcle. 






1 




T 




066B 




1 


X'08', Pointer to *-8, 
and SLI, 5 


CC 1 
_ 1 . 


TIC to *-8. 






1 




— -f 




2Aa5 






X'OD\ Address of ICAREAL+8,1 


Write key and data of iraster/cylinder 






1 


CC, Key Length + 10 


1 


index entry located at lOAREAL+8, 






1 




T 




8C4B 




1 


X • 31 • , 2gFiienanie . S+3 , 


CC, 5| 

1 
1 
1 

-1" 


Search identifier equal the 
iraster/cylinder index using E:cinter, 
CCHHR, in corrirron seek/search area in DTFIS 
tatle. 






1 




T 




hA35 






X'OE\ Address of ICAREAL+8,| 
SLI and SKIP, Key Length | 


Read key and data to verify record 
just written. No inforiration is 








+ 10 


1 


transferred to main storage. 



L , 1 ^X. 



^ , , ^ ^-J 



^ — "^ See notes 1 through 7 in Figures 10€ and 1C7. 

Figure 97. Channel program builder for ADDRTR — CCW chain built to v^rite index entry 
for add functicn. 



CCW Builder | | 

Control Code^l CCW Built | Function 

4 ^ 

8C4B 1 X'31«, 2gpiiename.S+3, CC, 5| Search identifier equal the track index 
1 1 using the pointer, CCHHR , in the ccirircn 
1 1 seek/search area in the DTFIS table. 
L - -i- -. • « « « - 


066B 1 X'08', Pointer tc *-8, CC | TIC to *-8. 
1 and SLI, 5 | 
1 ^«.| 

B06C 1 X'05', 2gjFiienaire.D, CC | Write data (COCr) froir the cylinder 

1 and SLI, 10 | cverflcw ccntrol record work area in DTFIS 
1 1 table. 
4 ^«> 4 

E24B I X'Bl', ^gFilenanie.D+16 , | Search identifier equal (irultiple 

1 CC, 5 1 track) the track index using the pcinter, 
1 1 CCHHR, in the work area for current track 
1 1 index overflow entry count field. 
4 4 ^. 

066B 1 X'08', Pointer to *-8, | TIC tc *-8. 
1 CC and SLI, 5 | 

4 ^ 4 « 

AA35 1 X'OE', Address of I0AREAL+8,| Read key and data to verify record 
1 SLI and SKIP, Key Length | just written. Inforiraticn is net 
1+10 1 transferred to main storage. 



L i JL 

^ — "^ See notes 1 through 7 in Figures 106 and 1C7. 



. J 



Figure 98. Channel program builder for ADDRTR — CCW chain built to write track index 
overflow entry fcr add function. 
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^ ^- 

jCCW Parameter^ I 



I 



CCl^ Bi:iilt 



Function 



0540 



|X'31S 2gj^iienaire.S+3, CC, 



Search identifier equal the priire data 
area using the pointer (CCHHB) in the 
cornrnon seek/search area in the DIFIS 
table. 



f 

1 

|X'08\ Pointer to 

-.^-»-., 


*-8, CC, 


i. 


TIC to *-8. 


IX'OSS** SlOi^REAS, 
1 Block Length® 

«. « . J. , ^_ 


CC,s 


T 

X, 


Write data (block) onto priire data 
area. 


— -. ,j — ^-. 

1 

|X'31', 26Filenaire, 
1 

_ _ 1^ 


S+3, CC, 


X. 


Search identifier equal tc verify write 
operation . 


1 

|X'08' , Pointer tc 

L_ 


*-8, CC, 


— f- 

- X- 


lie to *-8. 


iX'Oe*,'* glOAREAS, 
|Block Length® 

X 


SKIP, 


t 

X- 


Bead data to verify write operation. 



^ — "^ See notes 1 through 7 in Figures 106 and 107. 

Figure 99. Channel prcgrair builder for ADDRTR — CCW chain built tc write reccrds for 
sequential retrieve function. 



I CCW Parameter^ | 



CCW Built 



Function 



0601 



|X'31% 2gpiienartie.S+3, CC, 5 



Search identifier equal the track index 

area, using the pointer (CCHHR) in the 

ccirircn seek/search area in the DTFIS 
table. 



I 

|X'08\ Pointer tc ♦-8, CC, 



TIC to *-8. 



|X'06% ^SFilenaire.W, CC,s lo 



Read data (10-byte index level pcinter) 
into randcir/sequential retrieval area in 
DTFIS table. 



|X'31', 2gFiienaire.S+3, CC, 5 



Search identifier equal tc verify read 
operation . 



|X'08*, Pointer to *-8, CC, 



TIC to *-8. 



|X'06', SIOAREAS, SKIP, 
I Block Size 



Read data to verify read cperaticn. 



1 — 7 See notes 1 through 7 in Figures 106 and 1C7. 

Figure 100. Channel program builder for ADDRTR — CCW chain built tc search track index 
for sequential retrieve function. 
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^ -^- 

jCCW Parameter^ | 



CCW Built 



Function 



0600 |X'31', ^gj^iiejiaiiie. S+3, CC, 5| Search identifier equal the prime data 

I I area using the pointer (CCHHR) in the 

I I ccirircn seek/search area in the DTFIS 

I I tafcle. 



— ^-_ — .,. — ^ ^ — . — ^ ^ . — ^ 

1 

|X'08*, Pointer tc *-8, 


cc. 


0| 


lie to *-8. 


_ . _! « » - «. 




±, 




|X'06\'* glOAREAS, CC,5 




— T 


Bead data into lOAREAS. 


|Elock Length® 

_ ^„ _, L . .^ — - — - . 




1 _ 




1 




— f- 




|X'31' , 2gfilenaire.S+3, 


cc. 


51 


Search identifier equal tc verif;^ read 


1 

, « . ^ -._L — — > 




1, 


operation. 


— - — ^ -. -.^^ _ — «. — _ — 

1 




— f- 




i 

|X'08', Pointer to *-8, 

_ ^ X — . - 


cc. 


0! 

- X- 


TIC to *-8. 


-.— — -j- - — — - 

|X'06*, glOi^REAS, SKIP, 




t 


Read data to verif;y read cperaticn. 


1 Block Length® 

. ^ J. . . -. 




X. 





^ — "^ See notes 1 through 7 in figures 106 and 1C7. 

Figure 101. Channel program builder for ADDRTR — CCW chain built tc read record for 
sequential retrieve function. 



^ , ^ ^ , -J. , .« . 

1 CCW Builder*^ 1 j 
Label 1 Control Code | CCW Built | Function 

.„_^| ^4 ^-. + ^— ^.« 

1 7441 |X'69', SKEYARG, CC, Key | Search key equal or high the 
1 1 Length | master /cylinder index. Key supplied 
i 1 |by user in DTFIS table. 
f 4 ^^ 1-.^ ^ ^ 

1 0C40 |X'08', Pointer to ++16, CC, |TIC to *+16. 
1 1 Record length | 

i. «. -. - ± - - - i. ,. - 


^ « — ^ - — - -J. •,. — 

1 B04B |X»1A', 2&Filename.S + 3, CC, 5|Read home address intc ccirircn 
1 1 1 seek/search area in DTFIS table. 
4^ .+ ^ 4 . ^^ ^^ 

1 506B |X'92', 2SFilename.S + 3, CC |Read count Cinirltiple track) - 

I [and SLI, 5 | CCHHR - into common seek/search area 

II |in DTFIS table. 

± X - — _ L . — .^ — — - 


1 7441 |X'69', SKEYARG, CC, Key | Search key equal or high the 

I 1 Length | master /cylinder index. Key supplied 

II |by user. 

1.- 4 ^„| ^ « 

1 0440 |X'08% Pointer to *"-16, CC, [TIC to *~16. 
1 1 Record length j 

I 1 _ . X— « — - -. — 


— j, - — f - — -. — -|.- - - 

1 HOC |X'06', 2&Filename.W, 00, 10 [Read data (10~byte index level 
1 1 1 pointer) into random/sequential 
1 1 1 retrieval area in DTFIS table. The 
1 1 |data field is then moved from the 
1 1 1 random/sequential retrieval area tc 
1 1 |the common seek/search area for the 
1 1 |next search. 



L X — . , X 



. X . 



. J 



^"—■7 See notes 1 through 7 in Figures 106 and 107. 



Figure 102. Channel program builder for ADDRTR — CCW chain built by $$BSETL (1) to 
search MI for sequential retrieve function. 
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^ ^ , ^ . — 

1 CCW Euilder'^l | 
Label 1 Control Code | CCW Built | Function 
. « «i i_ _ _ i _ 


1 806C |X'31', 2&Filename.S+3, CC jSearch identifier equal the track 

1 [and SIX, 10 | index using the 10-byte pointer in the 

1 1 1 common seek/search area. 

J. « „ „4. _ _ 1 „ 


T T ~ ^ T 

1 0640 |X'08', Pointer *-8, CC, | IIC tc *-8. 
1 (Record Length | 
1 4 4 

1 126C |X'06', gJOAREAS, CC and |Read data (10-byte track index 

1 |SLI, 10 Ipointer) into lOAREAS, input/output 

I 1 |area for sequential retrieval supplied 

II |by user. 

« _j ^ _i _ « -. ^ ± « _ — _ 


- -.j — ^ _ -. « -. _ ^ 

1 506B |X*92', 2gfiiename.S+3, CC jRead count (multiple track) - 

I land SLI, 5 | CCHHR - into common seek/search area 

II 1 in DTE IS table. 

+„ ^ 1 

1 7441 |X'69', SKEYARG, CC, Key | Search key equal or high the 

+ 4 ^^ 

1 0240 |X*08', Pointer to *-24, | IIC tc *-24. 
1 |CC, Record Length | 

J. 1 ±^ , 


•. ^ — ^ — _ — -. ^_ — 

1 HOC |X'06', 2gFiienarae.W, 00, 10 |Read data (10-byte pcinter) into 
1 1 1 random/sequential retrieval area in 
1 1 lETEIS table. The data field is then 
1 1 [moved from the random/sequential 
1 1 1 retrieval area to the common 
1 1 1 seek/search area for the next search. 



L 



-JL J. 



X . 



J 



See notes 1 through 7 in Figures 106 and 107, 



Figure 103. Channel program builder for ADDRTR — CCW chain built by $$BSETL (1) to 
search TI for sequential retrieve function. 
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J ^ X ^ — ^— -T • ^- ^ 1 

I CCW Builder"^ | | | 
Label I Control Code | CCW Built | Funotion | 
1 + ^ ^„|„^ ^^ f 

STRI1| 804B |X'31'^ ^SFilename . S+3 ^ CC, 5 | Search identifier equal the prime data| 
I I I area using the pointer (CCHHR) in the | 

I I Icoirircn seek/search area in the DTFIS | 

I I Itafcle. I 

4„^ + ^„„„.„-^ ^„-« f 

I 066B |X'08', Pointer to *~8 ,CC | IIC to *-8. | 

I land SLI, 5 j | 

4„^ 4_„ . — — ^„4„„. — ^„ — ^. f 

I 416C |X'12% ^SFilename. W, CC | Read count into coiriricn seek/ | 

I land SLI, 10 | search area in the DIFIS table. | 

^ 4^- ^.„«4„- ^^ f 

I 6441 |X'29' or X'69% SKEYARG , | If KEY is specified in the | 

I or |CCt Key Length | SETL ir.acro and/or records are | 

I 7441 I j unblocked^ this CCW searches key equal | 

I I I the prime data area. If GKEY is | 

I I i specified in the SETI macro and/or | 

I I I records are blocked, this CCW searches | 

I I I key equal or high the prime data area | 

I I I for the starting record. | 

^^4^^ 4 ^«4 ^^ ^ f 

I 046B |X'08', Pointer to *-16, | IIC to *-16. | 

I |CC and SLI, 5 | | 

„4 ^.« 4 ^-4« ^ f 

I 1202 |X'06', glCi^HEAS, 00, |Read data (block) containing | 

[ [Block Size I starting record into lOAREAS. j 

. X ^ -L ^ . ^ . L , ^ . ^J 



^ — "^ See notes 1 through 7 in Figures 106 and 107. 

Figure 104. Channel prograir builder for ADDRTR ~ CCW chain built by $$BSETL (1) to 
find first record in prime data area for sequential retrie-ve function . 
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^ , — ^ , ^ , ^ 

JCCW Builder I I t 
Label! Control Code"' [ CCW Built | Function | 
+ ^ ^„4 4 . , 

STRI3| ^Q^B |X«31», ^&Filenarae.S+3 , CC , 5 [Search identifier equal the overflow | 
1 1 1 chain using the pointer CCCHHR) in the | 
1 1 jcoirircn seek/search area in the DTFIS | 
1 1 (tafcle. 1 

4 ^^4 4 1 

I 0640 |X»08\ Pointer to *-B, CC, JIIC to *-8. | 
1 [Record Length | | 

_ _4 ^4_ _ 4 _^_ , , , _j 


1 6441 |X'29' or X'69'^ &KEYAKG, | If KEY is specified in the SET! | 
1 or |CC, Key Length j macro, this CCW searches key ( 
1 7441 1 [equal the overflow chain for the | 

I 1 (starting record. If GKEY is specif ied | 

II (in the SETL macro, this CCW searches ( 
( ( Ikey equal or high the overflew chain | 
( 1 (for the starting record. | 

4 — 4>« 4„ ^ — 4 

1 112C (X'06% sgfiiename.W, SLI, ICJReads data (10~byte sequence link [ 

1 ( (retrieval area in DTFIS table. This ( 
1 1 jCCW is executed when the required ( 
1 1 (overflow record is net fcund in the ( 
( 1 (cverflcw chain. ( 

_ L ..J.-.-. . ^J. . -. 4 


I 1203 (X«06', &I02^REAS, 00, (Read data (sequence link field j 
I (Record length +10 (plus starting record) into ICAREAS. ( 
( 1 (This CCW is executed vvhen the watching ( 
( 1 (key is found in the overflow chain. ( 



X — .7 See notes 1 through 7 in Figures 106 and 1C7. 

Figure 105. Channel program builder for Z^DDRTR — CCW chain built by $$BSETI (1) tc 
find first reccrd in overflow chain for sequential retrieve function. 
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r " ^ ■ ' ^ ^ ■ 

Note_J,: 

The CCW builder control code references inforiraticn in the DTF DSECT section of the 
ISMOD asseiibly. 

The first character of the ccntrcl code references an operation code at IJHCSTRI. 

The second character of the ccntrcl code references a data area at either IJHCASAD for 
random retrieve function or IJHAHRAA for add functicn. 

The third character of the control code references the following information: 

£2St£2i-.£M£££t§E CCW Flag Field Meaning 

End of CCW Chain 

SLI (Suppress length Indicator) 

SLI and SKIP (Suppress data transfer) 

CC (Comir.and Chaining) 

CC and SLI 

CC, SLI, and SKIP 

SLI and EC (Data Chaining) 

CC and DC 

The fourth character of the control code references a byte count (length) field 
at IJHCRESZ. 

Note_2 : 

SFilename = DTF name supplied by user. 

SFilename.X = X is suffix supplied by DTFIS for unique DTF labels. 

No t e_ 3 : 

The CCW parameter is located in the ISMOD assembly. 

The first byte of the parameter is the command code. 

The second byte of the parameter contains flags with the exception of the chain to 
search the track index. In this case, the second byte is an indicator to the channel 
program builder that the CCW chain is to search the track index. 

Note 4 : If the file contains unblocked records, the ccirirand code is rrodified to Read 






X'OO' 


2 


X-20« 


3 


X'30' 


4 


X'40' 


6 


X'60' 


7 


X'70' 


h 


X'AO' 


C 


X'CO* 



Key and Data, or Write Key and Data. 

Note 5: If the verify opticn has not been specified, the command chaining bit is not 



set on. 

Note 6; If the file contains unblocked records, the byte count field contains the 
physical record length plus Key Length. 



Figure 106. Channel prograir builder for ADDRTR — notes 1-6, 
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Note_7: 

The CCW chains are built by the B-transients , $$BSE'rL and $$BSETL1. The CCW builder 
control code references infcriraticn in the $$ESETL and $$BSETL1 assemblies. 

The first character of the contrcl code references an operation cede at IJHROP. 

The second character cf the ccntrcl code references a data area at IJHARA. 

The third character of the contrcl code references the folloiA^ing infornraticn: 

contr ol Character CCW Flag Field Meaning 




2 
4 



X 


'00' 


X' 


20' 


X' 


ao' 


X 


60' 



End cf CCW chain 

SLI (Suppress Length Indicator) 

CC (Coirirand Chaining) 

CC and SLI 



The fourth character cf the ccntrcl cede references a byte count (length) field at 
RELNT . 



Figure 107. channel prograir builder for ADDRTB — note 7. 



ISAM INITI?^LIZATIQN AND TERMINATICiS 
PROCEDURES 



When files are opened for indexed 
sequential (DTFIS) and the file is on irore 
than one volume, all volumes must be 
opened, before processing cf the file 
begins. All labels are checked/written at 
the initial file open. 

Job control accepts label information 
previously supplied on VOL, DLAB, and XTENT 
statements (not valid for the 3330 family) 
as well as information on the simplified 
DLBL and EXTENT stateirents. Job control 
reads the DASD label information supplied 
on these stateirents, and stores the 
information on the SYSRES label information 
cylinder. The open monitor logical 
transient, $$B0PEN2, reads the DASB label 
information from SYSRES into the label save 
area in main storage for use by the ISAM 
open/close logical transients. See D0S/V5 
LI CCS Volume 1, SY33-8 559, fcr the format 
of the SYSRES DASD label information. 

The extents in the SYSRES DASD label 
information record are checked for overlap 
on each other. If overlap exists, a 
message is issued, and the job is canceled. 
Checks are made to determine if all the 
correct packs are mounted, if serial 



numbers match and 
overlap the VTOC. 
master index (if s 
index are checked 
contiguous, and th 
routine checks the 
continuity, and a 
last prime data ex 
extents are checke 
reference . 



if any extent limits 
The extents for the 
pecified) and cylinder 
to determine if they are 
e limits are saved. The 

prime data extents for 
check is made for the 
tent. The overflow 
d and saved for future 



Fcr output, file labels are created and 
written in their appropriate locations and 
sequence, and the extent information is 
inserted in the labels. The fcrmat-2 label 
fcr the file is read, and the dTF table is 
updated for each function. A DSKXTN table 
is created, which is located at the end of 
the DTF table. It contains the logical 
unit and cell number for each extent. This 
table is used by logical IOCS tc reference 
the extent information in the DTF table. 

When the file is closed, the fcrmat-1 
and format-2 labels are updated frcm the 
DTF tables. Then the open switch is set 
off, and control returns to the clcse 
monitor or to the user. 

Fcr a mere detailed description of 
DOS/VS label handling see DOS/VS_LIOCS 
Volume 1, SY33-8559. 
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Chart 02. ISAM Open 



C 



From Open 
Monitor, $$BOPEN 



J 



$$BOiS01 



1. Check DASD label 
information for 
extent overlap. 



$$BOIS02 



1. Check DASD 
assignments and 
extent overlap 
on VTOC. 

2. RETRVE file 
type? 



o 



YES 



** $$BOIS03 



NO 



1. Read VOL 1 and 
Format 4 labels. 

2. Save VTOC 
limits. 

3. End of extents? 

YES 



Tno 

4. Overflow type 
extent^ 

Xn( 



NO 

5. Point to 
next extent. 



$$BOSD08* 



1. Check for 
duplicate file 
labels m VTOC. 



* $$BOIS04 



$$BOSD03* 



1. Check incoming 
extents against 
all existing files 
in the VTOC for 
overlap. 



* Documented in 
DOS/VS LIOCS 
Volume 2, SY33-8560. 



c 



1. Check extents for 
different logical 
units assigned 
to same physical 
unit. 



$$BOIS05 



1 . Save extent 
limits. 

2. Build DSKXTNT 
table. 



$$BOIS06 



1. Check labels for 
input files. 

2. Create labels for 
output files. 



$$BOIS07 



1. Update DTF 
table with 
information from 
Format 2 label. 

2. File protect? 
YES 



o 



NO 



3. Load type 
file? 



o 



NO 



YES 



■^ $$BOFLPT 



1. Put extent 
information in 
JIBstofile 
protect DASD file. 



$$BOisog 



1. Maintain the 
integrity of the 
independent 
overflow area. 

2. More files to 
be opened? 



<> 



NO 



YES 



$$BOIS08 



1. Initialize for 
the prime data 
in core add 
function. 



■c 



SVC 11 

to Problem 

Program 



J 



SVC 2 

FETCH 

$$BOPEN 



J 



Indexed sequential Access Method 177 



ISAM OPEN/CLOSE L03IC CHART 02 



For input and output files i the initial 
steps to open a file are the same. The 
SYSRES DASD label inforiraticn is set up^ 
and the extents are checked for overlap on 
each other and the VTOC. Then, a check is 
made to determine if all the packs for the 
file have been mounted by checking all 
volume labels against the SYSRES DASD label 
information in the label save area in train 
storage • 

If the file is output, the volume and 
format~4 labels are read; the VTCC limits 
are saved; and the routine is initialized 
to search the VTOC. If the extent limits 
need to be checked against the VTOC limits, 
the sequential disk open routine, $$B0SD08 , 
is called in to do the checking. From this 
point, the input/output logic is similar. 
The extents are checked against the SYSRES 
DASD label information, the extent limit 
groups are saved, and the DSKXTN (logical 
unit and cell number) table at the end of 
the DTF table is built. The labels are 
checked, and the extent limits are inserted 
for input files. For cutput, the labels 
are created and written. The DTF tables 
are updated, and the routine returns 
control to the problem program or to the 
open monitor. 

For input and output files the steps to 
close a file are the same. The format-1 
and format~2 labels are updated and written 
back in the VTOC. Control returns to the 
problem program cr to the clcse monitor. 



$$BCISQ1: ISAM Open, Phase 1 Charts LA~LB 



writer, $$B0MSG1, to write the message on 
SYSLOG. If it is an ADD cr ADDRTR type 
file, this phase compi:tes the number of 
tracks of the independent overflow extent 
limits on either the 2311, 2321, 2314, or 
2319 devices and stores the result. It 
then fetches $$BOIS02. 



$$B0ISC2; ISAM Open , Phase 2 Charts LC -LD 



Objective; To determine if all the ccrrect 
disk^packs are mounted, if a DASE has been 
assigned to the file, if the fcrmat-S label 
indicator is en, and if the extent limits 
overlap the VTOC. 

Entry: Frcm $$BOIS01. 

Exits ! Tc $$BOIS03, or to $$BCMSG1 (if an 
error condition occurs). 

Method: This phase checks to determine if 
a DASD has been assigned to the file. If a 
DASD has not been assigned, message 42831 
is initialized and $$BCMSG1 is fetched to 
write the message on SYSLOG. If a DASD has 
been assigned, the VCIl label is read. If 
no record is found, message 42061 is 
initialized and $$B0MSG1 is fetched to 
write the message on SYSLOG. 

A check for correct pack ncunted is then 
made and the format- 4 label is read and 
checked. This phase determines if the 
extent limits overlap the VTCC. If they 
do, message 42411 is initialized and the 
message writer, $$B0KSG1, is fetched. If 
they do not overlap, a check fcr mere 
extents is made. When all extents have 
teen checked, this phase fetches $$BOIS03. 



Objective; Tc check the DASD label 
information to determine if the extents 
overlap. 

Entry: From the open monitor, $$BCPEN. 

Exit: To $$EOIS02 or to $$E0MSG1 (if an 
error condition occurs). 



$$BQISC3; 



ISAM Ope n, Phas e 3 Charts LE-LF 



Chjective: To read VOLl and format- 4 
labels as initialization for the VTOC check 
phase, $$BCSD0 8, and to set up the CCW 
chain and address of the format-4 labels. 



Method: This phase determines the address 
of the first and last extent in the SYSRES 
DASD label information in the label save 
area. It determines if this is a creation 
of a file, and turns on an indicator if it 
is. The phase then clears the reserved 
field in the SYSRES DASD label information 
record. 

This phase checks the extent limits for 
an overlap condition. If an overlay 
condition occurs, the routine initializes 
message 42401 and fetches the message 



Entry; Frcm $$BOIS02 or $$BCSDC3. 

Exit: To $$BOIS04, $$B0SD08 or $$BOMSGl 
(if no record is found during read). 



Method: This phase makes a series of tests 
to determine if entry was from $$B0SD03, if 
this is an add type function, if this is 
the last extent, or if this is an overflow 
extent. If an overflow extent is 
indicated, this phase reads the VOLl and 
format-4 labels, saves the VTOC limits, and 
fetches $$E0SD08 to check the VTCC. If 
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there is no overflow extent found, this 
phase fetches §$BOIS04 to continue 
processing extents. 



$$BCISQ4; ISAM Open, Phase 4 Chart LG 



Objective: To check extents for different 
logical units assigned to the same physical 
units. 

SSir;^: Froir $$EOIS03. 

Exit: To $$BOIS05. 

Method: This B-transient gets the logical 
and physical unit assignments for the 
index, priire data and independent overflow 
type extents. It checks the extents for 
different logical units assigned to the 
same physical unit. If this condition 
exists, the logical unit assignment of the 
extent in the SYSRES DASD label information 
located in the label save area is modified 
to correct this condition. This process 
continues until all extents have been 
checked. 



message is initialized and the message 
viriter is fetched. 

If an overflovj type extent is indicated, 
this phase saves the extent limits and 
builds an entry in the DSKXTN table. The 
DSKXTN table is located at the end of the 
DTFIS table and is used by ISAM to 
reference the extent information in the DTF 
tables. It contains the logical unit and 
cell number for each extent. 

If a prime data type extent is 
indicated, it checks the first prime data 
extent upper limit to determine if more 
prime data extents are allowed. If more 
prime data extents are allowed, the phase 
checks the remaining prime data extent 
limits fcr continuity, and checks for the 
last prime data extent. 

After all extents have been processed, 
this phase checks the index extent seguence 
numbers and fetches $$BCIS06 for execution. 



$$£0ISQ6 ; 



ISAM Open, Phase 6 Charts LL~LP 




$$BQISQ5; ISAM Open, Ph ase 5 Charts LH~LK 



Objective; To check the extents for valid 
ISAM format, to save extent limits and to 
build the DSKXTN table containing the 
logical unit and cell number of each 
extent. 

From $$BOIS04. 

To $$BOIS06 or to $$BCMSG1 when an 
error condition occurs. 



Method: This phase first determines the 
extent type (overflow, index, or prime 
data) , checks the type for validity, and 
branches to the appropriate routine to 
process the extent. If the extent type is 
not for an independent overflow, index, or 
prime data area, an error message is 
initialized, and the message writer, 
$$BOMSGl, is fetched to write the message 
on SY3L0G. 

If an index type extent is indicated, 
this phase determines if a master index has 
been specified along with a cylinder index. 
If there is a master index and a cylinder 
index, they must be assigned to the sama 
physical unit and they must be contiguous. 
If both conditions are satisfied, the 
limits for the master and cylinder indexes 
are saved and the next extent is processed. 
If either condition is not met, an error 



Objective; For input files, checks 
format-1 labels and stores extent 
information in them. For output files, 
creates format-1 and format- 2 labels and 
stores extent information in fcrmat-1 
labels . 

Entry; From $$BOIS05 or $$BCDSMW. 

Exit; To $$BOIS07, $$BOESMW , or $$BOMSGl 
if an errcr condition occurs. 



Methcd. If this is an input file, this 
phase sets up the 44-byte file name from 
the SYSRES DASD label infcrmaticn as the 
key, and reads the matching format-1 label 
fromi the VTOC. It checks the fcrmat-1 
label, mcves the extent limits intc the 
label, writes the updated format-1 label in 
the VTOC, and increases the volume sequence 
number by cne. It continues processing 
until there are no m.ore extents. 

If this is an output file, this phase 
creates a form,at-l label and then a 
format-2 label. For a description of the 
format-1 label and the format- 2 label see 
DCS/VS LIOCS Volume 1 , SY33-8559. 

After creating the format-1 and format-2 
labels, the phase increases the volume 
sequence number and continues processing 
until there are no more extents. 

If this is a mixed input/cutput file, 
the phase updates the format-1 label and 
writes it back in the VTOC. 
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For an extend file, the fcrirat 1 label 
is checked for the data security indicator. 
If it is on, and the data security message 
has not been issued, it is issued via a 
fetch of $$EODSMW. 

For a create file, the format 1 label is 
built mth the data security indicator on 
if data security has been requested. 



$$BQISQ7; 



ISAM Openr Phase 7 Charts MA-MC 



Objective; To read the format~l and 
forraat-2 labels for this file, and update 
the DIFIS table for each function. 



Entry; From $$BOIS07 or $$BOFLP'I. 



Exit; To $$BOIS09 or to $$B0MSG1 if an 
error ccnditicn occurs. 



wethod: This phase determines if the 
prime-data-in-core add function is 
specified in the DTFIS table. If it is 
specified, this phase increases the size of 
lOAREAL (o\}tput area used for leading cr 
adding records to a file) to permit the 
writing and reading of mere than one 
physical record on or frcir a DASE (Direct 
Access Storage Device) per EXCP (Execute 
Channel Program) . 



Entry; From $$BOIS06 or $$BCRTV2. 

Exit; To $$BOIS08, $$BOIS09 (for load-type 
file), $$BOFLPT (for file protection), or 
to $$B0MSG1 if an error condition occurs. 



Method ; For a load- create 
phase moves the prime data 
the extent save area to the 
checks for file protection. 
DASD file protection, this 
$$BOFLPT. If file protect 
specified, this phase fetch 
write an EOF record at the 
independent overflow area ( 



type file, this 
upper limdt from 
DTF table and 
If there is 
phase fetches 
is not 

es $$BCIS09 to 
beginning of the 
if specified). 



For all other type (load-extension, add, 
retrieve, and add-retrieve) files, this 
phase reads the VOL, fcrmat-1 and format- 2 
labels, updates the DTF table for each 
function and moves extent inforiration from 
the save area to the DTF table. It then 
checks for file protection, and load-type 
file. If there is file protection, 
$$BOFLPT is fetched. If there is no file 
protection and it is a load-type file, 
$$BOIS09 is fetched to write an EOF record 
at the beginning of the independent 
overflow area (if specified). If there is 
no file protection and it is not a 
load-type file, $$BOIS08 is fetched for 
execution. For add and add-retrieve files 
which are already open, a check is made for 
the track hold specification. If H0LD=YES 
is specified, $$BOMSGl is fetched to print 
out error message 691 FILE IS OPEN FOR ADD. 



The phase first calculates the maximum 
number of prime data records that can be 
read into or written from main storage at 
cne time. It then calculates the starting 
address cf the CCW build area in lOAREAL 
and aligns this address en a dcuble-wcrd 
boundary. It builds the following CCW's to 
write and read more than cne physical 
record per EXCP. 



1. For a write; 



CCVi X'31', Pointer 
to lOAREAL, 
Command 
Chaining, 5 



CCVw X'08', Pointer 
to *-8 



CCVv X'08', Pointer 
to Read CCW's 
(see 2) 



D. CCVv 



X'OD', Pointer 
to Key Field 
of lOAREAL, 
Command 
Chaining, Ke^ 
length + Block 
Size 



Search identifier 
equal the prime 
data records in 
lOAREAL . 



H 



TIC to *-8, 



TIC tc address 
of read CCW's 
in DTF table. 



Write key and 
data of prime 
data reccrd in 
ICAREAL. 



$$B0ISQ8; ISAM Open, Phase 8 Charts KD-ME 



Objective; To build CCW's in the high 
order bytes of lOAREAL, and to update the 
prime- data in- core add section of the DTF 
table. 
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For a read: 



.^^ — ^ 



A. 


ccw 


X'31' , Pointer 


Search identifier 






to Seek/Search 


equal the priire 






Address Area, 


data area using 






Command 


the pointer. 






Chaining, 5 

_j 


CCHfiR, in the 
seek/ search 
i address area in 
the DTF table. 

L « 






—I 


r 


B. 


ccw 


X»08\ Pointer 
to *'8 


TIC to *-8. 
1 

L _ 








r — 


C. 


ccw 


X'lE' , Pointer 


Read count. 






to lOAREAL, 


key, and data of 






Coiritiand 


1 priire data record 






Chaining, 


into ICAREAL. 






8 + Key 








Length + 








Block Size 


1 



— ^ , ^ ± ^ 



^_J 



This phase continues to tuild the CCW's 
for a read or a write until the count for 
the maxiniuir. nuirber of prime records in main 
storage reaches 0. This count is reduced 
by 1 each tiire the CCW's for a priire data 
record are built. 

The CCW's built for a read or a write 
are preceded by a long seek CCW and TIC to 
either 1 or 2 depending on the operation to 
be performed. when the last read CCW is 
built, its flag field is set to 0, 
indicating the end of the CCW chain, and 
$$BOIS09 is fetched to search the 
independent overflow area (if specified) 
for the EOF record. 



area specified, a test for a load-create 
type file is made. If it is a lead-create 
type file, a test for ir.ore files to be 
opened is irade. If more files are to be 
opened, $$BOPEN is fetched fcr execution. 
If nc itore files are to be opened, control 
is reti3rned to the probleir prcgrair. If it 
is not a lead-create type file, $$EOIS10 is 
fetched for execution. 

If an independent overflow area is 
specified, a test for file type is made. 
If it is a retrieve or load-extend type 
file, control is reti:rned to either the TES 
processor {$$EOPEN) if more files are to be 
opened or to the probleir prograir. 

If it is a load-create type file, an EOF 
record is written at the beginning of the 
independent overflow area and a test is 
made to determine if a new independent 
overflew extent has been specified. If it 
has not been specified, the nunber of 
tracks in the independent overflow area is 
calculated and stored in the DTF table and 
control is returned to either the TeS 
processor ($$EOPEN) if more files are to be 
opened or to the probleir prograir. If a new 
overflew extent has teen specified, control 
is retijrned to either the open ireniter or 
to the prcblem program. 

If it is an add-type file, the 
independent overflow area is searched for 
the EOF record, when the EOF record is 
found, the number of tracks in the 
independent overflow area is calculated and 
stored in the DTF table, the last priire 
updated, and $$BOIS10 is fetched to 
validate the last prime data record 
address. 



^$BCIS092. ISAM open, Ii»beqrity Phase 1 

Charts MF-MH 



$$EQIS1Q: ISAM 0} 

Charts MJ-MK 



:en. Integrity Phase 2 



Objective : 

• For a load-type file, to write an EOF 
record at the beginning of the 
independent overflow area. 

• For an add-type file, to search the 
independent overflow area for the EOF 
record. 

Entry; Froir $$BOIS07 or $$EOIS08. 

Exit: To the TES processor, $$BOPEN, to 
$$BOIS10, or to the prcbleir prograir. 

Method: This B- transient first determines 
if the file has an independent overflow 
area. If there is no independent overflow 



Object ive; To validate the last prime data 
record address by scanning the prime data 
area for the end-of-file (EOF) record. 



Entr y; Frem $$BOIS0 9. 



Exit; To the TES processor, $$BOPEN, or to 
the probleir program. 

Method; This routine searches for the EOF 
record in the prim.e data area. When the 
EOF record is read, the last prime data 
record address is saved in the DTF table 
and control is returned to either the TES 
processor ($$EOPEN) if mere files are to be 
opened or to the problem prograir. 
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^^BCISCAi ISAM Close Charts ga-HB 



Objective; To close the file by updating 
the format- 1 and format- 2 labels ^ith 
information froir. the DTFIS table. 

Entry; From the close monitor, $$ECLOSE. 

Exit; To the problem program or to the 
close monitor, $$BCLOSE, if more files are 
to be closed. 



Method; If a load-create type file is to 
be closed, this phase updates the foritiat-1 
label with information from the DTEIS 
table, and writes the updated label back in 
the VTOC. It then updates the fcrirat-2 
label with information from the DTFIS 
table, and writes the updated fcrrrat-2 
label back in the VTOC. 



processing continues in-line. Next, this 
phase ccirputes the length of the incciring 
DMD label information and gets the address 
of the first extent. The phase sets the 
first byte of the cell nvuber in each 
extent tc 0. The first-time switch is set 
on, and a check is made for the expiration 
date in the DASD label information. If the 
expiration date is not present, this 
routine gets the retention pericd for the 
DASD labels and finds the expiraticn date. 

The VOLl label is read and a test is 
made to determine whether the extent serial 
number was omitted in the extent card. If 
not, a check is made to determine if the 
correct pack was mounted by ccrrparing the 
volume serial number with the extent serial 
number. If equal, the correct pack is 
mounted. If not equal, the wrong pack is 
mounted, and a message is issued tc that 
effect. 



For all other type files, this phase 
updates only the format-2 label with 
information from the DTFIS table. It then 
writes the updated format-2 la^el tack in 
the VTOC. If more files are to be closed, 
the close m^cnitcr, $$BCL0SE, is fetched. 
If no more files are to be closed, control 
returns to the problem program. 



^^BCHTVli^ ISi^M RETRVE _ Open ^ ghas e 1 

Charts NC-NE 



Cbjectiye; To open the RETRVE part of the 
DTFIS table by reading the format- 1 label 
to get information needed for the table. 
To ensure that the correct pack is mounted. 

Entry; 

• From the open monitor, $$BCPEN2. 

• From the data security message writer, 
$$BODSM^. 

• From $$B0RTV2 if a new extent en a 
different logical unit has been found. 

Exits; To $$B0RTV2 upon normal completion. 
To $$BCFLPT for DASD file protection. To 
$$B0MSG1, if messages are tc be written on 
SYSLGG. To $$BODSMW to write the data 
security message. 



Method; This phase first inserts the 
address of the CCW chain in the CCB, and 
relocates the CCW data addresses within the 
transient area. A test is then made to 
determine if entry was made to this phase 
fromi a phase other then $$E0PEN2. If so, 
control branches to a predetermined 
location within this phase. If net. 



If the extent serial number was omitted 
and this is the first time through the 
routine, the serial number of the first 
volume is inserted in the DAoD label 
infcrmaticn in the label save area. 



The format-4 label is rea 
limits are saved. The forma 
then read and checked for th 
indicator. If the file has 
opened, $$E0DSMW is fetched 
data security message. Afte 
the number of extents in for 
getting the address of the f 
this phase fetches $$B0RTV2 



d and the VTOC 
t-1 label is 
€ data security 
net been 
to print the 
r determining 
nat-1 label and 
irst extent, 
for execution. 



$$BQRTV2; ISAM RETRVE Open, Phase 2 
Charts NF-NG 



Objectives ; To open the RETRVE part of the 
DTFIS table by reading the fcrmat-2 label 
to get information needed for the table. 
To insert entries in the DSKXTN table 
located at the end of the DTF table. 

Entry; From $$B0RTV1. 

Exits; To $$BOIS07 upon ncrnal ccmpleticn. 
Tc $$B0FLPT for DASD file prctecticn. Tc 
$$E0MSG1 if messages are to he written on 
sySLOG. To $$B0RTV1 if a new extent en a 
different logical unit is found. 

Met hod ; This phase first inserts the 
address of the CCW chain in the CCB, and 
relocates the CCW data addresses within the 
transient area. A test is then made to 
determine if this phase was entered frcm a 
phase other than $$B0RTV1. If it was, 
control branches to a predetermined 
location within this phase. If it was not, 
processing continues in-line. 
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This phase then gets the address of the 
first extent in the format-1 label and 
tests to deteririne if an extent is present. 
If an extent is not present, control 
branches to read the format-2 label. If an 
extent is present, a test is made to 
determine if the first prime data extent 
switch is on. If it is on, an entry is 
made in the DSKXTN table. If it is not on, 
a test is irade to deteririne if the extent 
is a prime data extent, if it is a prime 
data extent, the extent sequence number and 
the extent lower limit are saved and the 
first prime data extent switch is set. 

The routine then makes an entry in the 
DSKXTN table for each extent. Only three 
extents are possible per volume for an 
indexed sequential file: the 
roaster/ cylinder index area, the prime data 
area, and the independent overflew area. 
Each entry in the DSKXTN table is four 
bytes, containing two bytes cf the logical 
unit and two bytes of the cell number. The 
location of the entry within the table is 
determined by multiplying the extent 
sequence number by 4, and adding the result 
to the starting address of the table minus 
i*. If the BSKXTN table is full, an error 
condition exists and a message is issued to 
that effect. 

After the DSKXTN entry is made, a test 
is made to determine if the file-protect 
option has been specified. If it has, the 
routine sets up the extent for file protect 
and fetches $$BOJLPT. 

If the file-protect option has not been 
specified or if this phase was entered from 



$$EOFLPr, this routine gets the address cf 
the next extent in the forirat-1 label, and 
checks to determine if all extents in the 
label have been processed. If they have 
not been processed, control returns to 
process the next extent. 



When all extents have been processed, 
the first time through B-transient switch 
is checked. If on, the switch is set off 
and a test is made to deteririne whether 
this is the first volume. If it is not the 
first volume, an error message is issued. 
If it is the first volume, a test is made 
tc determine if the format-2 pointer is 
present in the format-1 label. If it is 
net present, an error message is issued. 
If the format-2 pointer is present, the 
fcrmat-2 label is read, and the master 
index and cylinder index lower limits frcn 
the label are saved. 



A check is made to determine if all the 
extents have been processed. If they have 
not teen processed, this routine scans the 
SYSRES CASE label information in the label 
save area to find the next extent en a 
different logical unit, cr the end of the 
extents. If a new extent on a different 
logical unit is found, control returns to 
$$B0RTV1 to read the volume label and 
process the extents for that logical unit. 



When all extents have been processed, 
this phase sets the file-protect option 
indicator off (if it is on) and exits to 
phase $$EOIS07. 
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EXFLANATigN_CF_FLgWCHART_SYMEOLS 
DESCRIPTION 



EXAMPLE 



4e4c4c«4cA 1**4(««4(4(*4>« 



PROCESS 
♦ B2 



*m**m*****^f*****iif 



*«:4c«4(B !*♦♦«♦♦♦♦♦♦ 

♦ LABEL 1 BW* 

* ♦ 

♦ SUBPOUTINE ♦ 

* ♦ 



* ♦ 

♦ PREPARATION * 

* * 



♦ * ♦ ♦ 

* *PREDEFINED ♦ ♦ 

* * PROCESS ♦ ♦ 

♦ ♦ ♦ * 



4r*4cE !***♦♦♦♦*♦*♦ ♦ 

INPUT/OUTPUT 



A group of program instructions that perform 
a processing function of the program. The 
label, if any, is shown above the block. 



♦B2 
IF ANY ADDITIONAL EXPLANATION IS 
REQUIRED, ITS LOCATION ON THE CHART 
IS IDENTIFIED BY AN ASTERISK AND 
THE BLOCK IJ>. 



Description or title of a routine that is detail- 
ed on another flowchart. The starting label 
of the routine and the flowchart ID appear 
above the stripe. 



An instruction, or group of instructions, that 
changes portion of a routine or initializes a 
routine for a given condition. 



A group of operations not detailed in the 
flowcharts in this manual, such as user rou- 
tines. 



Any function of an input/output device or 
program, usually branching to an I/O routine 
to perform the function stated in the block. 



^m*** * REFERENCES 

* ♦ TO BJB4! 

* ♦♦ BBD4, 8CB2 
♦ * BLJI 



START X 



READ 
A RECORD 



«4i«*#4'*4(>|c4c4(itc«*4>«:4E 



X 




C4 *. 


4t*«4t)4cC5 ♦♦♦♦♦♦♦«♦♦ 


.* *. 


♦ERPTN BG* 


* *. YES 


♦_♦-*-*_*-*_♦_♦_♦ 


ERROR •* 


..X* * 


*. .* 


♦ ERROR ROUTINE ♦ 


*, ,* 


♦ * 


*. •* 


«4i4i«««*3|i34(4'4t4it#4'>|r« 


* NO 


• 



X 



«4c**«D4^*^**^'*'^** 



PROCESS 
THE RECORD 



4t « 4t4i 4i 4< 4c 4c4c 4>4t ♦# « 4c 4t * 



USEX15 



•♦ USER *. YES 

OPTION .*.•.. 
♦ . .* 

♦ . .* 

*• .* 
* NO 



4i4(4i4c4cE 5 ♦♦♦♦♦**♦♦♦ 



. X* USER ROUTINE* * 



4t4<**«4c4:4i«*4i ♦*♦♦♦♦ 



.*. 
Fl *. 



• * 
.* *. 

♦. DECISION .♦ 

*. .* 

♦ . .* 

*. .* 



4c 4c 

* TERMINAL * 

4c 4c 

4c 4t 4c 4c4c 4c 4c4c 4c 4c 4'4c 4c 4c 41 



* C2 ♦ 



Points where the program branches to alter- 
nate processing, based upon variable con- 
ditions such as program switch settings and 
test results. 



The beginning or end of a program or routine. 



On-page connector. An entry from or an exit 
to another function on the same flowchart. 
The location in the connector identifies the 
block to which entry on a chart is made. 



.X, 
X 



F4 4c, 

,4c 4c , 

.4c RECORD 
I'. ALTERED 

4c. 

4c, ,4c 

*. •* 

4c NO 

4C4C4C4C 

* 4c 

* G4 4c. X. 



4c4cF54c4c4c4c4c4c4c 
4c 4c 

* MODIFY 

, X* PPT NT 

♦TNSTRUCTIONS 

4c 4c 

4c4c4c4c4c4c4c4c4>4c4< 



♦ 4c 4c 4c 
RtCPRO 



.4CALL RECORDS*. NO 
*. PROCESSED .*... 



X 

4c 4c 4t 4c 4c 

*RL * 

* Al* 

4c 4c 



4c4c4c4cH4********* 
4c 4c 

* END-OF-JOB * 

«c 4c 

4c4c4c4c4c4c4c4c4c«4c4c4c4c4c 



4c 4c 4c 4c 4c 

♦ BD * 

* D4* 



Off-page connector. An entry from, or exit 
to, a given point on another flowchart. The 
characters in the connector identify the chart 
and block to which or from which control is 
passed. The corresponding label, if any, is 
placed outside the outgoing connector. For 
multiple entries, an asterisk is placed in the 
connector and the locations from which 
control is passed are listed nearby. 
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DAM CHAR IS 



Chart AA. EAMOE: Input/Output Macros 



* DAMOD * 

* INPUT/OUTPUT * 

* MACROS * 



* MODIFY * 

MACRO 

SWITCH FOR 

PROPER 

* MACRO * 



IJISTO 

♦****C1 ********** 

* STORE USER'S * 

* REGISTERS IH * 

* SAVE AREA * 

* SPECIFIED by * 

* USER'S REG * 



* RESET * 
ERROR BYTE IN 

* DTF TABLE * 
* * 

*********** 



IJIEOF 

*****^ 2 ********** 

* SET LENGTH * 

* IN READ KEY * 
..X* AND DATA * 

* CCW TO 1 * 

* * 
*******♦♦♦*****♦* 



* B2 *.X 



***♦ 
IJIRON X 

*****,i2 ********** 

* UPDATE * 

* RECORD * 

* LENGTH * 

* REGISTER * 

* BY 8 * 
***************** 

**** 



* C2 *.X 



**** 
IJIRZG X 

*****C 2* ********* 

* GET ADDRESS * 

* OF CHANNEL * 

* PROGRAM * 

* BUILDER * 

* STRING * 
***************** 



*****D2* ********* 
*IJIOVP AG* 
*_*_*_*_*_*_*_*_* 

* CONTROL * 

* SEEK * 

* * 
***************** 



*****£ 2********** 
*IJIBLO AJ* 
*_*_*_*_*_*_*_*_* 

* BUILD CCW * 

* STRING * 

* ♦ 
***************** 



.* WRITE *. 

AFTER *. YES 
OR WRITE .*.... 
. RZERO .* 



IJIAFT 

*****A3 ********** 

*INSERT CCHH IN * 
*DTF FROM USER'S* 
. .X* TRK REF FLO * 
*SET RCD NO. TO * 
*ZERO IN OTF FLO* 
***************** 



IJIZER X 

*****Q3 ********** 

*PUT CCHHO FROM * 

* DTF IN COUNT * 

* FIELD AND RE- * 

* INITIALIZE * 
*TRACK CAPACITY * 
***************** 



*****D3********** 

* INSERT LOW * 
*STORAGE ADDRESS* 
*AND LENGTH OF a* 

* IN PROPER * 

* ERASE CCW'S * 
***************** 



**** 

* * 

* H2 * 

* * 
**** 



**** 

* * 

* C2 * 
« * 

**** 



**F3******* 

* SET NO * 
ROOM FOUND 

BIT ON IN 
DTF TABLE 

* * 
*********** 



* SVC 
EXCP 
READ RO * 

*************** 



*****C4********** 

* * * * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

* * * * 
***************** 



*****04***«****** 

* GET DATA * 

* LENGTH + * 

* KEY LENGTH * 

* RECORD TCi * 

* BE WRITTEN * 
***************** 



IJISBK 

«****E4********** 

* CALCULATE * 

* NUMBER OF * 

* BYTES * 

* REMAINING ON * 

* TRACK * 
***************** 



.* SPACE *. 
* REMAINING *. 

ON TRACK LT .* 
*. RECORD .* 



*****gl ********** 

* * 

* GET UNDEFINED * 

* RECORD LENGTH * 

* FROM USER * 

* * 
***************** 



IJIFXL 

**H1******* 

*SET RECORD * 

*LENGTH TO MAX* 

* AND SET WLR * 

* BIT IN DTF * 

* TABLE * 

*********** 



IJIMXK X 

*****jl ********** 
*STORE DATA AND * 

* KEY LENGTH IN * 
*RD DATA AND RD * 

* KEY AND DATA * 

* CCW'S * 
***************** 



**** 

* * 

* B2 * 



*****G2********** 

* INSERT * 

* CCHH FROM * 
*TRACK REF FIELD* 

* AND RCD NO-I * 

* IN DTF * 
***************** 

**** 

* * 

* H2 * 

* * 
IJIDOM** 
IJIRND X 

***H2************ 



***************** 



IJITRHLD 

*****j 2* ********* 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 

* *IF REQUIRED* * 

* * * * 
***************** 



****K2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



IJISUBRS 

*****t4.********** 

* CALCULATE * 

* NUMBER OF * 
*6YTES REMAINING* 
*0N TRACK AFTER * 
*RCD IS WRITTEN * 
***************** 



*****H4********** 

* STORE NUMBER * 

* OF UNUSED * 

* BYTES IN * 

* RO WRITE * 

* AREA * 
***************** 



*****j4********** 

* * 
*GET ADDRESS OF * 

* CCW BUILDING * 

* AREA * 

* * 
***************** 



IJILCH X 

*****A5********** 
*IJIBLD AJ* 
*_*_*_*_*_*_*_♦_* 

* BUILD CCW * 

* STRING TO * 

* WRITE AFTER ♦ 
***************** 



IJIPRI 

*****b5********** 

* GET PREVIOUS * 

* RECORD ID, * 

* UPDATE BY 1, * 

* AND STORE IN * 

* RO WRITE AREA * 
***************** 



*****C5********** 

* * 

* GET I/O * 
« AREA ADDRESS * 

* FROM CCW * 

* * 
***************** 



*****D5********** 

* PUT CCHH * 

* FROM StEK * 

* ADDRESS IN * 

* RO WRITE * 

* AREA * 
***************** 



*****E5********** 

* INITIALIZE * 

* COUNT FIELD * 

* IN I/U * 

* AREA * 

* ♦ 
***************** 



*****F3********** 

* SET KEY AND * 
*DATA LENGTH TO * 

* ZERO IN CUUNT * 

* FIELD * 

* IF REQUIRED * 
***************** 
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Chart AB. DAMOD: WAITF Macro (1 of 4) 



**** 

* * 

* A4 * 

* * 



****A I********* 

* DAMOD * 

* WAITF MACRO * 

* * 
*************** 



* STORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*A2 
DAMOD MACRO 
PARAMETER 

OPTION — DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING, 



*****C2*** ******* 



.* X* * 



.* IS *. 
.* RECORD *. 
.OUT OF EXTENIT. 

*. AREA .* 



***************** 



I.JIXTFD 

*****Q 2*** ******* 

* PUT SECOND * 

* ERROR BYTE * 
...X* FROM CCB INTO * 

* USER ERROR * 

* STATUS IND * 
***************** 



IDLOC = 

BLANK 

*A2 



**** 
*AC ♦ 
* HI *.X. 



.* 
.* 

NO 



NO .* IDLOC 
X.*. SPECIFIED 
*. IN DTF . 



***** 
*A0 * 
* E2* 



END 

OF 

FILE 



**E1******* 

* SET BYTE * 
2 OF ERROR 

INDICATOR 
TO ZEROS 

* * 
*********** 



IDLOC = 

BLANK 
*A2 



IDLOC 
SPECIFIED 
. IN DTF . 



E2 *. 
,* *. 

.* END 

OF 
♦.CYLINDER 
*, ,* 

*, ,* 
* NO 



.* RECORD *. 

♦FOUND OR TRACK. 

*. QVFRRUN .* 



*****Hl ********** 

* MOVE * 

* ERROR CODES * 

* TO USER * 

* ERROR STATUS * 

* INDICATOR * 
***************** 



***** 
*AD * 
* D5* 



**H2******* 
* SET * 

* INCORRECT 
LENGTH BIT 

* USERS ERROR 
*STATUS IND * 

*********** 



.* END *. NO 

OF .*... 

*. FILE .* 



*****E3 ********** 

* * 

* GET * 
X* LOCATION * 

* SEEKADR+3 * 

* * 
***************** 



END 

OF 

VOLUME 



IJIEOV 

**Q3******* 

♦ SET END * 
* OF VOLUME 

* BIT IN USER'S 
*ERROR STATUS 

* INDICATOR * 
*********** 



*****H3 ********** 

* MOVE ID * 

* OF CURRENT * 

* RECORD TO *X 

* IDLOC * 

* * 
***************** 



*****E4********** 





* 


* REFERENCES 


GET 


* 


TO A6F5S 


ADDRESS OF 


* 


ADD2. ADHl 


IDLOC 


* 


ADK3 



***************** 



**** 

* * 

* F5 * 

* * 

**** 



* ♦ *,X. 

* * 
**** 

IJIDUMY 

*****p 5********** 

* PLACE * 

* DUMMY * 
..X* RECORD IN * 
. * IDLOC * 
. * * 

***************** 



**** 

IJIRTER X 

*****G5 ********** 

* MOVE ERROR * 
NO * BYTES TO * 

* USER'S ERROR * 

* STATUS * 

* INDICATOR * 
***************** 



* UNDEFINED *. 

RECORDS AND .* 
*. SRCHM .* 



***** 
*AD * 
* D5* 



FEOVD 

= YES 

*A2 



.*. 

J4 *. 

.* * 

END 
OF 
.CYLINDER 



.X* 



*****J5********** 
*UPDATE SEEKADR * 
TO NEXT CYL. * 
AND INSERT * 
NEW ADDRESS * 
» IN IDLOC * 
***************** 



***** 
*AD * 
* Bl* 



X 
***** 
*AC * 
* Al* 
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Chart AC. 



C^MOD: 



\Rhl1F Macro (2 cf 4) 



***** 

*AB * 
* K2* 



NO ,* *. 

:.,*. KEYLEN = .* 
*, ,* 



*****C1 ********** 



***************** 



*****0i********** 



***************** 



* *SVC READ * * 

* * COUNT OF * * 

* *EOF RECORD * * 

* * * * 
***************** 



***************** 



#*G2******* 



********* 



**«::{(****:«<*,«= 



***** 

*AB * 

* 64* 

* * 
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Chart AD. 



DAMOD: 



v^AlTF Macro (3 cf 4) 



***** 

*AB * 
* J4* 



RELTRK = 
BLANK 
*B2 



*B2 
DAMOD MACRO PARAMETER 
OPTION - DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*AE * 
* Bl* 



RECFORM 

UNDEF 

*B2 



**** 

* * 

* E2 * 

* * 
**** 



Gl *. 
* 

SCRHM 



*****jX********** 

* * 

* GET * 

* USER'S * 

* IDLOC * 

* * 

**:(t:4c****4c**:(c4c4cv** 



**«**Kl********** 

* * 

* MOVE X'FF« * 

* INTO * 

* USER'S IDLOC * 

* ♦ 

********:ec*****4c«::4c 



* *,X 



REFERENCES 
TO ADE2! 
ABB4, AEE4 



**** 
IJIJCK 

*****£ 2********** 

* MOVE ERROR * 

* BYTES TO USER * 
..X* ERROR STATUS * 
. * INDICATOR * 
. * * 

***************** 
**** 

* * 

* E2 * 

* * 
**** 



*****P 2********** 

♦ SAVE SETTINGS * 
♦FOR WLR AND NO * 
♦ROOM FOUND, AND+ 

♦ ALL BITS IN ♦ 

♦ SECOND BYTE ♦ 
***********«*:«(*** 



*****E3 ********** 



***************** 



G2 ♦. 

.♦ UNDEF ♦. 

RECORDS 

SPECIFIED 

. IN DTF . 

*. ,* 



RECFORM 

= UNDEF 

♦B2 



**** 

* * 

* F4 * 

* * 
**** 



**G3******* 



*********** 



**J3******* 



*********** 



m .* RECORD 
...*. LENGTH GT 
*. MAXIMUM .■ 



**84******* 

* SET ^<LR * 

BIT IN DTF 

MSGR/STATUS 

BYTE 

*********** 



*****C4********** 

* * 

* RESTORE * 

* USER ♦ 

* REGISTERS ♦ 

* * 
***************** 



♦ REFERENCES 
TO ADDS: 
ABG5, ABHl 
AHA4 



X 


IJITOM 


X 


*****04********** 


*****05********** 


* * 


* 


* 


* RETURN * 


* 


RESTORE ♦ 


* RECORD LENGTH ♦ 


..X* 


USER ♦ 


* TO USER ♦ 


* 


REGISTERS ♦ 


* * 


* * 


* 


***************** 


***************** 




**** 




**** 


* * 




* * . 


* D5 * 




* E4 ♦.X. 


* * 


X 


* * . 


**** 


**** 


**** 




* * 


IJITNR X 




* E4 ♦ 


**E4******* 




* * 


* * 




**** 


* RESET ♦ 






♦ MACRO SWITCH ♦ 






* IN DTF * 







*********** 



**G5******* 

♦ RESET * 

♦ UNRECOV * 

I/O 

* ERROR * 

* INDICATOR * 
*********** 



**j4******* 

♦SET UNRECOV^ 

♦I/O ERROR BIT^ 

♦ IN USER ♦ 

♦ERROR/STATUS ♦ 

♦ BYTE ♦ 

*********** 



****K4**^+^+*^^ 

♦ RETURN TO ♦ 

♦ PROBLEM ♦ 

♦ PROGRAM ♦ 
*************** 



**** 

* * 

* A4 ♦ 

* * 
**** 



***** 
♦AB ♦ 
* P5* 
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chart AE. DTIMOD: WAITF Macro (4 cf 4) 



***** 

*AD * 
* CI* 

* * 



*****B1 ********** 
*GET ADDRESS OF * 

* 5-BYTE SAVE * 
*AREA FOR IDLOC * 

* RECORD IN DTF * 

* TABLE * 
***************** 



*****Cl ********** 

* GET ADDRESS * 

* OF CCHH SAVE * 

* AREA IN THE * 

* DTF TABLE * 

* * 
***************** 



*****0i ********** 

* MULTIPLY CI * 

* FROM IDLOC * 

* RCD BY CI * 

* ALTERATION * 

* FACTOR * 
***************** 



*****£!********** 



***************** 



*****B 2*'Me******* 

* MULTIPLY C2 * 

* FROM IDLOC * 

* RCD BY C2 * 

* ALTERATION * 

* FACTOR ♦ 
***************** 



*****C2********** 

* * 

* ADD RESULT * 

* TO PREVIOUS * 

* RESULT * 

* * 
****** **** ******* 



*****02*** ******* 

* MULTIPLY HI * 

* FROM IDLOC * 

* RCD BY HI * 

* ALTERATION * 

* FACTOR * 
***************** 



*****E2*** ******* 

* * 

* ADD RESULT * 

* TO PREVIOUS * 

* RESULT * 

* * 
***************** 



*****p 2*** ******* 



DAMOD MACRO PARAMETER 
OPTION-DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



RELTYPE 

DEC 
*. *B3 . 



*****C4********** 

* INSERT RECORD * 

* NUMBER, R, * 
*WITH TTT VALUE * 

* TO GET RfcL. * 

* ADDR, TTTR * 

*************:(<*** 



*****D4********** 

* * 

* SAVE TTTR IN * 
*CCHH SAVE AREA * 

* IN DTF TABLE * 

* * 
***************** 



IJIDIC 

*****C5****^****** 
♦CONVERT R FROM * 

* IDLOC RECUKU * 

* TO DECIMAL * 

* UNPACK INTO * 

* USER'S IDLOC * 
***************** 



*****05 ********** 

* CONVERT TTT * 

* VALUE TU * 

* DECIMAL AND * 

* UNPACK INTO * 

* USER'S IDLOC * 
***************** 



NCT 


X 




*****E4********** 




MOVE TTTR 


* 




TO USER' S 


* 




IDLOC 


* 




ADDRESS 


* , 






* 


***************** 






X...- 





***** 
*AD * 
* E2* 



***************** 



*****G2********** 

* ADD * 

* RECONVERSION * 

* FACTOR TO * 

* RESULT (TTT * 

* VALUE) * 
***************** 



*****H 2* ********* 

* INCLUDE R * 

* WITH THE TTT * 

* VALUE OF THE * 

* RELATIVE * 

* ADDRESS * 
***************** 
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Chart AF. DAMOD and DAMODV: CNTRL and FREE Macros 



****A1 ********* 

* OAMOO * 

* CNTRL MACRO * 

* * 
*************** 



****A2*** ****** 

* DAMOO * 

* fREE MACRO * 

* * 



JICTL X 


IJIFREE X 


«* 4: 4(:{c B 1 « 3(ej|c itt4c4; * ijc !«( » 


%*B2******* 




* TURN ON 


* STORE USER * 


* FREE IND 


* REGISTERS * 


% 'Ul bHtP 






* 16 


ititiit^i:tf*^*m*****iii** 


«l(CJic%i»[i«(3tCJ«t4i9|C!«( 



**«**ci ********** 
*IJIOVP AG* 

* CtDNTROi * 

* SEEK * 

* ♦ 
***************** 



»*0I ******* 

* * 
TURN OFF 

MACRO 
INDICATOR 

* * 
*********** 



* RESTDR€ * 

* USER * 

* REGISTERS * 

* * 
***************** 



****F1********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*^************* 



***************** 



*****02**»******* 
*U10VP AG* 

*_*-.*^*-.*„ *_*_.*«* 

* FREE HELD * 

* TRAC K * 

* * 
***************** 



**E2******* 

* * 
TURN OFF 
FREE IND 

IN DTF 

* * 
*********** 



*****F2********** 

* * 

* RESTORE * 

* REGISTERS * 

* 1-8 * 

* * 
***************** 



, ****G 2* ******** 

* Kt TURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****A4********* 

* OAMODV * 

* CNTRL MACRO * 

* * 
*************** 



IJISCTL X 

**R4******* 

* TURN ON ♦ 

* CNTRL MACRO * 
* INDICATOR * 

* IN DTF * 

* TABLE * 
*********** 



* STORE * 

* USER * 

* RtGISTERS * 

* * 
***************** 



*****Q4********** 

*IJISOW BE* 

*_*-*-.*-*_*-.*-*-.* 

* CONTROL * 

* SEEK * 

* * 
***************** 



**E4******* 

RESET CNTRL 

MACRO 

INDICATOR 

* * 

*********** 



* RESTORE * 

* USERS * 

* REGISTERS * 

* * 
***************** 



****Q4********* 

* RETURN TO * 

* JpROtiLEM * 

* PROGRAM * 

********e****^**:* 



****A5********* 

* DA«OdV * 

* FREE WACRO * 

* J* 
*************** 



IJISFREE X 

**B5 ******* 

* TURN ON * 

* FREE MACRO 
* INDICATOR 

* IN DTF 

* TABLE * 
****♦**♦*♦* 



* STORE * 

* USER * 

* RE6I STERS * 

* ♦ 
***************** 



*****05********** 

♦IJISOVP BE* 

*-.*«.*-.*_*_*_*_*_* 

* FREf HELD * 

* TRACK * 

* * 
***************** 



**E5******* 

♦ * 
RESET FREE 

MACRO 
INDICATOR 

* * 
*********** 
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chart AG. 



DAMOD : 



Seek Overlap Subroutine (1 cf 2) 



* DAMOD * 

* SEEK OVERLAP * 

* SUBROUTINE * 



C2 *. 
,* REL *. 
.* TRACK *, YES 
. ADDRESSING ,*,... 
*. USED .* 



.* 



***** 

♦AH * 

* H4* 

* * 



***** 
*AH * 
* Al* 



ENTRY *. NO 
FROM FREE .♦... 
. MACRO .* 
*. ,* 



**«**C4*********# 



***************** 



*****C5********** 

* * SVC 35 * ♦ 

* ♦ SEEK ♦ * 

* * AND * * 
HOLD 



* * 



* * 



**:|c************** 



IJI0V2 X 

***:(c*02«** ♦«***** 

* CALCULATE * 

* ADDRESS OF * 
..X* CCW CHAIN * 

* BUILD AREA * 

* * 

***:<(**«*«**« «*:{(«* 



***«*£ 2#**^^^*^«* 

* * 

* OBTAIN * 

* SEEKADR FROM * 

* SEEK CCW * 

* * 
*****;tc *********** 



*«***p 2********** 

* DETERMINE * 

* SYMBOLIC UNIT * 

* ADDRESS AND * 

* STORE IN CCB * 

* * 

******** ******«i(c4c 



**♦* 
IJILOAO X 

*****04*******«** 



:ic*4 ************** 



****E<^********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



YES .* HOLD 
...*. = BLANK 

*. *D3 



.* TRACK *. 

HOLD *. YES 

SPECIFIED ,*.... 
. IN DTF .* 



* ENTRY *. NO 
FROM CNTRL .*.., 
*. MACRO .* 



**** 

* * 

* B4 * 

* * 
**** 



***************** 
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Chart AH. DAMOD: Seek Overlap Subroutine (2 cf 2) 



***** 

♦ AG * 

* C2* 



**** 

* * 

* A5 * 

* * 
*♦** 



*****A1********** 

* GET * 

* USER'S SEEK * 

* ADDRESS FROM * 

* DTF TABLE * 

* * 

3t(4c«*4t«««4t**«***«3tC 



.♦END OF *. 
.* DSKXTNT 
TABLE 
♦. REACHED . 



IJINCD 

«***«C1 ««**«««*«« 

* ALIGN REL ♦ 

* ADDR TTT * 

* VALUE TO * 

* FULLWORD ♦ 

* * 

««**4(«*«««*:|c***4c* 



*****Dl«**««««*:|e« 

♦ INSERT REL * 

♦ ADOR R VALUE * 

♦ INTO SEEK ♦ 

♦ ADDRESS IN ♦ 

♦ OTF TABLE * 

*«**3|c*««««*«:(c«4t)|c# 



*****El«***«4c**** 

* * 

* SAVE USER * 

* TTT VALUE ♦ 

* IN REGISTER ♦ 

* * 



IJICMC 

*****P1#«« *«***«« 

♦ LOAD REG ♦ 

♦ WITH ADDRESS ♦ 

♦ OF DSKXTNT ♦ 

♦ TABLE -8 * 

♦ * 

*****«**««***** «:(i 



♦ Gl *.X 



**** 
IJILBK X 

4e«*4c*Gl********** 

* SAVE USER ♦ 

* TTT VALUE ♦ 

* IN ♦ 

* REGISTER 11 * 

* * 



«***«H1**^«**«*** 

♦SAVE CUMULATIVE^ 

♦ TRACK TOTAL * 

♦ {TTT2) OF ♦ 
♦PREVIOUS ENTRY ♦ 

♦ IN DSKXTNT ♦ 
***«***«4c******** 



«***« J !*«**««***« 
♦ADD TTT2 VALUE ♦ 

♦ OF PREVIOUS ♦ 

♦ DSKXTNT ENTRY ♦ 

♦ TO USERS TTT ♦ 

♦ VALUE ♦ 
4c* *************** 



4e****Kl********** 

♦UPDATE DSKXTNT * 

* ADOR TO POINT * 

* TO CURRENT * 

* TABLE ENTRY * 

* -8 BYTES ♦ 

««**««*«****4c**** 



4(:(t***Q 2 ♦♦♦♦♦♦♦♦♦♦ 

* CONVERT FIRST ♦ 

* 8 BYTES OF ♦ 
.X«ADDR (TRK NO.) * 

* TO HEX FORM * 

* TTT (3 BYTES) ♦ 

3tc***««( *:«<** ******* 



* * 

* SAVE USER ♦ 

* TTT VALUE ♦ 

* IN REGISTER ♦ 

* * 

#*«*3ic**««*«4e4t«««« 



Jic*:(e**B3* ********* 

♦GET TTT2 VALUE * 

♦ OF CURRENT * 

♦ ENTRY IN ♦ 

♦ THE DSKXTNT * 

♦ TABLE ♦ 

3(c« ;(( * ;4c« «:{( :(c* :(<:«e « * * )ii:j( 



:4c«:(c4(*C3*^^ ♦♦**♦♦♦ 

♦ SUBTRACT TTT2 ♦ 

♦ OF CURRENT ♦ 

♦ DSKXTNT ENTRY ♦ 

♦ FROM USER'S ♦ 

♦ UPDATED TTT ♦ 

«*«*4(:4c :«(:(( ##*««««:** 



«***«:02^«^ ♦♦♦♦♦** 


D3 *. 


♦ CONVERT LAST * 


.♦ *. 


* 2 BYTES OF * 


NO .♦ RESULT *, 


♦ADOR (RCD NO.) ♦ 


...*. NEGATIVE .♦ 


♦ TO HEX FORM ♦ 


. ♦. .♦ 


♦ R (1 BYTE) ♦ 


. ♦. .* 


««*««:(c*«** ******* 


X ♦, .♦ 




**** * YES 




* * 




♦ Gl ♦ 




* * 




*♦** , 


X 


X 


««***E2^^^ ♦♦♦♦♦♦♦ 


*****E3 « «**«««* :ic« 


♦ STORE ♦ 


♦STORE M AND B2 ♦ 


♦ R VALUE IN ♦ 


♦ VALUES FROM * 


♦ SEEK ADDRESS ♦ 


♦CURRENT DSKXTNT+ 


♦ IN DTF TABLE ♦ 


♦ ENTRY IN SEEK ♦ 


* * 


♦ ADDRESS ♦ 


«« **4c4c «««««:(( «:t(«4e* 


««**j(t3tc*4e«4< ******* 



*** * «P3 :(c 3(c* *««*)|e 3(c* 

*GET LOWER LIMITS 

♦ (TTTl) OF THE ♦ 
♦CURRENT DSKXTNT^ 

♦ TABLE EXTENT ♦ 

♦ ENTRY ♦ 

****** **:tc* ******* 



♦♦***G3*** ******* 

♦ CALCULATE ♦ 

♦ AND SAVE ♦ 

♦ RECONVERSION ♦ 

♦ FACTOR * 

♦ * 

«***«:ic**«**«4e**** 



«««*«K3^ ♦♦♦♦♦♦♦♦♦ 

♦ ADD USER'S ♦ 

♦ ORIGINAL TTT ♦ 

♦ VALUE TO TTTl ♦ 

♦ TO GET TTT ♦ 

♦ RECORD * 
^ijf^f(fitf*** ********* 



**A'it******* 

♦ SET IND ♦ 
FOR EXTENT 

NOT FOUND 
IN DSKXTNT 

♦ TABLE * 

*4c********* 



***** 
*AD * 
* D5+ 



. ALTERATION 

*. FACTOR = . 

♦ . 1 .♦ 



♦♦***B5*++****+*^ 

* DIVIDE RECORD * 

♦ TTT VALUE ♦ 
« 'DIVIDEND' * 

♦ CI ALTERATION * 

* FACTOR ♦ 

«:**************** 



*****C5**+^**++*^ 
♦STORE QOUTIENT ♦ 

* (HIGH ORDER ♦ 

* REG) IN CI ♦ 

* SEtK ADDRESS ♦ 

* (ACTUAL) ♦ 



«**:<(«05»:t>3tc******* 

* RESTORE ♦ 
♦REMAINDER (LOW * 

♦ ORDER REG) ♦ 

♦ NEW DIVIDEND ♦ 

* * 



1JIDV2 X 

«««*«E5««**««4c««# 

♦ DIVIDE * 

♦ DIVIDEND BY ♦ 

♦ C2 ALTERATION ♦ 

♦ FACTOR * 

♦ * 

««««4t«:((««*:(c«««4c** 



«3(<**«f:5«***«*4(*«3«c 

*STORE QUOTIENT * 

♦ (HIGH ORDER ♦ 

♦ REG) IN C2 ♦ 

♦ SEEK ADDRESS ♦ 

♦ (ACTUAL) ♦ 

****«**;(( *4<******* 



IJIDV3 A 

:4c«4ic«3)cH4********** 

* STORE ♦ 
♦REMAINDER (LOW ♦ 

* ORDER REG) ♦ 

* M2 IN SEEK ♦ 

* ADDR (ACTUAL) ♦ 

««:|c4e************* 



***** 

♦AG ♦ 

* 02^ 



* HI 

ALTERATION 

*. FACTOR = .■■ 

♦. 1 .♦ 



*****H5********** 

* RESTORE ♦ 
♦REMAINDER ( L0^< ♦ 

♦ ORDER REG) ♦ 

♦ NEW DIVIDEND ♦ 

* * 

«:«c««:tc«3(c3ic***:»:«X'*** 



*****J5**^^^+^^^^ 

♦ DIVIDE ♦ 

♦ DIVIDEND BY ♦ 

♦ HI ALTERATION ♦ 

♦ FACTOR ♦ 

♦ * 
***************** 



♦♦***K5********** 
*STORE QUOTIENT * 

♦ (HIGH ORDER * 
.♦ REG) IN HI ♦ 

♦ SEEK ADDRESS ♦ 

♦ (ACTUAL) ♦ 

««:(<:((***«***#***** 
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chart AJ. Di^MOD and DAMODV : Channel Program Builder Sutroutine 



****A1 ********* 

* DAMOD/DAMODV * 
♦CH.PROGR. BLDR.* 

* SUBROUTINE * 



**** 

IJI8LD X 

«:{(:«(«:tcgX********** 

*UPOATE POINTERS* 



MOTE— THIS SUBROUTINE IS USED 

IN BOTH DAMOD AND DAMODV. 
THE LABELS SHOWN ON THIS 
FLOWCHART ARE PRECEDED BY 
IJIS FOR DAMODV 
INSTEAD OF IJI 



* TO NEXT CCW * 




* ALTER OR * 


* STRING NUMBER * 




♦RESTORE COMMAND* 


*AND BUILD AREA * 




* CODE * 


* * 




* * 


3iC3tt4:««4c4:4t:«c:(:4:4c*4:**4c 




* ♦ 

* C3 *.X. 

* * . 
*♦♦* . 


X 




IJIFL6 X 


*****ci********** 




«:ic4:«*C3********** 


* ISOLATE * 




* ALTER FLAGS * 


♦RELATIVE PTR TO* 




* IN CCW BITS * 


* BASIC ecu * 




* FROM CCW * 


* NEEDED * 




* STRING NUMBER * 


* * 




* * 


:((:«(«;«(:(< 3ie :»:«:{( 3«( 3$c:(c4e:ic# 4c :{< 




,,.. ,.,...,X* 


X 




X 


.*. 


IJITIC 


IJIRDY .*. 


01 *. 


****«02*** ******* 


03 *. 


.* *. 


* * 


. * *, 


.* CCW TO BE *. YES 


* STORE CCW * 


.* END OF *, NO 


*. A TIC .*..... 


...X* ADDRESS IN * 


*. STRING .*.... 


*. .* 


* CCW * 


*. .* 


*, .* 


* * 


*, ,* 


*. ,* 


:«c4t:te>ie:^««4c:«c««:jc;jutc:(c3t(« 


*, .« X 


* ND 




* YES **** 

* * 

* Bl * 

* * 


X 


X 




*♦***£!********** 


:iic4::t(:»::«cE 2*** ******* 


X 


* * 


* * 


:tf3tii>tc^^^:tf ******** 


* MOVE BASIC * 


* INSERT TIC * 


* RETURN TO * 


* TO BUILDING * 


♦COMMAND CODE IN*.-... 


*CALLING ROUTINE* 


* AREA * 


* TIC CCW * 


* * 



^:^*t************* 



if**************** 



#;»:**«*****«^«4!« 



BASIC 
CCW TO BE 
.MODIFIED . 



.* ONLY *. 
FLAG FIELD 

TO BE 
.MODIFIED . 



.* 


OP CODE * 


. YES 


*. 


TO BE 


.*. ... 


*. 


CHANGED .* 
*. .* 
*. .* 








^ NO 












♦****J1 ********** 


* 




* 


*SET 


MULTITRACK 


* 


* 
* 
* 


BIT ON 


* 

* , 
* 


**** 


:(<*********#** 






.X 


• 



Charts 193 



Chart AK. DAMODV: Input/Output iMacros (1 of ^) 



**** 
* * 

* A5 * 

* * 
**** 



****A1********* 

* DAMODV * 

* INPUT/OUTPUT * 

* MACROS * 
*************** 



**B1 ******* 

* MODIFY * 

MACRO 

SWITCH FOR 

PROPER 

* MACRO * 
♦****♦**«** 



IJISSTO 

*****Ci ********** 

* STORE USER'S * 

* REGISTERS IN * 

* SAVE AREA * 

* SPECIFIED BY * 

* USER'S REG * 
***************** 



**** 

X 
*****B2*** ******* 

* SET BASIC HDD * 
*CCW BYTE COUNT * 

* TO 8 BYTES * 

* CONTROL WORDS * 

* IF REQUIRED * 
***************** 



*****B3* ********* 

* PUT PROPER * 
*RECORD BLKSIZE * 

* IN RECORD AND * 

* BLOCK DESCR. * 

* IkORO * 
***************** 



***A4************ 
SVC 
* EXECUTE * 

CHANNEL PROGRAM 
* (READ) * 

***************** 



***** 134* ********* 

* * * * 

* * S/C 7 * * 

* * ^J(\|:T * * 

* *IF REQUIRED* * 

* * * * 
***************** 



IJISNL 

*****fj 5********** 
*SUBTRACT 8 FROM* 
*CClN BUILD AREA * 

* ADDR FOR KDIO * 

* CCW * 

* * 
***************** 



RESET ERROR * 
BYTE IN DTF * 
TABLE * 

* * 

*********** 



.* WRITE 
*. EOF 
*. RECORD 



IJISSEDF 

*****E2*** ******* 

* SET RECORD * 

* LENGTH * 
...X* REGISTER *.... 

* CONTENTS * X 

* = ONE * 
***************** 



*****P2**« ******* 
♦SET BYTE COUNT ♦ 

* IN BASIC RDD * 
.X* CCW EQUAL TO *... 

* BLKSIZE * 



IJISRON 

*****C3*** ******* 

* USING MACRO * 

* S^ilTCH VALUE * 
*GET ADDRESS OF * 

* CCW STRING * 

* * 
***************** 



*****[)3********** 

*IJISOVP BE* 
*_*_*_*_*_*_*_*_* 

* CONTROL * 

* SEEK * 

* * 
*************** ** 



*****E3********** 
*IJISBLD AJ* 
*_*_*_*_*_*_*_*_* 

* BUILD CCW * 

* CHAIN * 

* * 
***************** 



.*. 


IJISTK X 


C4 *. 




*****C5********** 


.* *, 




* STORE * 


.* END OF *. YES 


*READ/URIT£ DATA* 


*. CYLINDER .* 




* CCW ADDRESS * 


*. .* 




* IN SPNUNb * 


*. .* 




* WORKAREA * 


*• .* 


X 


***************** 


* NO 

* 


***** 

*AM * 

* G2* 

* * 






IJISNRF 


X 


IJISRFD X 


IJISTT .*. 


*** **04******** ** 




05 *. 


* SET BASIC ROD * 




• * *, 


*CCW BYTE COUNT * 




.* SEARCH BY *. YES 


* LENGTH OF SEG * 




*. KEY ON READ .* 


* (LL) +4 * 




*. MACRO .* 


* * 




*. .* 


***************** 




*. .* X 

* NO ***** 

* * A3* 

* * 

X IJISKS 



*****g4********** 

* LOAD SEGMENT * 
♦LENGTH (LLJ OF * 

* SEGMENT JUST * 

* READ INTO RCD * 

* LENGTH REG * 
***************** 



***************** 



IJISWRT 

*****Gl********** 

* INITIALIZE * 

* BASIC RDD CCW * 
♦BYTE COUNT WITH* 

* SEG LENGTH * 

* FROM I/O AREA * 
***************** 



HI *. 
.*IS SEG *. 

TO BE *. Ni 
WRITTEN A .*. 
.NULL SEG .* 



F3 *. 




F4 *. 


.* WRITE *. 




.* IS *. 


AFTER OR * 


. YES 


.♦SEG NOW ON *. YES 


WRITE RZERO 


.*. •• . 


*. DASD A NULL .*.... 


. .♦ 




*. SEGMENT .* 


*. .♦ 




*. .* 


*, .* 


X 


*. ,« X 


* NO 


***** 


* NO ***** 




*AM * 


♦AM * 




* A3* 


* E2* 




* * 


* * 




* 


* 


X 


IJISAPT 


IJISERF 


.*. 




X IJ 


G3 ♦. 




*****Q4* ********* 


.♦ *« 




♦INITIALIZE CCW * 


VARIABLE * 


NO 


* BUILD AREA * 


RECORDS 


.*. ... 


* POINTER WITH * 


.* 




* STARTING ADDR ♦ 


*, ,* 




* - 32 BYTES * 


*, .* 


X 


***************** 





f YkS 


***** 




*AL * 






* fc4* 






* * 






* 






iJiSGS 


IJISSF < 




**P5 ******* 




* SET TEMP * 


* SWITCH IN 


* 


* SPNUNB AREA 


* 


* OF DTF 


* 


* TABLE K 


*********** 





* YES **** 
**** 
* REFERENCES * * 
TO AKH3: * * * 
AME3t AMK3 * * . **»* 

**** 
IJISGDL IJISDOM 

**H2++***** ***H3************ 

*SET RECORD * SVC 

♦BLOCKSIZE EQ * * EXECUTE * 

...X*BLOCKSIZE, SET * CHANNEL 

* WLR * * PROGRAM * 

* INDICATOR * 
*********** ***************** 



*****J2*** ******* 

* INITIALIZE * 

* BASIC RD DATA * 
*CCW BYTE COUNT * 

* WITH RECORD * 
♦BLOCKSIZE <LL) * 
***************** 



*****j3********** 

* * * * 

* ♦ SVC 36 * * 

* *FREE TRACK * * 

* *IF REQUIRED* * 

* * * * 
***************** 



*********** 





**** I 




* * . 




* K3 *.X. 




* * . 




**** , 


X 


IJISWND 


*****K2********** 


X 


* ZERO BYTES 2 * 


****K3********* 


♦AND 3 OF BLOCK * 


* RETURN TO 


* AND SEG * 


* PROBLEM 


* DESCRIPTOR * 


* PROGRAM 


* WORDS * 


*************** 


********** ** ***** 





*****H4********** 
♦ADD 16 TO ADDR * 

* OF CCW BUILD * 
*AREA POINTER TO* 

* RETAIN FIRST * 

* TWO CCW * 
***************** 



*****j4********** 
*IJISBLD AJ* 
*_*_*_*-*-*-*_*_* 

* BUILD WRITE * 

* CCW STRING * 

* * 
***************** 



*****G5********** 

* MOVE ADDR OF * 

* RDD (VERIFY) * 

* CCW TO SECOND * 

* ADDR LOC IN * 
*SPNUNB WORKAREA* 
****************# 



*****H5*** ******* 
♦SUBTRACT 8 FROM* 
*CCW BUILD AREA * 

* POINTER TO * 
♦BYPASS RDKD CCw* 

* IF REQUIRED * 
***************** 



IJISVTl 

*****J5********** 

* SUBTRACT 24 * 
♦FROM CCW BUILD * 
♦AREA POINTER TO^ 
♦GET ADDR OF WRD^ 

♦ CCW ♦ 
***************** 



***** 
*AL ♦ 
* AI^ 



DASD 

SEGMENT 

TYPE 



**** 

* * 

* A5 ♦ 

* * 
**** 
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*AK * 
* J5* 



* STORE ADDR OF * 

* WRD CCW IN * 

* FIRST ADDR * 

* IN SPNUNB ♦ 

* hORKAREA * 
*:ti *************** 



IJISWC 

**Ql******* 

*RESET TEMP *= 

* SUITCH IH * 
*SPWNB AREA 3F 

* DTF TABLE * 
* ♦ 

*********** 



*****ci********** 

* MOVE LENGTH * 

* OF ROD tLL) * 

* TO BE WRITTEM * 

* TO toRD CCW * 

* BYTE COUNT * 
***************** 



*****Ql********** 

*«OVE BLKSIZE TO* 

* RDD tVERIFYJ * 
*CCW BYTE COUMT * 

* IF REWIRED * 

* * 
***************** 



***** 
*AK * 
* D5* 



**** 

* * 

* A3 * 

* * 



IJISKS X 

*****f^2* ********* 
♦INITIALIZE CC^ * 

* BUILD AREA * 
:..X* POINTER WITH * 

* STARTING * 

* ADDRESS - 32 * 
***************** 



**** 

* * 

* A5 ♦ 

* * 
**** 



♦♦***A5********** 
♦ADD DATA LENGTH* 
*0F THIS SEG TO ♦ 

* LENGTH OF * 

* PREVIOUS * 

* SEGMENTS * 
***************** 



IJISKSl 

*****Q^********** 

* MOVE PROPER * 

* CCW'S TO CCW * 

* CHAIN IN CCW ♦ 

* BUILD AREA * 

* * 
***************** 



IJlSKll 

*****Q2********** 

* STORE ADDR OF * 

* VERIFY RDD * 
*IN SPNUNB AREA *X. 

* IN DTF TABLE * 

* * 
***************** 



VERIFY 

OPTION 

.SPECIFIED. 



*****Q^********** 

* ADD 24 TO CCW * 

* BUILD AREA * 

* POINTER FOR * 

* VERIFY CCWS * 

* ♦ 
***************** 



**Q^******* 

* SET * 
TEMPORARY * 
SWITCH IN * 

SPNUNB AREA ♦ 

* IN DTF ♦ 
*********** 



REFERENCES 
TO ALE4S 
AKESf AMC2 



.♦ *. 




* READ 


♦ . YES 


MACRO 


...... 


*. 


♦ • 


*. ,* 




♦ . .♦ 


X 


* NO 


***** 




♦AM ♦ 




♦ Al^ 




* * 




* 




IJISVRI 


X 




**Q^******:i 




♦CHANGE RDD 


♦ 


CCW TO WRD 


* 


AND RESTORE 


♦ 


FLAG BYTE 


* 



*********** 



***!**0^********** 

♦MOVE LENGTH OF ♦ 

♦ AVAILABLE ♦ 

♦ SEGMENT TO * 
♦CCW BYTE COUNT ♦ 

♦ * 
***************** 



IJISVW X 

***^l************ 

CHANNEL 

* PROGRAM ♦ 
{WftlTEJ 
***************** 


X 

*****£2********** 

* * 

♦RESTORE POINTERS 

* TO FIRST RDD ♦ 

* CCW * 

* * 

***************** 

X 

**f2******* 

* SET SKIP ♦ 

♦ AND CC BITS * 

* IN VERIFY RDD ♦... 

* CCW * 


iJiSKIR X 

**£-^******* 

♦ RDD CCW ♦ 

♦ * 

**:****^t**** 

«•••..«•••. X. 


IJiSGS X 

*****£/t*** ******* 

* IJIGET BD^ 

•.X«~ "cET^NixT "* 
. * S6EKADR ♦ 
. * * 
, ***************** 

♦ * 

♦ E4 * 

♦ * • 
**** , 

X 

*****f^********** 

* GET IN AREA ♦ 

* ADORESSr SAVE ♦ 

* LAST 8 DATA ♦ 

* BYTES. LNIT. ♦ 


X 

*****i^§********** 

♦ CALCULATE ♦ 
♦SEGMENT LENGTH ♦ 

* AND BLOCKSIZE ♦ 

* FOR CONTROL ♦ 

♦ WORD ♦ 

******:*********** 


X 
*****fl********** 

* * * * 

* * SVC 7 * ♦ 

♦ ♦ WAIT ♦ ♦ 

♦ ♦IF REQUIRED* * 


ItJISKl X 

*****f^ ********** 

♦ STORE ADOR OF ♦ 

♦ READ DATA CCW ♦ 
♦IN SPNUNB AREA ♦ 

♦ OF DTF TABLE ♦ 


IJISTDLI X 

*****f5********** 

♦ SET WRD CCW ♦ 

♦ BYTE COUNT ♦ 
♦EQUAL TO LENGTH* 

♦ OF SEGMENT ♦ 



***************** 



*, ,# 
* 10 
.OR II 



♦ SAVE SEGMENT * 
♦CONTROL FLAG I*^* 
« I/O AREA ♦ 

* * 
***************** 



*****^l********** 

* RESTORE BLOCK * 

* AND SEGMENT ♦ 

* DESCRIPTOR * 

* WORDS * 

* * 
***************** 



*********** 



*****Q2********** 
♦ IJISSVCF BF* 

*~ #- *- *^*~*^*-*^* 
FREE ♦ 

TRACK ♦ 



***************** 



.X* 



IJISKIP X 

*****^2* ♦**♦***** 

* CHANGE ♦ 

* WRKO AND ROKD ♦ 

* CCW TO ♦ 

* TIC ♦ + 8 ♦ 

* IF REQUIRED ♦ 
**********i****.*** 



SEGMENT ♦ 


YES 


TYPE = 10 




.♦ 




*. ,♦ 




*, .* 


X IJIWLR 


♦ NO 


***** 




♦AM * 


• 


* El* 



***************** 



*****Q^ ********** 

* MOVE R0ID CCW * 

* TO NEXT * 

* POSITION IN ♦ 

* CCW BUILD * 

* AREA ♦ 

***************** 



*****^^^* ** ***** ** 

♦ MODIFY RDID ♦ 

♦ COMMAND CODE ♦ 

♦ FOR MULTIPLE * 

♦ TRACK (X«92«J * 

♦ * 
***************** 



IJISKIF 

♦ RESET * 
♦ REQUIRED 



*********** 



*****^2******!**** 

♦ HOVE IDLOC ♦ 

♦ CCHHR FROM ♦ 

♦ FILENAME. I * 

♦ FILENAME. S ♦ 

♦ DTF TABLES ♦ 

**:*************** 



*****(^^********** 

* UPDATE DATA ♦ 

* ADDRESS IN * 
♦VERIFY RDD FOR * 

* NEXT SEGMENT * 

* IF REQUIRED ♦ 
***************** 



IJISVR 

***^^************ 
SVC 
* EXECUTE * 
CHANNEL PROGRAM 
* (READJ ♦ 

************;^**** 



*****^^********** 



* ♦ WAIT ♦ ♦ 

* ♦IF REQUIRED* * 
» ♦ * * 
****************)/^ 



IJISTDL2 

****^Q^*******t*** 

♦SET VERIFY RDD ♦ 
*C€W 8YT£ COUNT * 
♦FOR SEGMENT TO ♦ 
* BE WRITTEN ♦ 

*.**************** 



.X. 
X 
**** 

* * 

* E4 ♦ 

* * 
**** 



X 
.♦* 




tiJISING X 


K4 ♦. 




, *!****t^^********** 


.♦ *. 




* RESTORE LAST ♦ 


.* SEGMENT ♦ 


YES 


* 8 BYTES OF ♦ 


. READ A NULL 
♦ . SEGMENT .* 


...... 


♦ DATA TO ♦ 




♦ PREVIOUS ♦ 


♦ . .* 




♦ SEGMENT ♦ 


*, .* 




***************** 


* NO 




* 


• 




.urswLR 


X 




X 


*♦** 




***** 


* * 




*m ♦ 


♦ A5 ♦ 




* El^ 
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***** 

*AL * 

* B5* 



***** 
*AK * 
* F3* 



*****A1 ********** 

* SAVE SEGMENT * 

* CONTROL FLAG * 
*FOR THIS SEG IN* 

* SEGMENT * 
♦DESCRIPTOR WORD* 
***************** 



*****B1*****»**** 

* RESTORE 8 * 

* DATA BYTES * 

* TO END OF * 

* PREVIOUS * 

* SEGMENT * 
***************** 



.* COMBINED *. NO 
♦SEGMENT LENGTH.*... 
*LTE BLKSIZE* 



*****C2********** 

* SET RDD CCW * 

* BYTE COUNT * 
.X*BLKSIZE+8 MINUS*. 

* COMBINED * 
♦SEGMENT LENGTH * 
***************** 



IJISAFT X 




IJINFIT 


*****A3*** ******* 




*****Ai>********** 


*SET R OF CCHHR * 




* CALCULATE NO. * 


* TO ZERO AND * 




*0F BYTES IN RCD* 


* MOVE TO * 




..X*RLMA1NING TO BE* 


* FILENAME. F * 




* WR TTbN * 


* DTF TABLE * 




* * 


*:tc**«*********;tc*^ 




***************** 

**** * 

* * . 

* B5 *.X. 

* * , 


X 




**** 


.*. 


IJISAFRD 


IJISASRO X 


B3 *. 


***B4************ 


*****B5********** 


« * *. 


SVC 2 


* SAVE DATA * 


,* WRITE *. MO 


* EXECUTE * 


* PORTION OF * 


*. RZERO MACRO .*.... 


,...X CHANNEL PROGRAM 


* RECORD IN * 


*, .♦ 


* (READ ZERO) * 


* SPNUNB AREA * 


*. .* 




* OF DTF TABLE * 


*, ,* 


***************** 


***************** 


* YES 










**** I 
*AN * 






* 61 *.X, 






* * . 






**** 


IJISZER X 


X 


IJIANT X 


****«C3*** ******* 


*****C4********** 


*****C5********** 


*MOVE CCHHO FROM* 


* * * * 


*IJIGET BD* 


* FILENAME. F TU * 


* * SVC 7 * * 


*_*_*_*_*_*_*_*_* 


* FILENAME. K * 


* * WAIT * * 


♦GET SEEKADR FOR* 


* IN DTF TABLE * 


* *IF REQUIRED* * 


* NEXT TRACK * 



*****oi ********** 

*STORE REQUIRED * 

* VALUE IN * 

* BLKSIZE * 

* * 
***************** 



* *.x 



**** 
IJISWLR 

**E1******* 

♦ SET WRONG ♦ 
♦LENGTH RECORD* 

♦ INDICATOR * 
* IN DTF * 

* TABLE * 
*********** 



IJISWLL 

*****P1 ********** 

* CALCULATE * 
*MAX RCD LENGTH * 

* AND INSERT IT * 
IN SEGMENT 



***** 
*AK * 
* F4* 



IJISERF X 

**E2******* 

* SET NO * 
*RECORD FOUND 

....* INDICATOR 
* IN DTF 

* TABLE * 
*********** 



* REFERENCES 
TO AMEl: 
ALKl, ALK5 
BDG4 



***************** 



*****D3* ********* 

* INSERT LOW ♦ 
♦STORAGE ADDRESS* 
♦AND LENGTH OF 8* 

* IN PROPER * 

* ERASE CCW'S * 
***************** 



**E3******* 

* SET CC, SLI * 
*AND DC FLAGS IN*.... 

* FIRST ERASE * 
* CCW * 

*********** x 

***<<* 

*AK * 

* H3^ 

* * 



***************** 



* DESCR. WORD * 


***** 






***************** 


*AK * 
* C4* 






**** I 


* * 


**** 




* * . 


* 


*BD * 




* Gl *.X. 




* C2 *.X 




* * .X.... ...•.• 


• 


* * 
**♦♦ 




**** 




JISWND X 


*. IJISNRF X 


IJISNRM X 


*****G1********** 


**G2******* 


**G3******* 


* * 


, « * 


» SET NO 


* RESTORE * 


* SET NO * 


* ROOM FOUND 


♦ USER ♦ 


♦ RECORD FOUND ♦ 


* INDICATOR 


* REGISTERS * 


♦ INDICATOR * 


* IN DTF 


* * 


* * 


* TABLE 


***************** 


*********** 


***** 


tc***** 



.* WILL * 
* NULL SEG 

FIT ON 
C. TRACK 



G4 *. 

.* WILL ♦. 
* ENTIRE 

RECORD FIT 
*.0N TRACK 



***************** 



♦NUMBER OF BYTES* 


.*NEXT TRACK *. YES 


* REMAINING ON * 


*. ON NEW .*.... 


* TRACK * 


*. VOLUME .* 


* * 


*. . * 


***************** 


*. .* X 




* NO ***** 




. **** , *AN * 




♦AN ♦ . * A3* 




* F5 ♦.X. * * 




* * . * 




**♦* . IJIANV 


X 


.IJIARD X 


*****E4********** 


***E5************ 


* CALCULATE ♦ 


SVC 


♦MINIMUM LENGTH * 


* READ ♦ 


* SEGMENT * 


RZERO OF NEXT 


* IKEYLEN + 8) * 


* TRACK * 


* IF REQUIRED * 




***************** 


***************** 



*****P5********** 

* * * * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

* * * * 
***************** 



.*. 



.* 



G5 
* IS 
THIS 

A NEW 
VOLUME 



****Hl********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



*****J3 ********** 
*INSERT PREVIOUS* 
*I0 FROM RO INTO* 

* SEEKADR AND '■ 

* INCREASE RO » 

* DATA ID BY 1 * 
***************** 



*X. 



*****K3********** 

* MOVE CCHHR, * 

* BLKSIZE, AND * 
*ZERO KEY LENGTH* 

* INTO RO * 

* COUNT FIELD * 
***************** 



IJiSAFIT 

*****H4********** 
♦STORE REMAINING^ 
♦TRACK CAPACITY ♦ 

* IN RO DATA * 

* F I EL D * 

* * 
***************** 



*****J4********** 

* INITIALIZE ♦ 
*CCW BUILD AREA * 

* POINTER WITH * 

* STARTING ADOR * 

* -32 BYTES * 
***************** 



*****K4********** 
*IJISBLD AJ* 
*_*_*_*_*_*_*_*_* 

.* BUILD WRITE * 

* AFTER CCW * 

* STRING * 
***************** 



***** 

*AN * 
* Al* 



*****H5********** 
♦CALCULATE TRACK* 

* CAPACITY * 
*(MAX BYTES/TRK * 

* DEVICE TRACK * 

* CONSTANT) * 
***************** 



**J5******* 

* RESET NEW * 
*VOLUME SW IN * 

*SPNUNB AREA OF * 
♦ DTF TABLE ♦ 

* * 
*********** 



.♦CAN ALL^. 
.♦ REMAINING ♦ 
.BYTES OF RCD 
♦BE WRITTEN.* 



***** 
*AK * 
* H3* 
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***** 

♦AM * 
* G5* 



* A2 * 

* * 
**** 



***** 

♦AM ♦ 

* 05 + 

* * 



*****A1 ********** 
♦ADO 8 BYTES FDR* 

* DESCRIPTOR ♦ 

* WORDS TO RCD ♦ 
♦BYTES REMAINIMG^ 

* * 

*****4c4c:(e:tc:$c*****:^4: 



***3tc4'A2 ♦♦♦♦♦♦♦♦♦♦ 

♦INSERT SEGMENT ♦ 

♦ CONTROL FLAG ♦ 
♦(SEGMENT TYPE* ♦ 

♦ INTO SEGMENT ♦ 

♦ DESCRIPTOR ♦ 
4:**************** 







**** , 






* * , 






* B2 *.X. 






* * .X 


X 


**** . , 


.♦. 


I 


JIAWR X 


Bl ♦. 




*****Q 2 ********** 


.♦ WILL ♦. 




♦MOVE CCHH FROM ♦ 


.♦ REMAINING *. NO 


♦ SEEKADR ♦ 


♦.BYTES TO RCD .♦ 




♦ TO ♦ ...... 


♦FIT ON THE.* 




♦ FILENAME. F ♦ 


♦. TRACK. ♦ 




* * 


♦ . .♦ 


X 


4c**************** 


♦ YES 


***** 

♦AM ♦ 

♦ C5 + 

* * 

[JISANT 




IJIANTl X 




X 


**4E**Ql*******#*;»c 




***C2*** ********* 


♦GET BYTE COUNT ♦ 






* OF BASIC RDD ♦ 




♦ SVC ♦ 


♦ CCW AND SET ♦ 




WRITE 


♦ SEGMENT TYPE ♦ 




* ♦ 


♦ FLAG TO 01 ♦ 







IJIANV X 

*****A3********** 

♦ MOVE ORIGINAL ♦ 

♦ RO DATA FIELD * 
♦INTO FILENAME. K* 
♦AND ZERO NO. OF^ 

♦ 8YTES REMAINING* 

***:«( ******:(c****:«cjje 



*****B3********#i(( 

♦IJIS0V2+6 BF* 
*_*_)((-*-*-*-*-*-* 

♦ SEEK TO ♦ 

♦ ORIGINAL RO ♦ 

♦ TRACK ♦ 
3tC*** ************* 



** :(c :««*****« *:|e :jc 4c 4c * * 



*****oi ********** 
♦SET HOLD IGNORE* 

* SW IN DTF TBL * 
♦SET NO, OF BYTES+ 

* REMAIN. IN RO ♦ 

* DATA * 

3t(«: 4c <!**********«** 



*****E1 ********** 

* MOVE KEYLEhJ ♦ 

* INTO RO COUNT ♦ 

* FIELD * 

* (FILENAME. C» * 

* * 

***********4c***** 



IJIWAFT 

*****P1********** 

♦ CALCULATE RCD * 

♦ LENGTH FOR ♦ 

♦ BASIC RDD CCW ♦ 
♦AND COUNT FIELD* 

♦ (FILENAME. C) * 
***************** 

#*** 



**** 

X 
*****G1 ********** 

♦MOVE CCHH FROM ♦ 

♦ SEEKADR TO * 

* COUNT FIELD ♦ 

♦ (FILENAME. C) * 

* * 
***************** 



*****HI*******3ic** 
♦IJISBLD AJ* 
*_*_*_*_*_*_*_*_* 

* BUILD WRITE * 
♦AFTER CCW CHAINS 

* IF REQUIRED * 
***************** 



IJIAFS 

**JI******* 

* CHANGE * 

* COMMAND * 
* CODE IN BASIC 

* RDD CCW TO * 

* WRITE * 
*********** 



*****Ki********** 
♦INIT. BLOCK AND* 
♦SEG DESCRIPTORS* 

* i^ITH LENGTHS OF^ 

* SEGMENT TO ♦ 

* WRITTEN * 
***************** 



***************** 



*****02********** 

* * * * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

* * * * 
***************** 



*****E2********** 
♦IJISSVCF BF* 
*_*_*_*_*_*_*_*_* 

* FREE TRACK * 

* IF REQUIRED ♦ 

***************** 



* IS 
THIS 
A NEW 
VOLUME 



.* 
,* 
NO 



IJIAEII 

*****G2********** 

* MOVE X'OO' TO * 

* KEY LENGTH * 

* BYTE IN * 

* COUNT FIELD * 

* (FILENAME. C) * 
***************** 



*****H2 ********** 



***************** 



.♦RMAINDR*. 
.* OF RECORD *. YES 
*.GT LAST DASD .*.... 
*.SEG WRITN.* 



IJIAFX 

**K2******* 

♦RESET HOLD * 

♦IGNORE SW IN 

* SPNUNB AREA 

*0F DTF TABLE 



*****03********** 
♦SUBTRACT LENGTH* 

* (LLJ OF LAST * 

* SEG. WRITTEN * 
♦FROM RCD BYTES * 

* REMAINING * 
***************** 



IJIAFT2 

*****E3********** 

*GET NEXT RECORD* 

* LENGTH AND * 
♦NUMBER OF BYTES* 

* REMAINING * 

* ON TRACK * 
***************** 



**P3******* 

* * 

* SET SEGMENT 
* CONTROL FLAG 

* TO 10 OR 11 

* * 
*********** 



IJIAFG 

*****G3*** ******* 

♦IJI6ET BD* 

*_*_*_*_*_*_*_*_* 

* GET SEEKADR ♦ 

* FOR NEXT * 

* TRACK * 
***************** 



*****H3 ********** 

* MOVE CCHHR * 

* FROM NEW * 

* SEEKADR TO *. 

* RO DATA FIELD * 

* (FILENAME. K) * 
***************** 



iJIANVL X 

*****D4********** 
*IJIGET BD* 
*_*_*_*_*_*_*_*_* 



***************** 



E4 ♦. 

.♦IS NEXT*. 
* SEEKADR= *. 

NEW VOLUME . 
*. SEEKADR .* 



*****P4********** 

* MOVE SEEKADR * 

* TO RO DATA ♦ 

* FIELD * 

* (FILENAME.K) * 

* * 
***************** 



*****E5 ********** 
♦ADD KEYLEN + 4 * 

* (FOR BLULK * 
.X*DESCRIPTOR> Tu * 

* RECORD DATA * 

* LENGTH * 
***************** 



*****Fi, ********** 
♦IJIS0V2+6 BF* 
*_*_*_ *_ *_*_*_*_* 

♦CHANGE SYMBOLIC* 

* UNIT ADDRESS * 

* IN CCB * 
***************** 



X 
***** 

♦AM * 

♦ E5* 



*****(-! 4********** 
♦UPDATE WRD CCW * 
* DATA ADDR AND * 
X* BYTE CNT WITH * 
*ADDR AND LENGTH* 
♦OF NEW SEGMENT * 
***************** 



*****J4********** 

* SET R BYTE * 

* IN RO COUNT * 

* FIELD TO * 

* X'Ol* * 

* (FILENAME. CJ * 
***************** 



*********** 



****(<3********* 

* RETURN TO ♦ 

* PROBLEM ♦ 

* PROGRAM * 
*************** 
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* * 

* A3 * 

* * 
♦ *** 



♦*♦* 

* * 

* A5 * 

* * 



* DAMODV ♦ 

* WAITF MACRU * 

* * 



* STORE * 

* USER * 

* REGISTERS * 
« * 



.* IS *. 

,* RECORD *. yES 
*OUT OF EXTENTS.*.... 
♦. AREA .* 



RECFORM *, NO 
*= SPNUNB .*. .. 



*ac * 

* A3* 



*B2 
DAMODV MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



IJISXTFD X 

♦MOVE SECOND CC6* 

* TRANSMISSION * 

* BYTE TO DTP * 

* ERROR/STATUS * 

* INDICATOR * 



*****C2********** 



it^t**************t 



C3 *. 


)(f#C4# ***♦♦* 


* *, 


* SET NO 


WAS *. YES 


♦RECORD POUND 


NO RECORD .* 


..X* INDICATOR IN 


FOUND .* 


* DTF TABLE 



:)filtt******** 



RECFORM *. 
= SPNUNB 

*B2 .* 



.* SPNUNB *„ 
. OR IDLOC 
♦.SPECIFIED.* 



♦ INITIALIZE * 

♦ POINTER WITH * 

♦ STARTING ADDR ♦ 
♦OF SPNUNB AREA ♦ 

♦ IN DTP TABLE ♦ 



*« SET eov 

INDICATOR IN 
* DTF TABLE 
* ♦ 

4!«4( «}((♦♦♦♦♦♦ 



IJISNRTO *♦. 

E3 ♦. 
. ♦ NO ♦ . 
NO .♦ RECORD ♦. 
...♦FOUND OR TRACK-^ 
♦ .OVERFLOW .♦ 



MO .* RECFORM 
,..♦. = SPNUNB 
♦ . ♦Ba 



♦ RESET ♦ 

♦ ALL SPNUNB ♦ 
.X+SWITCHES EXCEPTS 

♦ RELATIVE ♦ 
♦ADDRESSING ♦ 



IJISICL 

♦ SET * 

♦ INCORRECT 
♦ LENGTH IND 

♦ IN DTF 

♦ TABLE ♦ 



♦*F 5 ♦**♦♦*♦ 
♦SET EN0-OP-+ 

♦ CYLINDER ♦ 
INDICATOR IN 

♦ DTP TABLE ♦ 
♦ ♦ 



♦ SET ♦ 

♦ NO-RECORD- 
* FOUND IND 

♦ IN DTF 

♦ TABLE ♦ 



FEOVD 


♦ . 


ITES 


* YES 


.♦ 




♦ B2 


♦ 




♦ . .♦ 






♦ . .♦ 




X 


* NO 




♦ B6 ♦ 

♦ A5+ 
♦ ♦ 

♦ 


X 






**j3******# 




SET 


♦ 




END OF 


* 




FILE 


♦ 




SWITCH 


♦ 





:4t4<>)c**«««««^ 



♦**** 

♦BB ♦ 
♦ AI* 
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Chart BB. DAMODV WAITf Macro (2 of 3) 



*BA * 

* H3* 

* * 



X 
***** 

*BC * 
* Bl* 



Bl *. 

.* *. 

.* WRITE *. 

*AFTER OR WRITE. 

*. RZERO .* 

*. .* 

*. »* 

* NO 



***** 
*BC * 

* B4* 



* * 

* UPDATE IDLOC * 
X* TO NEXT * 

* CYLINDER * 

* * 



**** 

* * 

* 63 * 

* * 
***♦ 



IJISMID 

*«4c**Gl ********** 

* MOVE RECORD * 

* ID INTO USER * 

* IDLOC FIELD * 

* IF REQUIRED * 

* * 
4c«*4c ***:«(*« 4c****** 



***** 
*BC * 
* B4* 



***** 
*BC * 
* Bl* 



****A3 ********* 

* DAMODV * 

* CONVERT * 

* SUBROUTINE * 

*«:« «*«*#*««**«:»: 



**** 
IJISNIDl X 

*****B3********** 

* * 

* CONVERT CCHH * 

* TO RELATIVE * 

* ADDRESS TTT * 

* * 
*««««*«********** 



*A4 
DAMODV MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 

**** 



C3 *. 




.*RECFORM*, 




= SPNUNB * 


, YES 


AND IDLOC = 


*.... 


. BLANK .* 




*. *A4 .* 




*. .* 


X 


* NO 


***** 




*dD * 


. 


* Fl* 



:4(«g4**«9e(:(c«* 

* * 

SET 

EOF 

SWITCH 

* * 

:«c:(c««**«*«:((4c 



**** 

* * 

* Al * 

* ♦ 
**** 



READ 

KEY 

ISSUED 



KEY 
LENGTH 

= 



R EC FORM 

= SPNUNB 

*A4 



*****P3 ********** 
*ADD RECONVERION* 

* FACTOR TO * 
♦CONVERTED CCHHR* 

* TO GET REL * 
*ADDR TTT VALUE * 
***************** 



*****{-l3 ********** 

* APPEND R TO * 

* TTT AND MOVE * 

* TTTR TO USER * 

* IDLOC * 

* * 
***************** 



*****G4********** 

* CONVERT R * 

* TO DECIMAL * 
X* IN USER * 

* IDLOC * 

* * 
***************** 



*****H4********** 

* CONVERT TTT * 

* VALUE TO * 

* DECIMAL IN * 

* USER IDLOC * 

* * 
***************** 



***** 

*BC * 
* Bl* 



*****D5 ********** 

* * 

* SET CCW ♦ 

* FOR READ * 

* COUNT * 

* * 
***************** 



.*. 


IJIREAD X 


E4 *. 


*****£»,********** 


* IS *. 


* * SVC u * * 


IJIGET *, 


* * READ * * 


SW N DTF .* 


* * COUNT OF * * 


ON .* 


* * EOF READ * * 


*. .* 


* * * * 


*. .* 


***************** 


* YES 




*X. ......... 




X 




***** 




*BD * 


X 


* Fl* 


.*. 


* * 


F5 *. 


* 


.* *• 


IJIGETl 


NO .* ONE *. 




...*. BYTE .* 




*. KEY .* 




. ♦. .* 




X *. ,* 




**** * YfcS 



**G5******* 

* * 
SET 

FEOV 
SWITCH 

* * 
*********** 
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chart BC. Di^.MODV WAITF Macro ( 3 of 3) 



***** 

*BA * 
* A3* 



REFERENCES 
TO BCBl: 

B8A1, BBHl 
BBH3 



**A3******* 
*SET SECOND * 
♦ERROR/STATUS 
* iND BYTE IN 
* DTF TABLE 
* TO X«00» * 
*********** 



REFERENCES 

TO BCB4: 
8BD1, BBHl 



IJISJCK X 

*****Bl*******«** 

* MOVE ERROR * 

* BYTES FROM * 

* DTF TO USER * 

* ERROR/STATUS * 

* INDICATOR * 
***************** 



*B2 
DAMODV MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



lOLOC 

= BLANK 
*B2 



**** 

* * 

* F4 * 

* * 
**** 



*****03 ********** 
♦MOVE DTF ERROR/* 

* STATUS BYTES * 
*T0 USER ERROR/ * 

* STATUS IND. * 

* (ERRBYTE) * 
***************** 



.*. 

El *. 

.* IS *. 

* LENGTH OF * 

RECORD READ 
♦.BLKSIZE-4.* 



**E2******* 

* TURN ON * 
♦WRONG LENGTH 

♦ RECORD 

* INDICATOR 

* * 
*********** 



*****PX ********** 

* * 

* RESTORE BYTE * 

* COUNT (4 IN * 

* BASIC SRCHHAE * 

* * 
***************** 



*****G1********** 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****04*«******** 

* * 

* MOVE ALL * 

* C'G' TO * 

* IDLUC * 

* * 
***************** 



IJISRTER X 

*****E4********** 

* MOVE ERROR * 

* BYTES FROM * 

* DTF TO USER * 

* ERROR/STATUS * 

* INDICATOR * 
***************** 

**** * 

* * . 

* F4 *.X. 

* * 
***♦ 

X 
*****P4********** 

* * 

* RESTORE * 
...X* USER * 

* REGISTERS * 

* * 
***************** 



* G4 *.X. 

* * , 
**** 

IJISTNR X 

**g4******* 
* RESTORE * 
* DTF MACRO 

* SWITCH TO 



*****D5********** 

* MOVE ALL * 

* X'FF" TO * 

* IDLOC * 

* * 
***************** 



X'OO" 

* * 

*********** 



**H5******* 

* TURN ON * 

♦UNRECOVERABLE* 

.X* I/O ERROR BIT * 

* IN ERROR/ * 

*STATUS IND * 

*********** 



****J4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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chart BD. DAMODV: Get Subroutine 



* DAMODV * 

* GET * 

* SUBROUTINE * 



IJIGSKE X 

**A2******* 

* RESET ALL ♦ 

* SPNUNB 

* INDICATORS 

* EXCEPT REL 

* ADDR * 



JIGET X 


X 


.*. 


*****B1 ********** 


:iiiiiQ 2* ****** 


B3 *. 


* * 


*SET RECORD * 


.*SEEKADR*. 


* STORE * 


*OUT OF EXTENT* 


NO .* TTT 


* RETURN * 


* AREA IND IN * 


X..*. EXTENT LOWER 


* ADDRESS * 


♦ERROR/STATUS * 


*. LIMIT . 


* * 


* INDICATOR * 


*, ,* 


***************** 


*********** 


*. . * 



**C;,1******* 

* TURN ON * 
IJIGET SW 
IN SPNUNB 

AREA OF DTF 

* TABLE * 
*********** 



*****0I********** 

* GET ADDR OF * 

* CCHH FROM * 

* SEEKADR AND * 

* ADDR OF * 

* DSKXTNT TABLE * 
***************** 



* CONVERT CCHH * 

* TO RELATIVE * 

* ADDRESS TTT * 
***************** 



IJISNRMU 

*«***C2* ** ** ***** 

* RESTORE FULL * 

* RECORD LENGTH * 

* TO SEGMENT * 
♦DESCRIPTOR WORD* 

* IN I/O AREA * 
***************** 



***** 
*AM * 
* G3* 



NO .*SEEKADR B2 *. 
, ..*EQUALS DSKXTNT. 
*. 82 .* 



* CALCULATE * 

* EXTENT UPPER * 

* LIMIT * 

* * 
***************** 



03 *. 

.♦COMPARE*. 

GT .* SEEKADR *. LT 

,.X*.TTT TO EXTENT.*... 

*. UPPER .* 

*. LIMIT.* 



♦****A5 ********** 

* CALCULATE * 

* CONVERS. TERM * 

* (TTT OF CURR. * 

* EXTENT, TTTi * 

* OF PREV. fcXTJ * 
***************** 



*****B5********** 

* STORE * 

* CONVERSION * 

* TERM IN * 

* FILENAME. X * 

* ♦ 
***************** 



♦****C 5********** 

* GET TTTI OF * 

* NEW EXTENT * 

* FROM DSKXTNT * 

* TABLE ENTRY * 

* * 
***************** 



*****04********** 



.IJIGCH 

*****05********** 
*IJiOVCH BF* 

*-*-*-*_*_*-*-*_* 



***************** 



♦*** 








* * 


* 


REFERENCES 


* * *.x 




TO 


3DF1: 


* * 




BBC3, 


BBE4 


**** 








IGFTl X 






*****F1********** 






* 




* ZERO 


* 




* REG STER * 




* IJ 


\RR 


* 





**** 




X 


IJIGSKBl 


*. 




E3 


*. 




.*IS 


THIS*. 


YES 


* THE 


LAST 


... * 


EXTENT ENTRY 




*IN DSKXTNT. 




*. TABLE.* 


X 


* 


. * 


**** 




* NO 


* 






A2 * 






* 






**** 




. 



***************** 



.* SEEKADR 
. M EQUALS 
*. DSKXTNT M 



* 03 *X.. 

* * X 
**** 

IJIGTTT 

*****Hl ********** 

* SAVE * 

* CUMULATIVE * 

* TOTAL TRACKS * 

* (TTT2 FROM * 
♦DSKXTNT TABLE) * 
***************** 



*****jl ********** 

* * 
♦UPDATE DSKXTNT * 

* ADDRES^S TO * 

* NEXT ENTRY * 

* IN TABLE * 
***************** 



YES .* SEEKADR M ♦ 
...*. EUUALS NEXT 
♦.DSKXTNT M.^ 



G3 ♦. 


**G4******* 


.* *. 


* RESET ALL ' 


.* WRITE *. NO 


* SPNUNB 


. AFTER MACRO .*..... 


...X^ INDICATORS 


*. .* 


* EXCEPT REL 


*, ,* 


* ADDR 


♦ - .* 


*********** 


* YES 






X 




***** 




♦ AM * 


X 


* El* 


**H3 ******* 


* * 


* SET NEW * 


* 


♦ VOLUME IND ♦ 


IJIWLR 


IN SPNUNB * 




* AREA IN DTF * 




* TABLE * 




*********** 





***************** 



*****E5********** 



***************** 



*****P5********** 

* * 

* RESTORE * 

* RETURN * 

* ADDRESS * 

* * 
***************** 



**G5 ******* 

* RESET * 

* IJIGET SW 
* IN SPNUNB 

* AREA OF UTF 

* TABLE * 
*********** 



****H5********* 

* RETURN TO ♦ 

* CALLI NG RTN * 

* IN DAMODV * 
*************** 



IJIGNXT 

*****J3 ********** 

* MOVE M AND B2 * 

* FROM NEXT * 

* EXTENT ENTRY I N^ 

* DSKXTNT TBL * 

* TO SEEKADR * 
***************** 



**** 

* * 

* A2 * 

* * 
**** 
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Chart BE. DAMODV: Seek overlap Subroutine (1 cf 2) 



* * 

* A4 * 

* * 



****A1 ********* 

* DAMODV * 

* SEEK OVERLAP * 

* SUBROUTINE * 

^ :«: 3f « « :«( 3)c :« sjc «: 4: * << )tc * 



IJISUVP .*. 

Bl *. 
.*RELTRK *. 
.* = BLANK *. YES 
*. AND RECFORM .*..♦. 
*.NE SPNUNB.* 



*. ,* 



***** 
*BF * 
* C3* 



*****B3*** ******* 

* CONVERT ♦ 

* TTTTTTTTRR * 

* ADDRESS * 

* TO TTTR * 

* * 
***************** 



*****/^4********** 

* SUBTRACT TTT2 * 

* OF CURRENT * 

* DSKXTNT ENTRY * 

* FROM UPDATED ♦ 

* SEEKADR TTT * 
***************** 



.* SEEKADR *. 
.*WITHIN CORRECT.* 
*. EXTENT .* 



.* VARUNB * 


. NO 


*. REL ADDR 


.*.... 


*. SPECIFIED.* 




*. .* 




*, .* 


X 


* YES 


***** 




*BF * 


.... ...xl 


* C3* 




* * 




* 




IJIS0V2 


X 




*****P1 ********** 


* GET ADDRESS 


* 


* OF SPNUNB 


* 


* AREA IN 


* 


* DTF TABLE 


* 



***************** 



IJISOVI 

*****J2*** ******* 

* MOVE USER * 

* SUPPLIED * 
...X* SEEKADR TO * 

* FILENAME. S * 

* IN DTF TABLE * 
***************** 



***** 
*BF * 
* C3* 



*****C3 ********** 

* STORE R VALUE * 

* IN R BYTE OF * 

* SEEKADDR * 

* (FILENAME. S) * 

* * 
***************** 



IJISCMC X 

*****03********** 

* INITIALIZE * 

* DSKXTNT TABLE * 

* POINTER TO * 
*START OF TABLE * 

* (FILENAME. Xj * 
***************** 



* SAVE TTT * 

* VALUE FROM * 

* SEEKADR * 

* * 
***************** 



*****P3 ********** 
*ADD TTT2 VALUE * 

* FROM PREVIOUS * 

* DSKXTNT ENTRY * 

* TO TTT VALUE * 

* FROM SEEKADR * 
***************** 



*****G3 ********** 

* * 
*UPDATE DSKXTNT * 

* TABLE POINTER * 

* TO NEXT ENTRY * 

* * 
***************** 



*****(;.4********** 

* STORE DSKXTNT * 
♦ENTRY M AND B2 * 

* VALUES IN * 

* SEEKADR * 

* (FILENAME. SJ * 
***************** 



*****P4********** 



***************** 



*****E4********** 
*ADD SEEKADR TTT* 

* VALUE TO TTTl * 

* FROM DSKXTNT * 

* ENTRY TO GET * 

* RECORD TTT * 
***************** 



***** 
*8F * 
* Bl* 



.♦CURRENT*. 
* ENTRY THE * 

LAST IN 
*. TABLE .* 



**J3******* 

* TURN ON * 

* RECORD OUT * 

*0F EXTENT AREA ■■ 

♦INDICATOR IN * 

« DTF TABLE * 

*********** 
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Chart BF. DAM0D7: Seek Overlap Subroutine (2 of 2) 



♦ * 

* A3 * 

* * 



* * 

* A4 * 

* * 



****A1********* 

* DAMODV * 

* CHECK OVERLAP * 

* SUBROUTINE * 



* CI 

ALTERATION 

♦.FACTOR = . 

♦ . 1 .* 



* DIVIDE RECORD * 

* TTT VALUE * 

* (DIVIDEND) BY * 

* CI ALTERATION! * 

* FACTOR * 



♦STORE QUOTIENT * 

* (HIGH ORDER * 

* REGJ IN CI * 

* SEEK ADDRESS * 

* (ACTUAL) * 

:^:ii:ii^f:f ************ 



^c***1tfEl********** 

* RESTORE * 
♦REMAINDER (LOW * 

* ORDER REG) * 

* NEW DIVIDEND * 

* * 
Hf^Hfit'************* 



IJISGV2 

* DIVIDE * 

* DIVIDEND By * 

* C2 ALTERATION! * 

* FACTOR * 

* * 



♦STORE QUOTIENT ♦ 

♦ (HIGH ORDER ♦ 

♦ REG) IN C2 ♦ 

♦ SEEK ADDRESS ♦ 

♦ (ACTUAL) ♦ 
***************** 



,* HI *. YES 

». ALTERATION ...... 

♦.FACTOR = .♦ 



*****A3+*^++^^^*+ 
♦STORE QUOTIENT ♦ 

♦ (HIGH ORDER ♦ 

♦ REG) IN HI ♦ 

♦ SEEK ADDRESS ♦ 

♦ (ACTUAL) ♦ 

**** 



♦ B3 *.X 



**** 

IJISDV3 X 

:t:if:^llf4'B3 ********** 

♦ STORE ♦ 
♦REMAINDER (LOW ♦ 

♦ ORDER REGT ♦ 

♦ H2 IN SEEK ♦ 

♦ ADDR (ACTUAL) * 

:(c 4c«3tc 4::*' «* ** :(e« «««! #4e 



REFERENCES 
TO BFC3: 
BEBl, 8EE1 



**** 



* *.X 



♦D2 
DAMODV MACRO 
PARAMETER OPTION " 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



**** 
IJIS0V2 X 

3ic4:»c;|c:ieC3^^^^^^^^^^ 

♦ INITIALIZE ♦ 
♦CCW BUILD AREA ♦ 

♦ POINTER WITH ♦ 

♦ STARTING ADDR * 

♦ -32 BYTES ♦ 
3>i:te****** ********* 



IJIS0V2£6 X 

:j<#4s*:t'03 ♦♦♦♦♦♦♦♦♦♦ 

♦ OBTAIN ♦ 

♦ SEEKADR * 

♦ FROM SEEK ♦ 

♦ CCW ♦ 

♦ * 

:tf:ii****iii:tL****i>^:lP*** 



♦ DETERMINE NEW ♦ 

♦ SYMBOLIC UNIT ♦ 

♦ (M) ADDRESS ♦ 

♦ AND STORE ♦ 

♦ IN CCB ♦ 

:{(:((« 4: 4c* :«<« ♦4: * ^c =«<3»:« ♦♦ 



**!j<*G3«** ****** 

* DAMODV * 

* SVC ♦ 

* SUBROUTINE ♦ 
«4c************* 



.♦ HOLD 
= BLANK 
*, *D2 



YES .♦ RECFORM 
...*. = SPNUNB 
♦ . *D2 



.♦ HOLD ♦. YES 

♦.IGNORE SWITCH.^.... 

♦. SET .♦ 



.* TRACK *. NO 
. HOLD OPTION .*... 
♦ .SPECIFIED.* 



♦ ♦ SVC 36 * ♦ 

* * FREE ♦ ♦ 

♦ * TRACK ♦ ♦ 

* * * * 
***************** 



♦♦♦♦♦^^^♦♦♦♦♦♦♦♦♦^ 

* * * * 

* * SVC 35 ♦ ♦ 

* * READ AND ♦ ♦ 

* * HOLD ♦ ♦ 

* * ♦ * 
***************** 



* SVC * 
EXECUTE CHANNEL 
♦ PROGRAM * 

***************** 



*****J1 ********** 

♦ RESTORE ♦ 
♦REMAINDER (LOW ♦ 

* ORDER REG) ♦ 

♦ NEW DIVIDEND ♦ 

* * 
***************** 



*****Kl***^^^^*** 

♦ DIVIDE ♦ 

♦ DIVIDEND BY ♦ 

♦ HI ALTERATION ♦ 

♦ FACTOR ♦ 

♦ * 
***************** 



***************** 



****K4* ******** 

* RETURN TO ♦ 
♦CALLING ROUTINE^ 

* * 
*************** 
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Chart BG. $$BOD;viN: EA Open Input/Output (1 cf 3) 



****A1********* 

* * 

* $$B0DAIN * 

* * 

* :tc4( ;{<:«( :i(4t3jc :«c :«( 4c :tc <( >tc :«( 



*****B1********** 



* * 


.* *. 






.* IS *. 




.* ♦. 








* INITIALIZE * 


.* RETURN ♦ 




I'ES 


.* UNIT 


*. YES 


. * UN I T 


*. YES 




* BASE * 


*,FROM MESSAGE 
*. ROUTINE .* 


.♦ 




*. UNASSIGNED 
*. IGNORED . 


^m 


..X*. UNASSIGNED 


.*.•.. 






* REGISTERS * 


* 






* * 


*. .* 






*. .* 




♦ . .* 








****♦*♦♦****«**** 


*, ,* 
* NO 




X 

*BJ * 

* B4* 

* * 

* 


*. .* 
* NO 




* NO 




**** 
*BH * 

* Al *.X 

* * 








TSTOUT 










**** 




DTF X 


X 




BELOWFE X 




X 




BADASSIN X 


*****ci********** 


♦♦♦**C 2********** 




**C3******* 




**C4******* 


«***«C5********** 


* * 


* 


* 




* 


* 


* 


* 


* SET UP TO * 


* SAVE DTF * 


* GET ADDRESS 


* 




♦ SET OFF 


* 


* SET ON 




* ISSUE * 


* TABLE * 


* OF DLBL 


* 




* IGNORE 


* 


* IGNORE 


* 


* MESSAGE * 


* ADDRESS * 


* 


* 




* BIT 


* 


* BIT 


♦ 


* 46831 * 



***************** 



* * 

* PUT CCW * 

* ADDRESS IN * 

* CCB * 

* * 



*«**♦£!*********« 



***************** 



*****pi«********* 

* * 

* CALCULATE * 

* ADDRESS * 

* OF DLBL * 

* * 
***************** 



♦****G1********** 



***************** 



*****Hi********** 

* * 

* CALCULATE * 

* FIRST EXTENT * 

* ADDRESS * 

* * 
***************** 



*****jl ********** 

* COMPUTE ♦ 

* END-OF-EXTENT * 

* STORAGE AREA * 

* AND SAVE * 

* * 
***************** 



*****Ki ********** 

* * 

* ENTER * 

* MESSAGE * 

* CODE * 

* * 
***************** 



***************** 



*****D 2*** ******* 

* PICK UP * 

* NUMBER OF * 

* EXTENTS * 

* * 
***************** 



ANY 

EXTENTS 

LEFT 



.* 



F2 *. 
IS * 
SYMBOLIC 

UNIT IN 
EXTENT 



*****g 2* ********* 

* * 

* MOVE SYMBOLIC * 

* UNIT FROM DTF * 

* TO EXTENT * 

* * 
***************** 



PNTCCB 

*****H2********** 

* MOVE * 

* SYMBOLIC 

* UNIT TO 

* CCB * 

* * 
***************** 



*X. 



*****J2********** 
*FIND LUB ENTRY * 

* FOR LOGICAL * 
*UNIT SPECIFIED * 
*IN FIRST EXTENT* 

* USING SYSIR * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 



*********** 



**** *03 ********** 

* INITIALIZE * 

* POINTER TO * 

* PUB * 

* * 
***************** 



*****E3 ********** 

* INITIALIZE * 

* FOR DEVICE * 

* TEST * 

* * 
***************** 



***** 

*BH * 
* AL* 



*********** 



****D4.********* 

* SVC 2 * 

* FETCH * 

* $$BOPfcN * 
*♦********«**♦* 



***************** 



MSG2 X 

*****D 5********4* 

* SET UP TO * 

* FETCH ♦ 

* MESSAGE * 

* ROUTINE » 

* * 
***************** 



****E5*«******* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



REFERENCES 
TO BGH2: 
BHF2, BJH3 
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Chart BH. $$BODi^IN: EA Open Input/Output (2 cf 3) 



***** 

*BG ♦ 
* E3* 



***** 
*BG * 
* C5* 



.♦ALTERATION 
*. FACTORS 
*. FILLED . 



*****C l****4::(c«*** 

* GET ADDRESS * 

* OF POINTER * 

* TO DSKXTNT * 

* TABLE * 

* * 

*«*********;(E4(:te*** 



«****B5********** 

* PICK UP NEXT * 

* CHARACTER IN * 

EXTENT AND 

ALTERATION 



.♦ RELATIVE *. NO 
*. ADDRESSING .*... 
♦.SPECIFIED.* 



****«p !******«*** 

* * 

* GET ADDRESS * 

* OF DSKXTNT * 

* TABLE ♦ 

* * 

**4c:«c************* 



*****Gl*****«***3tt 

♦ MOVE ♦ 

♦ ALTERATION » 

♦ FACTORS FOR * 

♦ DEVICE TO ♦ 

♦ DSKXTNT TABLE ♦ 
***************** 



**** 

* * 

* C3 * 

* * 
***♦ 



***♦ 






♦ FACTOR * 


« * 






***************** 


♦ C3 ♦ 








* * 








**** 






I 


AROUND X 






X 


**C3*«^^#** 






C5 ♦. 


♦SET SWITCH ♦ 






,* *. 


♦ TO INDICATE ♦ 






NO .♦ LIMIT *. 


* ALTERATION ♦ 






..,*. ALTERAT UN .* 


♦ FACTORS * 






♦.COMPLETED.* 


♦ FILLED IN ♦ 






*, .* 


****4c ****;«(« 






X ♦. .♦ 
**** * YES 


♦ *** 1 






* * 


* * . 






* G4 ♦ 


♦ D3 ♦.X. 






* * 


* * . 






**** 


***♦ X 








COMPNXT .*. 


INPUT 




X 


D3 ♦. 






*****(;)5********** 


,* *. 


****04****«**** 


* ADD H2 ♦ 


.♦ OUTPUT ♦. NO 


* 


SVC 2 ♦ 


♦ VALUE TU ♦ 


*. FILE ,*.... 


....X* 


FETCH * 


♦ ACCUMULATOR * 


♦ . .♦ 


* 


$$B0DAI1 ♦ 


♦ REGISTER ♦ 


♦. .♦ 


:ic***:)c ********** 


* * 



***************** 



NORELAD X 




.*. 




X 


*****££♦♦♦♦♦♦♦♦♦♦ 




E3 *. 




*****E5********** 


* ♦ 




,* *, 




* * 


* GET ADDRESS * 




.* FIRST *. NO 




* PICK UP NEXT * 


* OF NEXT ♦ 




♦.TIME THROUGH .*..... 




♦ CHARACTER ♦ 


♦ EXTENT ♦ 




♦. ROUTINE .♦ 




♦ IN EXTENT ♦ 


* * 




*. ,* 


**** 


* * 


***************** 




♦ . .♦ 
* YES 


, * * 

* F4 ♦ 

* * 
**** 

... .......xl 


***************** 


I 








X 




X 


.♦. 




X 


LLhAR X 


.♦. 


F2 ♦. 




*****P3********** 


*****P4********** 


F5 ♦. 


.♦ ♦. 




* SAVE ADDRESS ♦ 


♦ INITIALIZE TO ♦ 


.♦ UPPER ♦. 


.* END ♦, NO 


* OF ALTERATION * 


♦CONVERT EXTENT * 


.* LIMIT *. YtS 


♦. OF EXTENT .♦ 




♦ FACTORS IN ♦ 


* LIMIT FROM ♦ 


♦. CONVERSION .*.... 


♦. AREA .♦ 




♦ DSKXTNT ♦ 


♦ ACTUAL TO ♦ 


♦. SWITCH .♦ 


*, ,* 




* TABLE ♦ 


* RELATIVE ADDR ♦ 


♦. ON .♦ 


*. .♦ 


X 


***************** 


***************** 


*. .* X 


♦ YES 


***** 






* NO ***** 




♦EG ♦ 




**** * 


*BJ * 




♦ H2* 




* * . 


♦ ESl* 


X 


* * 




♦ G4 ♦.X. 


* * 


***** 


* 




* * , 


. ♦ 


*BJ ♦ PNTCCB 




**** 


UPPfcKLT 


♦ B4* 




X 


MDRXTNT X 


X 


* * 




*****G3********** 


*****G4********** 


*****G5********** 


* 




* * 


* * 


* * 


T STOUT 




♦ GET ADDRESS ♦ 


♦ PICK UP ♦ 


♦ SAVE TTTTl ♦ 






♦ OF DISK ♦ 


♦CHARACTER FROM ♦ 


* IN TEMPORARY * 






* EXTENT TABLE ♦ 


♦ EXTENT ♦ 


♦ LOCATION ♦ 



***************** 



*****H3*** ******* 

♦ MOVE SYMBOLIC ♦ 

♦ UNIT NUMBER ♦ 

♦ FROM EXTENT ♦ 

♦ TO COMPARE ♦ 

♦ AREA ♦ 
***************** 



**J3++^^^^+ 
♦SET SWITCH * 

♦ TO INDICATE 

NOT FIRST 

♦ TIME 

♦ THROUGH ♦ 
*********** 



***************** 



*****H4********** 

♦ MULTIPLY * 

♦ CHARACTER BY ♦ 

♦ CORRESPONDING ♦ 

♦ ALTERATION ♦ 

♦ FACTOR ♦ 
***************** 



*****J4********** 

* * 

♦ ADD RESULT ♦ 
♦TO ACCUMULATOR ♦ 

♦ REGISTER ♦ 

* * 
***************** 



***************** 



**H5******* 
♦SET SWITCH * 

* TO INDICATE 
UPPER LIMIT 

♦ CONVERSION 

* * 

*********** 



***•* 

* * 

♦ F4 ♦ 
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Caax'c BJ. $$BCD;^IN: EA Oper Input/Output (3 cf 3) 



.* FIRST * 

.* EXTENT 
. OF FIRST 
*. VOLUME 



LABADR 

*SeT SWITCH * 

* TO INDICATE * 
* NOT FIRST 

* EXTENT OF * 
♦FIRST VOL. * 

*********** 



.* ARE ' 
NO .* THERE 
,..*, USER 

*. LABELS 



♦INCREMENT LOWER* 
♦LIMIT RELATIVE * 
*AOOR (TTTl) TO * 

* BYPASS USER * 

* LABEL TRACK * 



SYMaOLIC *. YES 
UNIT .*... 

, EQUAL .* 



* MOVE NEW * 

* SYMBOLIC * 

* UNIT NUMBER * 

* TO COMPARE * 

* AREA * 
***************** 



**»**[) 2 ********** 

* INCREASE * 

* PACK NUMBER * 
,* (M! COUNT * 

* BY ONE * 

* * 
***************** 



STORE 

* INCREASE * 

* UPPER LIMIT * 

* RESULT VALUE * 

* BY 1 * 

* * 
***************** 



* COMPUTE * 

* TOTAL TRACKS * 

* IN CURRENT * 

* EXTENT * 

* * 
***************** 



♦*;***H1********** 

* ADD TOTAL TRK * 

* OF EXTENT TO * 

* ACCUMULATED * 

* TOTAL * 

* * 



* PUT * 

» ACCUMULATED V 

* TTT2 VALUE * 

* IN DSKXTNT * 

* TABLE * 
***************** 



*****B3 ********** 

* PUT LOWER * 
♦LIMIT RELATIVE * 
♦ADDRESS (TTTll * 

* IN DSKXTNT * 

* TABLE * 
***************** 



*****C3* ********* 

* PUT CELL * 

* NUMBER IN * 

* DSKXTNT * 

* TABLE * 

* * 
***************** 



**D3******* 

* TURN OFF * 

* UPPER LIMIT 
♦ INDICATOR 

* SWITCH 

* * 
*********** 



♦****E3 ********** 

* PUT PACK (M) * 

* NUMBER IN * 

* DSKXTNT TABLE * 

* * 
***************** 



INCREMNT 

*****P3********** 

* INCREASE * 

* POINTER TO * 

* DISK EXTENT * 

* TABLE BY * 

* 8 * 
***************** 



*****G3* ********* 

* PICK UP * 

* ADDRESS OF * 

* NEXT * 

* EXTENT * 

* * 
***************** 



**** 

* * 

* 04 * 



* GET ADDRESS * 

* OF FIRST *X 

* EXTENT * 

* * 
***************** 



COBOL 
IGNORE 
OPTION 



#*[)4******* 

* SET OFF * 
♦COBOL IGNORE 

* OPTION 
* INDICATOR 

* * 
*********** 



* * * REFERENCES 

* TO 64641! 

BGB2t BHF2 



****£ 5********* 

* SVC 2 * 

* FETCH * 

* $$B0DAI1 * 
*************** 



ANY 
EXTENTS 
LEFT 



**g4******* 

* * 
SET OFF 
MESSAGE 
SWITCH 

* * 
*********** 



.* *. 




****H4********* 


* END *. 


\iO 


* SVC 2 


OF EXTENT .* 




* FETCH 


*. AREA .* 




* $$B0DA01 


*. .* 




*************** 


*. ,* 


X 




* YES 


***** 

*BG * 

♦ H2* 

* * 




X 
**J3******* 
* * 
RESET * 


PNTCCB 












MULTIPURPOSE * 






SWITCH ^* 
*********** 











NOXT X 

*****G5********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 476QI ♦ 

* * 
***************** 



****l-l 5********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



*****K3********** 

* CLEAR * 

* TEMPORARY * 

* LOCATION IN ♦ 

* DSKXTNT * 

* TABLE * 
***************** 



**** 

* * 

* B4 * 
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Chart BK. $$B0DAI1: EA Open Input 



♦♦♦*A1 ********* 

* * 

* $$BaDAIl * 

* * 



:(c*Bl******* 

* SET * 
MSG CODE 

TO INDICATE 
INPUT PHASE 

* * 



««4e«*Cl********** 

* * 

* GET ADDRESS * 

* OF CCB * 

* CHAIN * 

* * 



* * 

* RELOCATE * 

* CCW FOR * 

* THIS PHASE * 

* * 
***************** 



**♦**£!********** 

* GET ADDRESS * 

* OF DLBL. * 

* CLEAR VOLUME * 

* SEQUENCE * 

* FIELD * 
***************** 



* THIS A * 

RETURN FROM 
*. MESSAGE .* 

*. RTN .* 



**G1******* 

* SET * 
MESSAGE 

SWITCH OFF 
IN COMM 

* REGION * 
*********** 



*****H1 ********** 

* * 

* SAVE SYMBOLIC * 

* UNIT AND BI^J * 

* NUMBER * 

* * 
***************** 



****J1 ********* 

* EXIT VIA * 

* REGISTER * 

* MSGLNK * 
*************** 



.* RELATIVE *. NO 
*. ADDRESSING .*. .. 
♦.SPECIFIED.* 



STORSU X 

*****B2********** 

* SAVE CURRENT * 

* SYMBOLIC * 
..X* UNIT AND BIN * 
. * NUMBER * 
. * * 

***************** 



*****C2*** ******* 

* * 

* SET UP TO * 

* GET VOLUME * 

* LABEL * 

* * 
***************** 



*****[32*** ******* 

* * 

* SET UP * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



*****E2*** ******* 

* * 

* MOVE * 

* SYMBOLIC UNIT * 

* TO CCB * 

* * 
***************** 



READ X 

*****F2********** 

*EXCPRT BM* 

* READ * 

* VOLUME * 

* LABEL * 
***************** 



IS 
LABEL 

•VOLl* 



.* SERIAL *. 
*. NUMBER 
♦.SPECIFIED.* 



.*VOLUME * 
SERIAL = 
EXTENT 
. SERIAL 



*****03 ********** 

* * 

* GET ID * 

* OF PACK * 

* TO MOUNT * 

* * 
***************** 



*****E3 ********** 

* * 

* SET UP TO * 

* ISSUE MESSAGE * 

* 4655 A * 

* * 
***************** 



♦****F3 ********** 

* INITIALIZE * 

* RETURN * 

* REGISTER FOR * 

* MESSAGE PHASE * 

* * 
***************** 



MSG2 

*****G3 ********** 

* INITIALIZE * 

* REGISTERS * 

* FOR USE BY * 

* MESSAGE PHASE * 

* * 
***************** 



****H3********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



MUVEPT 

*****g4********** 

* MOVE VTOC * 

* POINTER TO * 
...X* SEEK ADDRESS * 

* FIELD * 



***************** 



*****C4****«***** 

* GET THE * 

* CCW TO ♦ 

* FIND FORMAT * 

* 1 LABEL * 

* * 
***************** 



*****[}4********** 

* SET KEY * 

* FOR SEARCH * 

* FOR FORMAT * 

* i LABEL ♦ 

* * 
***************** 



FINDFl 

*****£4********** 
♦EXCPRT BM* 

*_*_*_*_*_*_*_*_* 

* READ * 

* FORMAT 1 * 

* LABEL * 
***************** 



X 
***** 
*BL ♦ 
* C5* 



,* GET *. 
.ADDRESS FIRST. 
.TIME THROUGH . 
*. ROUTINE .* 



*****05********** 

* GET ADDRESS ♦ 

* OF DISK * 

* EXTENT TABLE * 

* AND SAVE * 

* * 
***************** 



**E5******* 
*SET SWITCH * 
* TO INDICATE 
* NOT FIRST 
♦TIME THROUGH 
* * 

*********** 



***** 
*8M * 
* B5* 



*****j2********** 

* * 

* GET ADDRESS * 

* OF DLBL * 

* IN CORE * 

* * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 



.*. CLEAR X 


F4 *. 


*****P5********** 


,* *, 


* GET ADDRESS * 


FORMAT 1 ♦.NO 


* OF FIRST ♦ 


LABEL FOUND .*.... 


* EXTENT IN * 


. .♦ . 


♦ FORMAT 1 * 


*. .* 


* LABEL * 


*. .♦ X 


***************** 


* YES ♦♦*** 




*BM * 


**** t 


* 83* 


*BL * 


. ♦ * 


* J3 «.X. 


, * 


* * , 


X NOFILB 


**** 


.*. RTNF3 X 


G4 *. 


*****G,5********** 


.* ♦. 


* * 


DATA ♦. 


* SHIFT FORMAT * 


SECURED .* 


* 1 LABEL LEFT * 


. FILE .* 


♦ 1 BYTE * 


*, ,* 


* * 



H4 *. 

.* DATA *. 

SECURITY 

MESSAGE 

. ISSUED . 

*. ,* 

*, ,* 

* NO 



**J4***#*** 

* SET * 
MESSAGE 
ISSUED 

SWITCH ON 

* * 
*********** 



*****K4**^*^^**^* 
♦MSGRTN BM* 
*_*_*_*_*_*_*_*_* 

♦FETCH $$BOOSMW * 



***************** 



***************** 



*****H5********** 

* INSERT END * 

* INDICATOR * 

* (X'FF'J IN * 

* LABEL * 

* * 
***************** 



* USER * 

LABEL TRACK 
*. AREA .* 



*****K5********** 

* UPDATE LABEL * 
♦EXTENT POINTER ♦ 

* PAST USER ♦ 

* LABEL EXTENT ♦ 

* * 
***************** 



X 
***** 
♦BL ♦ 
♦ Al* 
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chart BL. $$B0DAI1: EA Oten Input 



***** 

♦ BK * 

* K5* 



*****A1******»*** 
* SET LABEL * 










♦EXTENT POINTER * 






* TO EXTENT * 






* LOWER LIMIT * 






* * 




**** 


***************** 




* ♦ 

* B2 * 


**** * 




* * 


* * . 




**** 


* BI *.X. 






* * , 






**** 






CNTXTNT X 


UPPERLT X 


*****Bl ********** 


*****B2*«^ *♦**«** 


* CLEAR ACCUM * 




INCREASE * 


* REG AND SET * 




CONVERTED * 


♦COUNTER REG TO * 




UPPER LIMIT * 


* CONVERT TO * 




BY 1 * 


* REL. ADDRESS * 




* 


***************** 


***************** 



MORXTNT X 

*****C1«********« 
♦CONVERT EXTENT ♦ 

♦ LIMIT TO ♦ 

♦ RELATIVE ADDR ♦ 

♦ USING ALTER * 

♦ FACTORS * 
***************** 



*****0i ********** 

♦ SET LABEL ♦ 
♦EXTENT POINTER ♦ 

♦ TO NEXT ♦ 

♦ CHARACTER IN ♦ 

♦ EXTENT ♦ 
***************** 



.♦ UPPER ♦. 
♦. LIMIT 

♦.CONVERTED.^ 



«****P1********** 
♦STORE CONVERTED^ 

♦ LOWER LIMIT ♦ 

♦ (TTTl IN ♦ 

♦ TEMPORARY ♦ 

♦ LOCATION ♦ 
***************** 



*****Q]^********** 

♦ PUT CONVERTED ♦ 

♦ LOWER LIMIT ♦ 

♦ (TTTl) IN ♦ 

♦ DSKXTNT TABLE ♦ 

♦ * 
***************** 



**H1******* 

* SET ♦ 
SWITCH TO ♦ 
INDlCAIfc 

UPPER LIMIT ♦ 

♦ CONVERTED ♦ 
*********** 



*iti*:^itiQ2* ********* 

* COMPUTE TOTAL ♦ 
♦NUMBER OF TRKS.^ 

♦ CONTAINED ♦ 

* IN CURRENT * 

♦ EXTENT ♦ 
****** ** ** ******* 



*****02^^^ ♦♦♦♦♦♦♦ 

♦ ADD CURRENT ♦ 

♦ EXTENT TRACKS ♦ 
♦TO ACCUMULATED ♦ 
♦VALUE AND SAVE ♦ 

♦ * 
***************** 



*****££♦♦♦♦♦♦♦♦♦♦ 

♦PUT ACCUMULATED^ 

♦ TTT2 VALUE ♦ 

♦ IN DSKXTNT ♦ 

♦ TABLE ♦ 

♦ * 
***************** 



*****P2*** ******* 

♦ PUT BIN AND ♦ 

♦ PACK NUMBER ♦ 

♦ IN DSKXTNT ♦ 

♦ TABLE ♦ 

♦ * 
***************** 



*****G2^^^ ♦♦***♦♦ 

♦ INCREASE ♦ 

♦ POINTER TO ♦ 

♦ DSKXTNT * 

♦ TABLE BY ♦ 

♦ 8 ♦ 
***************** 



♦♦H2^^+^^^^ 

♦ SET OFF ♦ 
SWITCH TO 
INDICATE 

UPPER LIMIT 

♦ CONVERTED ♦ 
*********** 



♦ EXTENT 

ON ANOTHER 
*. LABEL .= 



RDF0R3 .♦. 

D3 ♦. 
.♦ IS ♦ 
.♦ THERE 
♦. ANOTHER 
♦. RECORD 



ARUUND 

*****Q4********** 

♦ UPDATE ♦ 

♦ POINTER ♦ 
. ..X^ TO NEXT ♦ 

♦ EXTENT ♦ 

♦ IN LABEL ♦ 
***************** 



**** 

* * 

* Bl ♦ 

* * 
**** 



**** 






FINXNT X 




*****e5 ********** 


♦ INITIALIZE 


# 


♦ RETURN REG 


♦ 


♦ MSGLNK WITH 


* 


♦ ADDRESS OF 


* 


♦ STORSU 


* 


***************** 


♦*** 






♦BK * 






♦ B5 ♦.X 






* * 


.X 




♦*** 






CKXTNT X 




*****C5^^^^+++^*^ 


♦ INCREASE 


* 


♦EXTENT ADDRESS 


* 


♦ TO NEXT 


* 


♦ EXTENT 


* 



***************** 



***♦ 

* * 

* B5 ♦ 

* * 
**** 





YES 


,* 




END 




. ..♦ 




OF 


EXTENT 




• 


* 


'♦. 


AREA 

.♦ 


* 


X 
**** 






♦ , .♦ 
♦ NO 


♦BM ♦ 








* 


B1+ 






. 



*****E3********** 

♦ MOVE RECORD ♦ 

♦ POINTER TO ♦ 

♦ SEEK/SEARCH ♦ 

♦ ADDRESS ♦ 

♦ ♦ 
***************** 



*****P3********** 

♦ GET CCW ♦ 

♦ TO READ ♦ 

♦ FORMAT 3 ♦ 

♦ LABEL ♦ 

♦ * 
***************** 



*****G3********** 
♦EXCPRT BM+ 

♦-*_*-*-*-*_*_*-* 
+ READ ♦ 

♦ FORMAT 3 ♦ 

♦ LABEL ♦ 
****************«( 



H3 ♦. 

,♦ ♦. 

.♦ FORMAT ♦ 

*. 3 LABEL 

♦. FOUND .♦ 



.♦EXTENT ♦ 
.♦ ON SAME 
. SYMBOLIC 
♦. UNIT 



F5 ♦. 

.INCREASE^. 

PACK 

NUMBER 
. BY 1 



.♦ 



.♦ 



YES ,♦ SYMBOLIC 
;...♦. UNITS IN 

♦.SEQUENCE . 
♦ . .♦ 



***** 

*BK ♦ 

♦ BZ* 

* * 



***** 
*BM ♦ 
♦ B4* 



*****J3********** 

♦ GET ADDRESS ♦ 

♦ OF FIRST ♦ 

♦ EXTENT IN ♦ 

♦ FORMAT 3 ♦ 

♦ LABEL ♦ 
***************** 



*****H5«********* 

♦ SET UP ♦ 

♦ TO ISSUE ♦ 
f MESSAGE * 

♦ 465II ♦ 

♦ * 
***************** 



****J5*^^^^^^^^ 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$B0MSG1 ♦ 
*************** 



X 
***** 
*BK ♦ 
* G5^ 
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Chart BM. $$B0DAI1: EA Oten Input 



***** 

*BL * 
* D5* 



***** 
*BK * 
* F4* 



***** 
*BL * 

* H3* 



***** 
♦BK * 
♦ H2* 



4t«««*«:(c*3(t:tc******* 



♦♦♦**ci ********** 

* * 

* GET FIRST * 

* SYMBOLIC * 

* UNIT * 

* * 

«;(e^:tc****«:»**«**:«c:«c 



* SET UP TO * 

* ISSUE MESSAGE * 

* 46011 * 

* * 

««*****« ****««*«:«( 



N0F3 X 

*****B4********** 

* INITIALIZE * 

* RETURN REG * 

* MSGLNK WITH * 

* ADDRESS OF * 

* STORSU ♦ 
***************** 



*****Q4****««***4c 

* * 

* SET UP TO ♦ 

* ISSUE MESSAGE * 

* 46031 * 

* ♦ 

************** 3|I4U(C 



* SET UP TO * 

* ISSUE MESSAGE * 

* 46061 * 

* ♦ 

*#*****:|c«***4c**** 



.* ARE *. YES 

*. THERE USER ...... 

*. LABELS .* X 



.* USER * 
*.WANT EXTENTS 

*. PASSED .* 



6ETM0N 

«#«**FI********** 
*FLEPRTCT BM* 

* CHECK IF * 

* FILE PROTECT * 

* NEEDED * 

«4e *$«:«(*:«.«:(( :«c««:t* ** 



****G1 ********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



GETFP 

*****[} £***'•<****** 

* INITIALIZE TO * 
♦FETCH $$B0DAU1 * 

,..X* AFTER FILE * 

* PROTECT * 

* CHECK * 
***************** 



*_*_*_*_*_*_*_*_* 

* CHECK IF * 

* FILE PROTECT * 

* NEEDED * 
** **** ** ** ** ** *** 



*«**F 2********* 

* SVC 2 * 

* FETCH * 

* $$B0DAU1 * 
*************** 



****Q4********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



****E4********* 

* $$B0DAI1 * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
*************** 



****P3********* 

* $$B0DAI1 * 

* FILE PROTECT ♦ 

* SUBROUTINE * 
*************** 



FLEPRTCT 

*****G3*** ******* 
* GET ADDRESS * 



***************** 



***************** 



*****G4********** 



* * 



* * 



SVC 7 

* * WAIT * * 

* *IF REQUIRED* ♦ 

* * * * 
***************** 



****H2*** ****** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



* IS *. 
FILE *. 
PROTECT 
PRESENT .* 



RCO FOUND ♦. YES 
OR END OF .*.... 

.CYLINDER .* 



****H5********* 

* RETURN VIA * 
.X* LINKAGE * 

* REGISTER * 
*************** 



****J3*** ****** 

* SVC 2 * 

* FETCH * 

* $$BOFLPT * 
*************** 



****J4********* 

* RETURN VIA * 

* LINKAGE * 

* REGISTER+4 * 
*************** 
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Chart BN. $$BOEi^01: CA Open Output, Phase 1 (1 of 3) 



****A1********* 

* * 

* $$BOOA01 * 

* * 



* * 

* GET ADDRESS * 

* OF CCB * 

* CHAIN * 

* * 



CI *. 

.* IS *. 
* THIS A * 

RETURN FROM 

*. MESSAGE .* 

*. RTN .* 



* NO 



* CALCULATE ♦ 

* ADDRESS OF * 

* FIRST EXTENT ♦ 

* * 



*****£!*****♦*♦** 



* * 
TURN OFF 

MESSAGE 
SWITCH 

* * 



*****Q 2*** ******* 



*************«**«: 



*****£ 2********** 



*****B3********** 

* * 

* MOVE * 

* SYMBOLIC UNIT * 

* TO CCW * 

* * 
***************** 



GETLA8 

*****C3********** 
♦EXCPRT BP* 

*_*_*-.*_*_*-.*-.*«* 

* READ * 

* VOLUME * 

* LABEL * 
***************** 



* SET UP TO * 

* ISSUE MESSAGE *X. 

* 47041 * 

* * 
***************** 



D3 *. 




NKFVL 

*****D4********** 


.* * 




* * 


* RECORD 


*. NO 


* SET UP TO * 


FOUND 


.*«.. «. 


...X* ISSUE MESSAGE * 


*. 


* 


* 47061 * 


*. «* 




* * 


*. .* 




***************** 


* YES 







* INITIALIZE ♦ 


* 




* MESSAGE * 


* 


RELOCATE 


* CODE * 


* 


CCB 


* * 


* 




*************:^*** 


*** 


************* 


**** t 






*BQ * 






* C4 *.X. 






* * , 






**** , 






SAVEFX X 






*****P1********** 




X 


* * 


****F2********* 


* SAVE ADDRESS ♦ 


* 


EXIT VIA 


* OF FIRST * 


* 


REGISTER 


* EXTENT * 


* 


MSGLNK 


* * 


*************** 



* SET UP TO * 

X* ISSUE MESSAGE *. 

* 47061 * 

* * 
***************** 





»** 






C5 *. 






,* *, 






* IS RECORD * 


. YES 


*. 


F4 LABEL 


.*.... 




*. . * 






*. ,* 






*. .* 


X 




* YES 


***** 
*BP * 
* B2* 

* * 
* 




'. CKVTUC 


N0F4 


X 




*****05********** 


* 




* 


* 


SET UP TO 


* 


* 


ISSUE MESSAGE 


* 


* 


47041 


* 



***************** 



****E5********* 

* SVC 2 * 

* FETCH * 

* 4i$B0MSGl * 
*************** 



***************** 



*****Gl********** 

* * 

* SAVE SYMBOLIC * 

* UNIT FOR * 

* FIRST EXTENT * 

* * 
***************** 



*****H1********** 

* SET UP * 

* SEEK ADDRESS * 

* TO GET * 

* VOLUME * 

* LABEL * 
***************** 



*****jl ********** 

* INSERT * 

* BIN NUMBER * 

* IN SEEK * 

* ADDRESS * 

* * 
***************** 



*****K1********** 

* INSERT RECORD * 

* NUMBER OF * 
*VOLLAB (X«03« ) * 

* IN SEEK * 

* ADDRESS * 
***************** 



.* SERIAL *. YES 

*. NUMBER ....... 

*. SPECIFIED.* 
*. ,* 
*, ,* 
* NO 


F4 *. 

.*' SERIAL= '*. YES 
..X*. EXTENT .*.... 
*. SERIAL .* 

*. .* , 
*. .* X 
* NO **** 
* 

♦ H3 
* 


. 


. 


, **** 


NOSER X 

*****e3*** ******* 

* MOVE * 

* VOLUME SERIAL * 

* NUMBER TO * 

* DLBL * 


X 
*****G4*4c******** 

* TO MOUNT * 



***************** 



* H3 *.X 



**** 
MVPNTR X 

**3«c**H3*** ******* 

* MOVE POINTER * 

* TO F4 LABEL * 

* TO SEEK * 

* ADDRESS * 

* * 
***************** 



***************** 



*****H4********** 

* * 

* SET UP TO * 

* ISSUE MESSAGE * 

* 4755A * 

* * 
***************** 



*****J3********«* 


*****J4********** 


* SAVE F4 * 


* 


INITIALIZE * 


* RECORD * 


*R 


ETURN REGISTER* 


* NUMBER FOR * 


* 


MSGLNK WITH * 


* $$BOS008 * 


* 


ADDRESS OF * 


* * 


* 


GETLAB * 


***************** 


***************** 


* 




X 
***** 






*BQ * 


X 




* G2* 


*****K3********** 




* * 


*EXCPRT BP* 




* 


*_*_*_*_*_*_*_*_* 




MSG2 


* GET F4 * 






* LABEL * 







***************** 
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Chart BP. $$BODA01: DA Oper} Output, Phase 1 (2 of 3) 



* $$B0DA01 * 

* DELETE EXTENT * 

* SUBROUTINE * 

it:i^:f ************ 



if:1filf*:ttQl*:f ******** 

♦DELETE BP* 

* DELETE EXTENT * 

* * 





***** 


X 


*&H * 


CKVTOC .*. 


* C5* 


B2 *. 


* * 


.♦EXTENT *. 


* 


YES .* UPPER LIM *. 




...*. LT VTOC .*X.. 




♦ . LOWER .* 




*. LIM ,* 





C2 *. 
.♦EXTENT ♦. 
.♦LOWER LIMIT*. NO 
♦. GT VTOC .♦... 
*« UPPER .♦ 
♦. LIM .♦ 
*. .* 
♦ YES 



♦ CALCULATE ♦ 

* ADDRESS OF ♦ 

♦ NEXT EXTENT * 

* * 

***7lf************:ii 



7!f^*iit:fC3********** 

* SET UP * 

* TO ISSUE ♦ 
•X* MESSAGE ♦ 

♦ 4741A ♦ 

♦ * 



^i****02********** 

* * 

♦ INITIALIZE * 
♦RETURN REGISTERS. 

♦ MSGLNK ♦ 

* * 



««:C«A5***^^^^^« 

♦ S$BODA01 ♦ 

♦ DELETE ♦ 

♦ SUBROUTINE ♦ 



♦ DECREASE END ♦ 
♦OF EXTENT AREA ♦ 

♦ BY EXTENT * 

♦ LENGTH ♦ 



iti:it**ilfQ^********** 

♦ * 

♦ CALCULATE ♦ 

♦ LENGTH TO ♦ 

♦ MOVE EXTENT ♦ 

♦ ♦ 

^:tf*itt;ti:jf*:tfitf******** 



***** 

*BQ * 
* G2* 



.♦ 

* 
OF 



END 

EXTENT 
AREA 



F2 ♦. 

.♦'symbolic *♦. 

♦. UNIT .♦ 
*.^ SAME ^,* 

*♦. .♦* 
♦ NO 

... .......X. 


****F3* 
r-ES ♦ *$B0 

♦ INPUT/t 

♦ SUBROt 

ilf****:ft* 

X 

**** 

* * 

* B2 ♦ 

* * 
**** 

EXCPRT ) 
***G3^= 

* 


DAOl * 


CKOVLP X 

4s«#3(c3lcG £♦♦♦ ♦♦♦♦♦♦♦ 

* * 

* save VTOC ♦ 

* LOWER ♦ 

* LIMIT ♦ 


: 

/CO * 
<CP 

* 



««:«[ :f«:t^ *♦««♦♦ #*4>*« 



««4c««H £♦♦♦♦♦♦♦♦♦♦ 

* ADJUST ♦ 

* EXTENT ♦ 

* POINTER ♦ 

* * 



♦ INITIALIZE * 

♦ RETURN REG ♦ 

♦ MSGLNK ♦ 

♦ WITH ADDRESS ♦ 

♦ OF CKOVLP 1 ♦ 



****K2+*^ ♦♦♦♦** 

♦ SVC 2 * 

♦ FETCH ♦ 

♦ $$B0SD08 ♦ 

4c ««:«4i «*«♦♦♦«*«♦ 



4(:(t««:((««««*4c«*«««* 



.♦ RECORD ♦. YES 
♦FOUND OR END OF^.... 
♦.CYLINDER .♦ 



*li:4i*\<,S********* 

♦ RETURN ♦ 

♦ VIA * 

♦ LINK REG + 1 ♦ 
*************** 



:;^!ii4i**H^********** 



**#****♦****♦**** 



♦ RETURN ♦ 

♦ VIA ♦ 

♦ LINK REG ♦ 



HfiStnit'************** 



♦ INCREASE ♦ 

♦ EXTENT * 

♦ POINTER BY ♦ 

♦ EXTENT ♦ 

♦ LENGTH ♦ 
***************** 



^H::tf**f5********** 

♦ DECREASE ♦ 

♦ COUNTER OF ♦ 

♦ AMOUNT TU * 

♦ MOVE BY 20 ♦ 

♦ * 



.* IS 
*. COUNTER GT 

♦. ZERO 



* RETURN VIA ♦ 

* LINK REGISTtR * 

* * 
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Chart BQ. $$BODA01: DA OpeE Output^ Phase 1 (3 cf 3) 



♦♦♦*A1 ********* 

* $$B00A01 * 

* CHECK OVFLOW * 

* ROUTINE * 

^C^^^^^^i******** 



* GET * 

* ADDRESS * 

* OF EXTENT * 

* * 
«**«««])(*»****<(**« 



END 
OF EXTENT 
. AREA 



«3tc««/^2********* 

* $$B0DA01 * 

* .BYPASS EXTENT * 

* ROUTINE * 

««««:4c««;((««4c**** 



NXTEXT 

«««««B2********** 
♦DELETE BP* 

....* BYPASS * 

* EXTENT * 



«<(«:«*« «4< *« 3f* ***** 



* NO < 


««« 


* 


* 


* 


04 * 


* 


* 


**** 


X 




.*. 




Dl *. 




.♦ ARE ♦. 




NO .* THERE *. 




...*. USER LABELS .* 




• *. .* 




*. .* 




X *. .* 




(■*** * YES 




* . 




Fl * 




♦ 




X 




.*. 




El *. 


;(|c«««*E2********** 


.* *. 


♦ * 


.* FIRST *. NO 


*SET UP TO ISSUE* 


*. EXTENT 2 .*.. 


X* MESSAGE * 


*. TRACKS .* 


* 4766A * 


*. .* 


* * 


*. ,* 


«« «:(c«« :t<*]tc«««]jc«*«« 


* YES 




**** 




♦ * . 




* Fl *.X. 




* * . 




4l9(<«« . 




LDLIM X 


X 


:te#*:!|c:tcpi^4<*«4<4<4<4'4c>(<3|< 


4f4l*:*=i,p 2********** 


* * 


* INITIALIZE * 


* POSITION * 


* RETURN REG * 


♦ EXTENT LIMITS * 


* MSGLNK WITH * 


* FOR TEST * 


* ADDRESS OF * 


* * 


* NXTEXT * 


«4c «4c ********«**«« 


«««#«* «4<; 3|c:tt «« *«««« 


**** I 


**** I 


* * . 


* * . 


* Gl *.X. 


* G2 *.X. 


* * , 


* * . 


♦ ♦** 


**** 


INCVAR X 


MSG2 X 


4c««4>*Gl********** 


**«3{t«Q2:|(**«««*«l«e4< 


* * 


* INITIALIZE ♦ 


* UPDATE * 


* REGISTERS * 


*EXTENT POINTER * 


* FOR USE BY *} 


*T0 NEXT EXTENT * 


* MESSAGE * 


* * 


* PHASE * 


««««*«««*«««:«(«*«* 


«««««* ««X(* ******* 


♦ ♦** , 


• 


* * . 




* HI *.X. 




* * . 




*♦** X 




.*. 




HI *. 


X 


.* *. 


*«««H2*** ****** 


YES .* END *. 


* SVC 2 * 


....*. OF EXTENT .* 


* FETCH * 


*. AREA .* 


* $$B0MSG1 * 


*. .* 


**««««*«« 3(<«4<:(c4c« 


*. .* 




* NO 





**** 

* * 

* B3 * 



♦**«*B3* ********* 

* * 

* SET UP TO * 

* ISSUE * 

* MESSAGE ♦ 

* 4740A * 
***************** 



* INITIALIZE * 

* RETURN * 

* REGISTER * 

* MSGLNK * 

* * 
***************** 

* **** 

. * * 

..X* G2 * 

* * 



****D3 ********* 

* ENTER VIA * 

* REGISTER * 

* MSGLNK * 
♦********♦*♦♦** 



♦♦♦♦♦E3********** 
*DELETE BP* 

* BYPASS * 

* EXTENT * 

* * 



B4 *. 

.* ALL *. 

.♦EXTENTS FOR*. NO 

.SYMBOLIC UNIT.*... 

*. BEEN .* 

♦CHECKED* 

*. .* 

* YES * 



C4 


*. 


.* ALL *. 


.* EXTENTS *. 


*. FOR FILE .^ 


*. CHECKED .* 


*. ,* 


*. ,* 


♦ YES 


**** 


* * 




* D4 *.X 




* * 




#«:((:(( 




ETCH 




X 


4!4c#*D4********* 


* SVC 2 ^ 


* FETCH 


* $$B0DAQ2 * 


« « :4<;i(c« «#:(c:(< «:(( «4e « % 



*BN * 
* Fl* 



REFERENCES 
TO BQG2: 
BNJ4, BPD3 



.*. CKXT .*. 

Jl *. J2 *. 

* IS *. .* PREV *. 

EXTENT *. YES .*EXTNT UPPER*. YES 

ON SAME .* X*LIMITS LT CURR.*... 

UNIT .* *. EXTENT .* 

*. .* *. LL .* 



* NO 



* NO 



, xl 




CKLST X 

««««:ttKl****«««*<c* 

* UPDATE FIXED * 

* POINTER TO * 
» NEXT EXTENT * 


K2 *. 
.* PREV *i 
.* EXTENT LL *. YES 
*. GT CURR .*..X 
*. EXTENT .* 



««*««*******«*«** 



*. UL .* 



* * 

* B3 * 

* * 
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Chart CA. $$BODA02: DA Open Output, Phase 2 (1 of 4> 



* * 

* A3 * 

♦ * 
♦*♦* 



* * 

* $$BODA02 * 

* * 



3»c« :(c4c « B 1 ««4c*:«e4t4t« « « 



LABEL *. NO 
FOUND .*... 



:ti:ilf***B3*=lf******** 



* GET ADDRESS * 


NO .* VOLl *. 






* MOVE 


CCW * 




.* LAST ♦. NO 






* OF CCB * 




.*. LABEL .* 




* TO READ * 




♦. RECORD ON .* 






* CHAIN * 




*. FOUND .* 




* KEY, DATA * 




♦.CYLINDER .* 






* * 




*. .* 




* * 




*. .* 






*^i::ii**:ti*iti**^*****^ 


X 


♦. .* 




***************** 




*. .* 


X 






*«*#4e * YES 








* YES 


***** 






*CD 


♦ 












♦CD * 






* 83* 












* B2* 






* * 














* « 






NOVOLl I 










... .. .....xl 


RE VTOC 




X 


X 










X 


LIMRCH .*. 




NXTSU X 






CI* **. 




t:tH>t**C2********** 




C3 *. 




«**«*C4**««****«« 






.♦ ♦. 




* * 




• * *• 




* GET ADDRESS ♦ 






.* RETURN *. YES 


* GET STARTING * 




.* END *. YES . 


* OF FIRST * 






*.FROM MESSAGE .*. 


... 


* CCHHR * 

* OF VTOC * 




*. OF VTOC .* 
*, .* 




* EXTENT FOR * 

* SYMBOLIC UNIT * 






*. ROUTINE .* 






*. .* 




* LABEL * 




*. .♦ 




* * 






*. .* 


X 


:|(*«*«*«*««4i****** 




*. .* 




*«:(c#****«4<******« 






* NO 


***** 
*CC * 






* NO 










• 


* B5* 

* * 

* 

TSTRPY 






X 




*x«...... 








I 










X 




X 




.*. 




COMP X 








*****oi ********** 




*****02*** ******* 




D3 *. 




***4c*04********** 








* CALCULATE * 




*EXCPRT CD* 




.* *. 




* UPDATE EXTENT * 








* ADDRESS * 




♦_*_#_*_%_*_«_«_* 




.* IS *. YES 


* ADDRESS BY ♦ 








* OF FIRST * 




* GET VTOC * 




*. LABEL A .♦ 




* 20 TO GET * 








* EXTENT * 




* DEFINITION * 




♦-FORMAT 1 .* 




♦EXTENT ADDRESS * 








* * 




* LABEL * 




*. .* 




* FOR NEXT FILE * 








««: 4c4i«*4<«*=ic3i(«:ee:»« * * 




«****:(< :(<««:(( :((««««:«( ;(c 




*. .* 

**** ! ^° 


X 
****« 

*CB * 


«««:«<**4c********** 












'. * REFERENCES 


* * 




* Bl* 














TO 


CAE3: 


* * *.x 




* * 














CBCl. CDEl 


* * 




* 










X 




X 




**** 




SVFIAD X 






! YES 


.*. 




• *• 




x 




.*. 




.*. 


El *. 




E2 *. 




****#g3 :«c««4'****** 




E4 *. 




E5 *. 


.* *. 




.* *. 




* MOVE ADDRESS * 




.* *. 




.♦EXTENT ♦ 


.* END *. YES 


.* LABEL *. NO 


* TO SEARCH * 




.* LAST *. NO 


.* ON SAME 


*. OF EXTENT .*. 


... 


*. FOUND .*. 
*. .* 




* AND TO * 

* SEEK/SEARCH * 




*. EXTENT .* 
♦.PROCESSED.* 




. X*. SYMBOLIC 


*. AREA ,* 


.. 






*. UNIT 


*. ,* 




*. .* 






* ADDRESS * 




*. .* 




♦ . .♦ 


*, ,* 


X 


*, ,* 






* ^icje « ;(c:ic ** «4: * * ** * ** 




*. ,* 




*. .* 


* NO 


***** 


* YES 










* YES 




* NO 




*CD * 




















* * . 


* 81* 




















* Fl *.X. 


* * 


















X 


« * 


* 


















**** 


**** 


NO XT 


















* * 


SAVFRX X 
















FETCH I 




* Fl * 


4c«4:l(c#Fl********** 




F2 *. 












X 




* * 


* SAVE FIRST * 




.* IS *. 












:ic***F4*4:««***«« 




**** 


* EXTENT * 




.* LABEL *. NO 










* SVC 2 * 






* ADDRESS AND * 




*. A FORMAT .*. 


.X 










* FETCH * 






* SYMBOLIC * 




*. 4 .* 












* $$B0DA03 * 






* UNIT * 




*. .* 












* 4c ******* ****** 






4: :4c ««:{«« «:«(:{<:»: 4(^ «# :tc :«« « 




*. .* 
* YES 


X 

4c:jc3it:je4c 

*CD * 

* B4* 

* * 

* 














X 




X 


N0F4 














3{C****G ]_****#***** 




**#j(e*Q2*** ******* 
















* * 




* SAVE VTOC * 
















* GET CCW * 




* UPPER * 
















* TO READ * 




* LI MI T * 
















* KEY, DATA ♦ 




* CCHH * 





















3jc;!c **:********#**♦* 



***************** 



*****H1********** 

* * 

* SET UP * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



RDFLAB X 

*****H2********** 

* MOVE CCW * 

* TO READ * 

* COUNT, KEY * 

* AND DATA * 

* FROM VTOC * 
***************** 



*****jl ********** 

* * 

* MOV E * 

* SYMBOLIC UNIT * 

* TO CCB * 

* * 
***************** 



*****J2********** 
*EXCPRT CD* 

*-*-*_*_*-*_*-*_* 

* GET LABEL * 

* FROM VTOC * 

* * 
***************** 



*****Ki ********** 
*EXCPRT CD* 

*_*_*_*_*_*_*_*_* 

* GET VOLl * 

* LABEL * 

* * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 
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chart CB. $$BODA02: Dh Open Output, Phase 2 (2 cf 4) 



* REFERENCES 
TO CBBi: 
CAD3, CCC4 



* * 

* B5 * 

* * 



SVPIAD X 

***«*B1 ********** 

* SET ADDRESS * 
*0F FIRST EXTENT* 

* IN FORMAT 1 * 

* LABEL ♦ 

* * 
***************** 



**** 
*CC * 

* CI 



.* IS *. 
.* THERE *. NO 
*.AN EXTENT IH .*... 
*. LABEL .* 



*„*_*_*_*_*„* 



***************** 



**** 
*CC * 

* Fl 



X 
***** 

*CA * 

* E3* 



**** 
CHECK X 

***#*D1 ********** 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT FOR * 

* SYMBOLIC * 

* UNIT * 
***************** 

**** 



* El *.X 



**** 
CFVRFX X 

***** El ********** 

*CHCK CD* 

*„*_♦_*-*„*_*_♦_* 

* CHECK FOR * 

* OVERLAP * 

* * 
***************** 



.* 


OVERLAP 


* 


. YES 




EXISTS 




.*.... 


*, 


*. ,* 


* 


• 




*, ,* 




X 




* NO 




***** 
*CC * 

* B2* 

* * 

* 








SCROPN 












03 *. 








* LAST * 






.*' 


SPLIT CYL 


* 


YES 


.BEEN CHECKED 





*****lg5********** 

* RESET CYL * 

* OR STRIP NO * 

* WITH X'OO* * 

* CHECK AREA * 

* * 
***************** 



♦ ****(, 5********** 

♦ DECREASE * 

♦ POINTERS TO * 

♦ CHECK CYL * 

♦ OR SUB-CELL * 

♦ NUMBERS * 
***************** 



.* ADDRESSED *. NO 

♦. NUMBER AT A .*. .. 
*. MAXIMUM .* 



*****E3* ********* 

* GET ADDRESS * 
*0F LOWER LIMIT * 

* HEAD OR * 

* CYLINDER * 

* NUMBER * 
**** ** ********* ** 



**** , 

* * , 

* E5 *.X. 

* * , 
**** 

TSTVAR X 

*****£ 5********** 

* * 

* CALCULATE * 

* ADDRESS OF * 

* NEXT EXTENT * 

* * 
***************** 



**** 

* * 

* H4* 

* * 



.*» 








«*. 


N02321 






.*. 


Fl *. 








F3 *. 


♦****P4*»******** 




F5 ♦. 


.* *. 








.* *. 


♦ INCREASE ♦ 




• * *4 


.* OVERLAP *• NO 








.* DEVICE *. NO 


* LOWER CYL * 


YES 


.* END 


*. EXIST .*..,. 








*. TYPE ,*...., 


..X* LIMIT IN * 


, * 


OF EXTENT 


*, .* . 


*, 2321 .* 


* CHECK AREA * 






*, AREA 


*. ,* , 








*. «* 


* BY ONE * 






*. , * 


*. .* X 








*. ,* 


***************** 






*. ,* 


* YES **** 

* * 

* E5 * 








* YES 


• 






* NO 










• 








* * 










X 








**** 










*♦** 


















* * 


















* B3 * 








Gl'***. 








G3 *. 


* * 






G5* **. 


.* IS *. 








.* IS *. 


**** 






.♦EXTENT * 


.* IT A *. NO 








.* ADDRESSED *. NO 






NO 


* ON SAME 


*. SPLIT .*.... 








*. NUMBER AT A .*..... 




X...* 


. SYMBOLIC 


*. EXTENT .* 








*. MAXIMUM .* 






*. UNIT 


*. .* 








*. .* 


**** 




♦ . .* 


*. .* X 








*. .* 


* * 


X 


*, ,* 


* YES ***** 








* YES 


* H4 * 


***** 


* YES 


*CC * 










* * 


*CC ♦ 




* B2* 










**** 


* Bl* 




* * 












♦ * 


X 


• * 










•••.•••«..X< 


CKSTOP 


**** 


X SCROPN 




* * 










TESTC2 X 


INCRMT X 




* El * 


HI* **, 


*****H2*** ******* 


*****H3********** 


*****H4********** 




* * 


.* *, 


* 


GET ADDRESS 


* 


* RESET HEAD * 


* * 




**** 


.* DEVICE *. YES 


* 


OF MAXIMUM 


* 


# OR CYLINDER * 


* INCREASE * 






*. TYPE .*..«.,.. 


X* 


CYLINDER 


* 


* NUMBER IN * 


* ADDRESSED * 






*. 2321 .* 


* 


FOR 2321 


* 


* CHECK AREA * 


* NUMBER * 






*. ,* 


* 




* 


* WITH UPPER * 


* BY 1 * 






*, .* 


***************** 


*************** ** 


***************** 






* NO 










X 

**** 

* * 






MUVELL X 




X 




X 


* 63 * 






*****J1 ********** 


*****J2********** 


*****j3 ********** 


* * 






* MODIFY UPPER * 


* 


INITIALIZE 


* 


* DECREASE * 


**** 






*LIMIT CYLINDER * 


* 


CYLINDER 


* 


* POINTERS TO * 








* WITH LOWER * 


* 


WITH UPPER 


* 


* CHECK CYL OR * 








*LIMIT CYLINDER * 


* 


LIMIT 


* 


* STRIP NUMBERS * 








* IN CHECK AREA * 


* 


CYLINDER 


* 


* * 








***************** 


***************** 


***************** 








X 
**** 




X 
**** 












* * 




* * 












* 83 * 




* B3 * 












* * 




* * 




K3 *. 








**** 




**** 




..* _!§„ *.. ..„ 











* ADDRESSED ■ 

NUMBER AT A 

*. MAXIMUM . 



**** 

* * 

* B5 * 

* * 
**** 
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chart CC. $$BODA02: DA Open Output , Phase 2 C3 of 4) 



*CB * 
* G5* 



CKSTOP X 

* GET ADDRESS * 

* OF NEXT * 
.,X* EXTENT IN * 
. * LABEL * 

* * 



ADDRESS 
OF LABEL 
. POINTER 



***** 

*CB * 
* CI* 



* REFERENCES 
TO CCB2: 
CBC3, CBGl 



SCROPN X 

***:jc3(tg2**=t<*>i<***** 

* RESTORE ♦ 

* SEEK/SEARCH * 

* ADDRESS TO * 

* GET FORMAT * 

* LABEL * 

*«**#******* «4<4!«4e 



*EXCPRT CO* 

*_*_*-*_*_♦_♦_*_* 

* GET FORMAT 1 * 

♦ LABEL * 
« * 
4<**************** 



***** 
*CD * 
* B2* 



]((«*4(*B3********** 

* CHANGE * 

* COMMAND * 

* CODE IN CCW * 

* TO READ * 

* ♦ 

*««««««:(t*««4:***** 



***«4cC3*** ******* 

*GETPTR CD* 

*-*-*_»_♦_*_*_«_* 

* GET * 

* POINTER * 

* # 

:tc«4>« «« :jc« ** *# 4:4<« ;ti:ie 



**** 

* * 

* B4 * 

* * 
***« 



84 *. 
* ANY *. 
EXTENTS *. 
LEFT TO 
PROCESS .* 



C4 *. 
.* IS *. 
NEXT 
EXTENT ON 
. SAME 
*.UNIT .* 



*. 



* YES 



**** 

* * 

* 81 * 

* * 
**** 



***** 

*CA * 
* CI* 



TSTRPY X 

:tf4EB5«3((««:tc*:te 

* TURN OFF * 

* SWITCH 

* (RETURN FROM 

* MESSAGE 

* ROUTINE! * 

«««:(( :jc3tc:4e:|c*«« 



;((3»:«:«c*C5« ********* 

* * 

* SAVE * 

* SYMBOLIC * 

* UNIT * 

* * 

4c:(c;|!3|c«««4'********* 



*:(c**4tDl*«4e«*4t***4< 

*GETPTR CD* 
*_*_*_*_♦_«-*-*-* 

* GET LABEL * 

* POINTED TO * 

* * 

*«4<4(4.*««*4c4(*:{(4c4t*« 



IS 

LABEL 
.FORMAT 3 



X 

***** 
*CD * 
* B5* 



.* CAN 

FILE BE 

♦.SCRATCHED, 



**«*4(E3********** 

* INITIALIZE * 

* REGISTER FOR * 
X* RETURN TO * 

* THIS PHASE * 

* * 

************ «4c*** 



.*. 

D5 *. 

.* DOES *. 

.* USER WANT 

*. EXTENT 

*. DELETED . 

*. .* 



*##**E5«********* 

* DECREASE * 

* END OF * 
♦EXTENT STORAGE * 

* BY EXTENT * 

* LENGTH * 

4!4[:(t#4!:tc]j(3(c*:»:**:«<4c#4:« 



***:ic*F 1 **«4c***«:«* 


*4c«**p 2*** ******* 


****«F3********** 




*****F5**«******* 


* GET ADDRESS 




* * 


* * 




* CALCULATE * 


* OF FIRST 




♦ LOAD * 


* LOAD * 




* LENGTH TO * 


* EXTENT IN 




* MESSAGE * 


* MESSAGE * 




* MOVE * 


* FORMAT 3 




* 47971 * 


* 47981 * 




* EXTENTS * 


* LABEL 




* * 


« * 




* * 


****«****«*«:4t**** 


***************** 


«*««*«**«**«*«**« 




3{c:(c:tc:(c:iC3ec****** ***** 

* * I 

* G5 ♦.X. 


X 




• 






***** 










* * . 


♦ CB * 




X 


X 




**** 


* Dl* 




.*. 


.*. 




RECMOV X 


* * 




G2 *. 


G3 *. 


***«#(;4*#***#**** 


*****G5********** 


* 




.* *. 


.* *, 


* SET UP TO * 


* * 


CHECK 




YES .* DATA *. 


,* DATA *. NO 


* ISSUE * 


* MOVE ONc * 








......*. SECURED -* 


*. SECURED .*..... 
*. FILE .* 


...X* MESSAGE * 
* 4744A * 


* EXTENT * 








*. FILE '^ .** 


* DOWN * 








*. «* 


*. ,* 


* * 


* * 








*. . * 


*■ .* 


:t(4E *************** 


***************** 








* NO 


* YES 












**** , 

* * , 






• 








. H2 ..X. 


• 




• 








**** 














SCRTCH X 






X 


X 




****4<H2*** ******* 


X 


X 


*****H5********** 


****HX«******* 


* 


* CHANGE * 


«4t*«H3 *****«::(( 4: t 


4c«««H4********* 


* INCREASE * 


* SVC 2 


* 


* COMMAND * 


* SVC 2 * 


* SVC 2 * 


* EXTENT * 


* FETCH 


♦ 


* CODE IN * 


* FETCH * 


* FETCH * 


* PO NTER BY * 


* $$60DSMW 


* 


* CCW * 


* $$BODSMW * 


* $$B0MSG1 * 


* EXTENT * 


*««********«4c*« 


* TO WRITE * 


«*4> *«««*«**««*:» 


:tc« :(c:4(:tc«:;e :((****«: :«c :{( 


* LENGTH * 








itc^c**** *********** 






***************** 



*****j2*** ******* 
*EXCPRT CD* 

*_*_*-*-.*-*_*_*_* 

* WRITE ZEROS * 

* OVER LABELS * 

* * 
***************** 



*****j5********** 

* DECREASE * 

* COUNTER OF * 

* AMOUNT TO * 

* MOVE BY * 

* 20 * 
***************** 



**** 

* * 

* G5* 

* * 
**** 
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Chart CD. $$BODA02: DA Open C\:tput, Phase 2 (4 cf 4) 



* REFERENCES 
TO CDB2: 
CAB4, CCA3 



***** 
*CA * 
* El* 



***** 
*CA * 

* F2* 



***** 

*cc * 

* 02* 



NOXT X 

««:ic*«B| ****««»**« 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47601 * 

* * 

«**««;»:*«*****«:»*« 



* B2 *..X. 

* * , 
**** 

REVTOC X 

*****B2*** ******* 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47091 * 

* * 

*****«: ;#:f ********* 



NOVOLl X 

«*3jc*«a3 ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47061 * 

* * 
***************** 



NUF4 X 

*****j34********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47041 * 

* * 
***************** 



NRFOl X 

*****(3 5 ********** 

* SET UP TO * 

* ISSUE ♦ 

* MESSAGE * 

* 47011 * 

* * 
***************** 



****D1 ********* 

* $$BODA02 * 

* GET POINTER * 

* SUBROUTINE * 
*************** 



****C;3 ******** * 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



****[)3********* 

* $$B0DA02 * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
*************** 



****D5********* 

* $$BODA02 * 

* CHECK LIMIT * 

* SUBROUTINE * 
*************** 



GET PI 


fR .*. 
El *. 
.♦POINTER*. 








* TO * 


. NO 


*. 


ANOTHER LABEL. 


.*.... 




♦. EXIST .* 








*, .* 








*. .* 




X 




* YES 




***** 
*CA * 
* E3* 
♦ * 
* 
HERE 




X 






*****p],********** 




* 


MOVE POINTER 


* 




* 


TO SEEK/ 


* 




* 


SEARCH ADDR 


* 




* 


TO READ 


* 




* 


LABEL 


* 




***************** 





EXCPRT X 




CriCK .*. 


***E3************ 




Eb *, 




****E4** ******* 


.* LOWER *. 


* SVC * 


♦ RETURN ♦ 


YES .* LIMIT * 


EXCP 


* VIA *X.. 


......*(LBL) GT UPPER 


* * 


* LINK REG * 


*. LIMIT .* 




*************** 


*(XTNT) .* 



***************** 



*****Q]^*«******** 

*EXCPRT CD* 

*_*_*_*_♦_*-*_*_* 

* GET * 

* LABEL * 

* * 
***************** 



.* LAE 


J EL 


*. b 





*. FOUND 


.♦. 




*. 


* 




*. .* 






*, ,* 




X 


* YES 




***♦ 
* 








♦ B2 








* 








**** 




< 






****j]. ********* 




* RETUllN TO 


* 




♦CALLING 


ROUT IN £♦ 





G3 ♦. 
. * NO *. 
.♦ RECORD *. YES 
♦FOUND OR END OF*.... 
♦.CYLINDER .* 



*, .* 



****H3********* 

* RETURN * 

* VIA ♦ 

* LINK REG + 4 * 
*************** 



*****F4****3( **** 



***********;( **** 



****G4********* 

* RETURN ♦ 

* VIA ♦ 

* LINK REGISTER * 
*************** 



*****P5*********:J 

* COMPARE =* 

* UPPER LIMIT * 

* (LABfcLJ WITH * 

* LOHER LIMIT * 

* (NEK XTNT) ♦ 
***************** 



****G5* ******** 

* RETURN * 

* VIA * 

* LINK REG + 4 * 
*************** 



*************** 
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chart CE. $$BODA03: DA Open output. Phase 3 (1 of 2) 



****A1 ********* 

* * 

* $$B0DA03 * 

* * 



* ♦ 

* GET ADDRESS * 

* OF CCB CHAIN * 

* AND EXTENT * 

* * 



TOMANY 

«)(c««*A2*** ******* 

* SET UP * 

* TO ISSUE * 

* MESSAGE *X 

* 47451 * 

* * 



* * 

* E2 * 

* * 



A3 *. 
.♦ DOES *. 
YES .*N0. COUNTED*. 
....*. EXCEED LIMIT . 
*. (CTCF) .* 
*. .* 

*. .* 
* NO 



*-♦-*-♦-*-*-♦-*-* 



«««««««««««*«*«** 



.*. 








.*. 


NOVOLI 


CI *. 






C3 *. 


4c4c4c««C 4*** ******* 


.* *. 




♦***C2********* 


,* *, 


* SET UP TO * 


.* RETUKN * 


. YES 


* EXIT VIA * 


.* VOLl *. NO 


* ISSUE * 


♦.FROM MESSAGE 


.*.... 


...X* REG M 


S6LINK ♦ 


». LABEL .*.... 


....X* MESSAGE *••« 


*. ROUTINE .* 






*. FOUND .* 


* 47061 * 


*. .* 




*« «:tc:(c :((:«( :(c« ^^c *4(«* 


*. ,* 


* * 


*. .* 






*. .* 


#««««*«««*******« 


* NO 






* YES 




NOMSG .*. 




NOXT 


X 




Dl *. 




4c ;tt «: 4c «Q2*** ******* 


*4c«« 4cD 3 4c «* «« *4c4c «« 




.* *. 




* SET UP TO ♦ 


*EXCPRT CF* 




.* END * 


. YES 


* ISSUE * 


4t_3jt_ 4c_«-*-*-*-4c-4c 




*. OF EXTENT 


.*.... 


...X* MES 


SAGE * 
sOI * 


* GET VTOC * 

* DEFINITION ♦ 




*. AREA .* 




* 47< 




*, .* 




♦ * 


* LABEL * 




«, .♦ 




««4,««« 4c*** ******* 


4C4C 4< «:*««* :j<« «»«4c4c4'« 




* NO 














**** 












* * 












* E2 *.X 












* * 












**** 




X 




SEROK X 




FTCHMSG 




.*. 


NRFF4 


****♦£ !♦****:»**** 


X 


E3 *. 


4c4e«*«E4********** 


* 


* 


****E 2********* 


. * *. 


* SET UP TO * 


* COMPUTE 


* 


* SVC 2 * 


.* LABEL *. NO 


* ISSUE * 


* ADDRESS OF 


* 


* FETCH * 

* $$B0MSG1 * 


*• FOUND .*.••• 


....X* MESSAGE *..X 


* FIRST EXTENT 


*. .* 


* 47041 * 


* 


* 


******* 


ic4c4(***«:f 


*. .* 


* * 



:tf.4^*=l>!*********^**** 



**4c*4«Fl********** 
♦CHANGE MAXIMUM * 

* NUMBER OF * 

* EXTENTS IN * 
♦FORMAT 1 LABEL * 

* TO 3 * 
4c*4c********4e*i{ci(t** 



STRFXT X 

***4c4c61********** 

* INITIALIZE * 
♦EXTENT COUNTER * 

* AND GET * 

* FIRST EXTENT * 

* * 



* UPDATE EXTENT * 

* ADDRESS BY * 

* EXTENT LENGTH * 

* * 

4c:tc4c4c :tc:»:*«4c4'**4:««c « 4c 



* SAVE NUMBER * 

* OF EXTENTS * 

* COUNTED * 

* * 

4c4c*4:******4c****** 



4c*4c4c*Kl ********** 

* ADD NUMBER * 

* COUNTED TO * 

* TOTAL NUMBER * 

* OF EXTENTS * 

* * 

4c4:4«*4=4c******4c*«:** 



4c4e4c4c4t«««4c4e«««*«*« 



N0F4 

4c4<:4c4<«F4********** 

* SET UP TO * 

* ISSUE * 
...X* MESSAGE *. 

* 47041 * 



4:4c*«4c«4c«»«««««««4c 



****«G3********** 
*WRITE CF* 

4<_4c_4c_4c-4c-4c-4c-*-4c 

* WRITE AND * 

* VERIFY FORMAT * 

* 4 LABEL * 
4c 4c*«** *********** 



4c4c«««H3********** 
♦FNDOPN CF* 

4i_ 4e_ 4<_ 4c_ 4<_ 4c_ 4c_ 4c -4c 

* FIND OPEN * 

* AREA IN * 

* VTOC * 
4c4c 4c4c 4c* «« 4c* 4c«4c4c4c 4c4c 



J3 *. 

.*ANOTHER*. 

.* EXTENT IN *. 

*. THE FORMAT . 

*. LABEL .* 



4c4c4c4c4cJ44c4c«**«4c*4c4c 

*FNDOPN CF* 

4c-4c-*-4c-4c-4c- *-*-♦ 

X* FIND OPEN * 

* AREA IN * 

* VTOC * 
4c4c4c4c4c4c 4c4= 4C4C** 4c4c* «* 



4c4c4c4cK3********* 

* SVC 2 * 

* FETCH * 

* $$BODA04 * 
4c4c4c 4c4c4c4c 4<<c ***** * 
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Chart CF. $$BODA03: Dh Open Output, Phase 3 (2 cf 2) 



* $$80DA03 * 

* WRITE * 

* SUBROUTINE * 



* GET CCW * 

* TO WRITE * 

* KEY* DATA * 

* * 



«_*_*_*_♦_.*_#_*_ 



3IK* jjc^sf^^tc*^*^^^'*^' :i<* 



- . UP TO 

* ISSUE * 
X* MESSAGE * 

* 47091 * 

* * 



NOROOM 

* SET UP TO * 

* ISSUE * 

* MESSAGE 

* 47001 » 

* * 



*X, 



* * 

* REMOVE * 

* CHAIN BIT ♦ 

* FROM CCW * 



****G1********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 



:iiH:*:^f 2********* 

* SVC 2 * 

* FETCH * 

* $$BOMSGI * 



* $$B0DAQ3 * 

* VTOC AREA ♦ 

* SUBROUTINE * 



FNDOPN X 

* GET CCW ♦ 

* TO READ * 
♦COUNT, MULTIPLE* 

* BIT ON * 

* * 



««:3{c4c«04********** 

♦EXCPRT CF* 

)«„*_*-.*^*«. 3), -♦_#_* 

* FIND OPEN * 

* AREA * 

* m 



.* OPEN *. 
.*,AREA IN VTOC .* 
*. FOUND .* 



* * 

* GET ADDRESS * 

* OF AREA TO * 

* WRITE LABEL * 

* * 

«:4c «:«:«(# ««*«]f* »** *# 



* $$B0DA03 * 

* INPUT/ OUT PUT * 

* SUBROUTINE * 



«««)«<« «*««4t«4(:i(#i((!j(« 



*****J3 *♦*****♦♦* 

* ♦ » * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

* « « * 



AREA *• NO 
BLANK .*.•. 
LABEL .* 



* RETURN * 

* TO CALLING * 

* ROUTINE * 



****K 2*** ****** 

* RETURN * 

* VIA * 

* LINK REG + 4 * 



NO .* RECORD *. YES 

...♦FOUND OR END OF*.... 

*. CYLINDER .* 



****K4********* 

* RETURN * 

* VIA * 

* LINK REG * 
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Chart CG. $$BODA04: DA Open output. Phase 3 (1 of 3) 



*♦*♦ 
* * 

* A3 * 

* * 
♦*** 



♦ * 

♦ $$B0DA04 * 

♦ * 



* INITIALIZE * 

* BASE FOR * 

* COMMON ♦ 

* ROUTINES AND * 

* DSECTS * 

41* li*****:********* 



* * 

* GET ADDRESS * 

* OF CCB * 

* CHAIN * 

* * 



.* RETURN ♦• YES 
*.FROM MESSAGE .*.... 
♦. ROUTINE .♦ 



NOMSG 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT IN * 

* FORMAT I ♦ 

* LABEL * 



.*. 

Fl *. 

,* *. 

«* ARE *. 

THERE 

♦USER LABELS* 

*. ,* 

*. .* 

* YES 



♦ MOVE INCOMING ♦ 

* EXTENT TO * 

* FIRST EXTENT * 

♦ IN Fl LABEL * 
itt * 

4t« 4* #*«»:(( :«c*«***«: # 



* CHANGE TYPE * 

* TO INDICATE * 

* USER LABEL * 

* EXTENT * 

* * 



* CHANGE * 

* EXTENT * 

* SEQUENCE NO * 

* TO ZERO * 

* * 



* CHANGE EXTENT * 

* UPPER LIMIT * 

* TO EQUAL * 

* LOWER LIMIT * 

* IN Fl LABEL * 



♦ * 

♦ GET ADDRESS * 
X* OF CCB * 

♦ CHAIN * 

♦ ♦ 



4c*#*#E 2 * ** ** ***** 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 



:)c3ttp2***4(«4^* 

* * 

TURN OFF 
MESSAGE 

SWITCH 

* * 



* * 

* SAVE * 

* SYMBOLIC * 

* UNIT * 

* * 



****H2********* 

* EXIT VIA * 

* REG MSGLNK * 

* * 

:((# ite«:(r «« «:tc :(t« :(!«;|i# 



A3 ♦, 

* IS 

EXTENT 

JUST 1 

TRACK 

*. 

♦ . .* 



DEVICE 
TYPE 
2321 



• * 
. .* 
* YES 



* GET ADDRESS * 

* OF CONTROL * 
*FIELD FOR 2321 ♦ 

* TO UPDATE * 

* LOWER LIMIT * 



SETHEAD 

«:^«4e«B4********** 

* ADJUST * 

* CONTROL * 
...X* FIELD FOR * 

* NOT 2321 * 



:(t##««««««4'**«**«« 



4e4<«#«C4********** 

* GET ADDRESS * 

* OF CONTROL * 

* FOR NOT 2321 * 

* TO UPDATE * 

* LOWER LIMIT * 

:jc«4:«:tc«4e4<*«#4t ««*«:«: 



.X. 



UPOINIT X 

4i«4c««03*** ******* 

* UPDATE * 

* LOWER * 

* LIMIT BY * 

* ONE TRACK * 

* * 



* UPDATE * 

* LABEL * 

* EXTENT * 

* ADDRESS * 

* ♦ 



* F3 ♦•X 



**♦* 
FNSHFl X 

* CHECK FOR * 

* EXPIRATION * 

* DATE USING * 

* SYSOC * 

* MACRO * 
«««« «« ** ** ♦* *** ** 



4e««:^«G3********** 

* MOVE FIELDS * 

* FROM DLBL * 

* TO LABEL * 

* AREA * 

* * 
iiti)tiif^f ****** ******* 



«#:(<: j«c «H 3 ******** ** 

* SET TYPE * 

* INDICATOR * 

* IN LABEL * 

* FOR DIRECT ♦ 

* ACCESS * 



♦**#*J3********** 

* * 

* SET NUMBER * 

* OF EXTENTS * 

* IN LABEL * 

* * 

4f:i^i^:itl,i)Li)citf********** 



.* CREATING 
. DATA SECRD 
** FILE 



**K4******* 

* SET DATA * 
SECURITY 
SWITCH IN 

FMT 1 

* * 



* A3 * 

* V 
**** 



***** 

*CH * 
* 81* 
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chart CH. $$BODA04: DA Open Output^ Phase 3 { 2 cf 3) 



***** 






**** 


**** 








*CG * 




* * 


* * 








* K4* 




* B2 * 


* B3 * 








* « 




* * 


* * 








* 




**** 


**** 








PLUGXT X 


CRETF3 X 


WRLABL X 








*****B1****«***** 




*****B2*** ******* 


**#**B3******#*t** 








* * 




* PUT ADDRESS * 


*WRITE CJ* 








* MOVE * 




* OF FIRST * 


*_*«♦_*_:(._*_*_#_* 








..X* EXTENT TQ * 




* OPEN AREA * 


* WRITE * 








. * LABEL * 




* IN POINTER * 


* LABEL * 








* * 




* FIELD IN Fl * 


* * 








:4c**************** 

**** 




**♦**»***«♦*♦**** 


:«c:tc«4:4:*;«i;{c*****4(*«3tc 








* 

Bl * 
* 






• 








**** 






X 
.*. 








X 




X 








«****ci ********** 




*««*«(;2*** ******* 


C3 *. 








* * 




*WRITE CJ* 


.* LAST *. 








* UPDATE * 




*_*_*_*_*_*_*_:«<_* 


.* EXTENT *. YES 








* EXTENT * 




* WRITE * 

* FORMAT 1 * 


*. PROCESSED .* 








* ADDRESS * 


*. .* 








* * 




* LABEL * 


*. .* 








***************** 




***************** 


*. .* 

* NO 








X 
.*. 








.*. 


EXITRT X 


Dl *. 




*****D2*** ******* 


03* **. 


D4 *. 




*3(t***05 ********** 


.* *. 




* * 


,* *. 


.* ARE *, 




* * 


.* END *. YES 


* SAVE F3 * 


.* SYMBOLIC *. YtS 


.* SYMBOLIC *. YES 


* GET ADDRESS * 


*. OF EXTENT •*. 




*. tTll'hl°BL i 


*. UNIT .*...• 


.■.X*« UNITS IN .* 




* OF DLBL * 


*. AREA .* 


• • 




*. CHANGED .* 


♦.SEQUENCE .* 


* * 


*. .* 






* * 


*, .* 


*, ,* 




* * 


*. .* 






9jc#««4(* *********** 


*. .* 


*, .* 


X 


:«(«***4'*********** 


* NO 








* NO 
***« 

* * 

* E3 *.X. 

* * , 


* NO 


*♦♦* 

* * 

* E3 * 

* * 
**** 


* 


X 








#*** 








.*. 






X 


UPVSEQ X 


SEQERR X 




X 


El *. 






*****E 2*** ******* 


*****E3 ********** 


*«*«3{cE4********** 




*♦*♦♦£ 5********** 


.* *. 






* * 


* UPDATE * 


* SET UP TO * 




* SAVE TOTAL * 


.* EXTENT *. NO 




* CLEAR AREA * 


* VOLUME * 


* ISSUE * 




* NUMBER OF * 


*. ON SAME .*. 


.X 




* TO CREATE * 


* SEQUENCE * 


* MESSAGE * 




* EXTENTS IN * 


♦.SYMBOLIC .* 






* FORMAT 3 * 


* NUMBER IN * 


* 47511 * 




* DLBL * 


*.UNIT .* 






* LABEL * 


* DLBL BY 1 * 






* * 


*. .* 


X 


:tc:tc :«(:«( 4t« «:(c *« *:4c :«<« «*3tc 


***«««««***:(c9tc**** 


;tc«4cX(************* 




^^4fi^*********t'*^* 


* YES 


* * 

* 83 * 




. 


- 




• 






• 


• 




* 




* * 






X 








**** 




; 


***** 
*CJ * 






X 




X 


X 


* F5* 




X 


***#*F I********** 




*****p 2********** 


*« 4i « «p 3 « «« «« 9jc:ic4: :4c« 


* * 




3(t«*««P 5««4c«***4(3ic:tC 


* UPDATE * 




* CREATE * 


* SAVE MAXIMUM * 


* 




* * 


* POINTER TO * 




* 4-BYTE KEY * 


*N0. OF EXTENTS * 


FTCHMSG 




* MOVE FIRST * 


* NEXT EXTENT * 




* OF X»03» * 


* CONTAINED IN * 






* SYMBOLIC UNIT * 


* FIELD IN * 




* FOR FORMAT * 


* THE FORMAT * 






* TO DTF TABLE * 


* LABEL * 




* 3 LABEL * 


* LABEL * 






* * 


«4c*************** 






t^^c******* ******* 


****:ic««* ********* 






:(C««««:«C9«4<********* 



* ADDRESS 

OF POINTER 

*. FIELD IN . 

*. LABEL.* 



MIDDLE 
OF F3 
LABEL 



*****J1 ********** 

* UPDATE * 

* ADDRESS PTR * 

* TO EXTENT * 

* FIELD IN * 

* LABEL * 

«:(c«4c«***:«c:{e:(c«:tc:tc4:4c* 



*****G 2*** ******* 

* * 

* INITIALIZE * 

* FORMAT * 

* IDENTIFIER * 

* WITH X'03« * 
***************** 



:(**«*H2********** 

=( GET ADDRESS * 

=1 OF FIRST * 

=< EXTENT AREA * 

* IN FORMAT * 

=< 3 LABEL * 

:( **************** 



****G3********* 

* SVC 2 * 

* FETCH * 

* $$B0DA03 * 
*************** 



* INITIALIZE * 

* RETURN *X 

* REGISTER C * 

* ♦ 
***************** 



*****H4********** 
*FLEPRTCT CJ* 

*_*_*_*_*_*_*_*_* 

* CHECK FOR * 

* FILE PROTECT * 

* * 
***************** 



****J4********* 

* SVC 2 * 

* FETCH * 

* $$B0DAU1 * 
*************** 



G5 *. 
.* ARE 
YES .* THERE 
...*. USER 
*. LABELS 
*. 



.* USER * 
.* WANT TO 
PROCESS 
*. EXTENTS 



GETMON 

*****j5********** 

*FLEPRTCT CJ* 
*_*_*_*_*_*_*_*_* 

* CHECK FOR * 

* FILE * 

* PROTECT * 
***************** 



****K5********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 
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Chart CJ. $$BODA04: DA OpeE Output, Phase 3 (3 of 3) 



* $$B0DA04 * 

* INPUT/OUTPUT * 

* SUBROUTINE * 

ilfitiiH)liif:f ********* 



****A4********* 

* $$B0DA04 * 

* WRITE * 

* SUBROUTINE * 
x^*7^*^:^**#*1^**:lf7lf 



«3t>« :t^************* 



.* RECORD *. YES 
*. FOUND OR END .*..-. 
*0F CYLINDER* 



* RETURN * 

* VIA LINK * 

* REG. +4 * 

4c «;«: :<<«:(( 3ic:4<*«*«4c4'« 



*****c ?♦♦*♦*♦*♦** 



«*:jc«#1<:tc*««««*4=4<4c^ 



♦♦♦♦D 2********* 

* RETURN VIA * 

* LINK REG * 

* * 



* GET CCW * 

* TO WRITE * 

* KEY, DATA * 

* * 

^cilf:tfi^*:ti^4'********* 



:iit***C^********** 

* SET COMMAND * 

* CODE TO WRITE * 

* AND SET * 

* COMMAND * 

* CHAIN BIT ON * 

:ic;(c 4c :«t«4c :(::(< »:te :»:« 4<«* «:«( 



4:4c4c *« D 4* * * '(<=i° ^^ic* "t"* 

*EXCPRT CJ* 

* WRITE * 

* LABEL * 

* * 



♦♦**F2*«******* 

* $$B0DA04 * 

* FILE PROTECT * 

* SUBROUTINE * 
*************** 



FLEPRTCT 

*****G2*** ******* 

* GET * 

* ADDRESS OF * 

* COMMUNICATION * 

* REGION * 



.*« 




NRF09 




E4 *. 




*****£ 5********** 


* *, 




* SET UP TO * 


LABEL 


♦ . NO 


* ISSUE ♦ 


FOUND 


.*.,.. 


.-..X* MES 


JAGE * 
391 * 




* 


* 47 


*. .*' 




* * 


*, .* 




***************** 


* YES 










**** 








*CH * 








* E4 *.X 








* * 








**** 




X 




FTCHMSG 




*P4******4 


*** 


X 




* 


****F5********* 


REMOVE 


* 


* SVC 2 * 


CHAIN BIT 


* 


* FETCH * 


FROM CCW 


* 


* $$B0MSG1 * 




* 


*************** 



*♦***♦**♦****** 



***************** 



****G4****«**** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



FILE 
PROTECT 

PRESENT 



****H3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****j 2* ******** 

* SVC 2 * 

* FETCH * 

* $$BOFLPT * 
*************** 



Charts 219 



Chart CK. $$BODAai: EA Oper Input, Output CI of 2) 



* * 

* $$B0DAU1 * 

* * 



* * 

* GET CC8 * 

* AND EXTENT * 

* ADDRESS * 

* * 



ULAB X 






4c«#««A3«**4t4'#***« 






* SET UP * 






* SEARCH * 






♦ ADDRESS ♦ 






* FOR USER * 






* LABELS * 




**** 


:(c««««*««*«:^«#«««4c 




* ♦ 

* B4 * 

* * 

...xl 


X 






.♦• 


IlNPULB 


X 


B3 *. 


. 4c*i(e4t«B4«:«*««)M'4^a|t* 


.* *. 


. * 


GET CCW * 


.* FILE *: yes 


• * 


TO READ * 


*. INPUT «*.... 


. . * 


KEY AMD * 


*. .* 


* 


DATA * 



.* RETURN * 




*.FROM MESSAGE 


',* 


*. ROUTINE .* 




*• .* 




*. .* 




* NO 




**** 




*CL * 




* Dl *.X. 




* * 




**** 




READFl X 




*!!e***Dl*** ******* 


*EXCPRT CJ* 




-* 


*~ REAo'vOLUwi ' 


* 


* LABEL 


* 



»*#«C 2* ******** 

* EXIT VIA * 

* REGISTER * 

* MSGLNK * 

*ltC«***«i(<9|C4t***** 



:(c**«*« *********** 



VOLl 

LABEL 

FOUND 



* SET UP TO * 
,X* ISSUE MESSAGE * 

♦46061 OR 47061 * 

* ♦ 

** ***3((*« ije* **** «:*:ic 



FINDFl 

»*:(r**p !**«******# 

*EXCPRT CJ* 

*_*_*_*_*_#-.♦_♦-* 

* GET FORMAT * 

* LABEL FOR * 

* F IL E * 

***«*«jt(**4<*****«* 



*«*«p2*«******* 

* SVC 2 * 

* FE TC H * 

* $$B0MSG1 * 

*«*«******« 4c*4c;4c 



f. HO * SET UP TO * 

.*........X* ISSUE MESSAGE *.. 

»= ♦46011 OR 47011 * 

* * 

««««#* *« «:«.4*:(c^««:(c 



*««*4'C3 ********** 

* MODIFY CCW * 

* COMMAND CODE * 

* AND COUNT ♦ 
♦FIELD TO WRITE * 
*CNT, KEY, DATA * 
***»***♦**♦♦***♦* 

**** 



* D3 



«*** 
STOWN X 

**«4c*D3********** 

* SET FIRST * 

* 4 BYTES * 

* OF DATA * 

* SAME AS * 

* KEY * 

« *«***«« :ti* ** *!)t « ** 



*jtc*«*E3*** ******* 

* GET ADDRESS * 

* OF DATA * 

* FIELD FOR * 

* USER * 

* * 
4i**«** *********** 



*«#*#F3 *4c**«*«*** 

* * SVC 8 * * 

* * EXIT TO * * 

* * USER FOR * * 

* *USER LABELS* * 



* * 



* ♦ 



**** «* **;([« *#*«)«( *:(t 



*****G3*** ******* 

* MOVE DATA * 

* FIELD TO » 

* OUTPUT AREA ♦ 

* TO WRITE * 

* LABEL * 

«*«*«* *«3»:******** 



.* CURRENT *. NO 
♦.LABEL A USER •*... 
*. LABEL .* 



BYPASSTR 

*****J1********** 

* SAVE ALL * 

* REQUIRED * 

* VALUES IF * 
♦TRAILER LABELS * 

* SPECIFIED ♦ 
*3(e **#«***«*«««*#« 



DEVTYP 

INPUT X 

«*##«Ki^ ****#:»**** 

* MODIFY * 

* MAX IMUM « 

* NUMBER OF * 

* USER LABELS * 

* FOR 2321 * 

«3»:4c************** 



**««#H2********** 
*WRITE CL* 
«_*-.♦_*_*_*_«_«_♦ 

* WRITE LABEL, *X 

♦ UPDATE ID, * 
« KEY * 
**««4E« *********** 



MAX OUT .*. 

H3 *. 
.*MAXIMUM*, 
NO .* NUMBER OF *. 
...*. LABELS - 1 . 
*, WRITTEN .» 
*, .* 

*» .* 
* YES 



WRLAST X 

*#***j3#** ******* 
*WR1TE CL* 
*_*_*_♦_*_*_*_*_* 

* WRITE LAST * 

* LABEL AND * 

* UPDATE * 
***************** 



:(e«««*^3**«******* 

*WR1TE CL* 
*_*_*_*_:►_*-.*_*_* 

* WRITE FIRST «. 

* AND LAST * 

* FILEMARK * 

:(;#«:(t«««#:4c4r4'**** ** 



****** **********9|c 



READUL X 

*****C4********** 

♦ EXCPRT CJI* 

*_#-,*-.*_♦_♦_*_*_.* 

♦ READ USER * 

* LABEL * 

* * 

************ *3|t*** 



* CORRECT * 

USER HEADER 
*. LABEL •* 



* SET UP TO * 
.X* ISSUE MESSAGE ♦ 

* 4638D * 

* * 

**********[******* 



MSGRET X 

:(t****E4********** 

* GET ADDRESS * 

* OF DATA AREA * 

* IN LABEL * 

* FOR USER * 

* * 

4<***3|e»«******««r«* 



«:****P4******«*** 

* * SVC 8 » ♦ 

* * EXIT TO * * 

* * USER FOR * ♦ 

* *USER LABELS^ ♦ 



* * 



* * 



«********««* ****3(t 



**«*4eG4*****'***** 

* * 

* MOVE DATA * 

* TO OUTPUT * 

* AREA * 

* * 

3(c** *********:***** 



PASS X 

*«4(**FS********** 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT IN * 

* LABEL * 

* * 
«*«*«****4t*****«« 



.* IS *. 
.* EXTENT 
*. PRESENT IN 
♦ . OLBL 



***** 
*CL * 
* A3* 



***** 
*CL * 
♦ Al* 



«««**J44>«*«*****]St 
*EXCPRT CJ* 

* WRITE * 

* LABEL ♦ 

* ♦ 
**4c**« *«4t« «*4c4c« 4t« 



.* NO *- 
.* RECORD *. 
• FOUND OR END . 
*0F CYLINDER* 
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Chart CL. $$BODiiUl: CA Opei) Input, Output (2 of 2) 



***** 

*CK * 

* 65* 



X. 

FRDLXT X 

*****fi^l********** 

* * SVC 8 * * 

* * EXIT TO * * 

* * USER'S * * 

* * EXTENT * * 

* * ROUTINE * * 

4c4t 4<4t4<#*4'4[*^4<4t4c* * * 



INSERT 
NO .*' 



***** 
*CK * 
* G5* 



IS 

AN EXTENT 

PRESENT . 
*. .* 



**** 



**♦♦ 
FNONXT X 

*****!^l******^i*:#i* 

* * 

* UPDATE * 

* DLBL TO * 

* NEXT EXTENT * 

* * 
«« «« ************* 



* END OF *. YES 
DLBL EXTENT ...... 

♦. CARD .* 



****Q2********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN ♦ 

***********:(fitt** 



****:ittQ2i********** 

* * 

* INSERT * 

* EXTENT IN * 

* PASS AREA * 

* * 
***:f-************* 



*****C2f********** 

* * SVC 8 * * 

* * EXIT TO * * 

* * USER EXIT * * 

* * ROUTINE 



* ♦ 



* * 



DI *. 
.♦EXTENT * 
ON SAME 
SYMBOLIC 
. UNIT 
♦ . .* 
*. .* 



***** 
*CK * 
* Dl* 



*********#***tfic^jtt 



*****Q-^*******jH:tf* 

* * 

* GET ADDRESS * 

* OF NEXT * 

* EXTENT * 

* * 
***************iif* 



.* IS 

THERE A 
*. POINTER 



****pi*****:iti1f** 

* $$B0DAU1 * 

* WRITE * 

* SUBROUTINE * 
*************** 



WRITE 

*****Ql********** 

*EXCPRT CJ* 

* WRITE * 

* LABEL * 

* * 
***************** 



***************** 



*****QJ********** 

*EXCPRT CJ* 

*_*_*_*_«_*_*_:{<_# 

* READ * 

* FORMAT 3 * 

* LABEL * 
***************** 



SET UP TO 



**** 

* * 

* Bl * 

* * 
**** 



«4c«:(c«Jl ********** 

* SET UP TO * 

* SEARCH ON * 

* USER LABEL * 

* JUST WRITTEN * 

* * 
***************** 



*****\(^l********** 

* UPDATE * 

* COUNT FIELD * 

* OF USER LABEL *. 

* TO BE WRITTEN * 

* BY 1 * 
***************** 



«««**J2*** ******* 

* * 

* UPDATE * 
X* KEY NUMBER * 

* IN LABEL * 

* * 
***************** 



****\i2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****j^********** 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT IN * 

* F3 LABEL * 

* * 
***************** 



**** 

* * 

* A3 * 

* * 
*♦** 



***************** 



****J4********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 
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Chart CM. $$BODACL: EA Close Input/Output (1 of 3) 



****A1 ********* 

* * 

* $$BODACL * 

* * 
*************** 



CLOSEOA 

* INITIALIZE * 

* CCB WITH * 

* ADDRESS * 

* UF CCW * 

* CHAIN * 



***************** 



.* ARE *. 








.* TRAILER 


* 


NO 




LABELS 




*. .. . 




♦.SPECIFIED 


* 






*. .* 








*. .* 




X 




* YES 




*CN * 
* Jl* 

* * 
* 




X 

.*. 

EI *. 




RTNMON 








**E2******* 


,* *, 






* RESET 


.* ENTERED 


* 


YES 


* RE-ENTRY 


.FROM MESSAGE 


,* 


X* INDICATOR 


*. WRITER , 


* 




* IN COMM 


*, .* 






* REGION 


*. .* 






3(c««:{t««4t***« 



:^if*^ 




»*** 






* * 




* * 




* B3 * 




* B4 * 




* * 




* * 




**** 




**** 




X 




X 

.*. 




♦♦***B3********** 




B4 *. 




* PUT USER * 




,* *. 




* LABEL TRACK * 




.* FILE *. NO 




* ADDRESS IN * 




*. MARK FOUND .*.... 




* DISK ADDRESS * 




* . .* 






* BUCKET IN CCd * 




*. .* 






:4c«:«t«:tc4c3i(:<c««*««4c:4ci|c« 




*. .* 
* YES 


**** 

**♦* 




X 


FILEADDR X 


CALLMSG X 


*****C3**#**#**3(c* 




#«« «3tCC49JC««*«***3|C« 


*4c«**C5********** 


* SET RECORD * 




* SET UP * 


* INITIALIZE * 


* NUMBER TO * 




* COUNT KEY * 


* RETURN REG * 


* ZERO IN * 




* AND DATA ♦ 


* SUMREG * 


* DISK ADDRESS * 




* FIELD * 


* WITH ADDRESS * 


* BUCKET * 




* * 


* OF RTNMON * 


:((#*««««««« «9tc ««« :4c« 




4:««*«««c«4>*3t(«««*«« 


41: 9((«4l3{(»*ltl ](<««:(( 4>}f««« 








♦««♦ 










*CN * 










* C4 *.X 










* * 




X 






««♦* 




.*. 




X 


X 


D3 *. 




«4'3t(3jc,|c04«««*«:(<«3|c4c« 


)t(««««05 ********** 


.* *. 




* * 


* * 


.* OUTPUT *, NO 


* INITIALIZE * 


* INITIALIZE * 


*. FILE .* 




* WRITE CCW * 


* FOR MESSAGE * 


*. .* 




* CHAIN * 


* ROUTINE * 


*, .* 




♦ * 


♦ * 


*. .* 


X 


««««:<ci|c««;((#]|(««4<«4(« 


4^:^nl^************** 


* YES 


***#♦ 








*CN * 










♦ Bl* 










* * 










ROLABEL 








X 




X 






**E3 ♦****«* 




4c:i(« :«(« E4***** ***** 


X 


*SET SWITCH * 




*DECREASE RECORD* 


«*4<«E5********* 


* TO INDICATE * 




♦ADDRESS BY ONE * 


* SVC 2 * 


* OUTPUT FILE * 




*T0 WRITE COUNT * 


* FETCH * 


* FOR MESSAGE * 




* KEY AND DATA * 


* $$B0MSG1 * 


* WRITER * 




* * 


««««««««:«(****** 


i((:tc«:tc3t(9t<*4:«4(:(c 




«<c:(c«««*4t«4c3|<:*«**** 







USER 
LABELS ON 
. 2321 



«:|c«4(«GX********** 

* SET MAXIMUM * 

* COUNT OF * 

* LABELS FOR * 

* 2321 * 

* * 



««3tc«p2«**««««9t<* 

* RETURN TO * 

* ADDRESS IN * 

* REGISTER 5 * 
«4<*«« ♦*♦****♦*♦ 



:ti*^*:tff 3* ********* 

* INITIALIZE * 

* RECORD ID * 

* OF COUNT * 

* FIELD * 

* * 
***************** 



*****Q3******** ** 

* INITIALIZE * 

* COUNT, KEY, * 

* AND LABEL * 

* IDENTIFIER * 

* FIELDS * 
***************** 



X 
***** 
*CN * 
* C3* 



*****^l********** 

* INDICATE * 

* PROGRAMMER * 

* SYMBOLIC * 

* UNIT * 

* * 
***************** 



*****jl********** 

* INSERT * 
*STORED SYMBOLIC* 

* UNIT NUMBER * 

* OF LAST * 

* VOLUME * 
***************** 



«****H3****4***** 


*DISK 


CP* 


*_♦_*_*_*_*-*. 


-*-* 


* 


SEARCH FOR 


* 


* 


UTLO FILE 


* 


* 


MARK 


* 


***************** 




X 






*♦** 
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Chart CN. $$BODACL: DA Close Input/Output (2 of 3) 



*♦*♦* 

♦ CM * 

♦ D3* 



* PUT UTLO * 

* INTO SEARCH * 

* KEY AREA * 

* * 



* SET UP * 

* CCW CHAIN * 

* TO READ * 

* LABELS * 

* * 



♦♦♦♦♦01 ********** 

* MODIFY * 

* MESSAGE CODE * 

* FOR INPUT * 

* F IL E * 

* * 

******* *3|C#««4'**** 



**** 

*CP ♦ 

* HI *.X 



**** 




**** 


♦ * 




* * 


* B3 * 




* B5 * 


* * 




* * 


**** 




**** 


X 




• 


.*. 




MOVE DATA X 


83 *. 


**«:#« B4«««*«***** 


4c#«4'*B5«**«*****« 


.* IS *. 


* * 


* MOVE USER'S * 


.* THIS A *. NO 


* SET UP TO * 


* LABEL TO * 


*. STANDARD .*..... 


...X* ISSUE MESSAGE * 


* OUTPUT * 


*. LABEL .* 


* 4639D * 


♦ AREA * 


*. .* 


* * 


* * 


*m .* 


**4!#*«*««*4i«*««4i« 




* YES 






**** 






REFERENCES * ♦ 






TO CNC3: * * ♦•X. 






CME4f CPH3 * * 






**** 






LOADUSER X 


X 




«*:je««C3«****«««*« 


**«*«Q4.« ********* 


cs' **. 


* * 


* SET UP RETURN ♦ 


.* *. 


♦ GET USER * 


* ADDRESS FOR * 


.* WRITE *. YES 


* LABEL ROUTINE * 


* RE-ENTRY FROM * 


*. NEXT .* 


* ADDRESS ♦ 


* MESSAGE ♦ 


*. LABEL .* 


* * 


* ROUTINE * 


*• .* 


****** **««4t4t«**** 


**«4e**********«** 


♦ . .* X 
* NO ***** 
*CP * 
* B3* 




X 


. * * 




***** 


* 




*CM * 


WRITtLBL 


X 


* D5* 


X 


*:)i:tf**03********** 


* * 


]tc4(Q5«««:t!*;(i:»c 


* INITIALIZE * 


* 


* SET * 


* REGISTER * 


CALLMSG+4 


* USER LABEL ♦ 


* WITH OPEN * 




* SWITCH * 


* CODE * 




« ON * 



El 



*, 



*. 



MAXIMUM 

LABELS 

READ 

*, .* 

*, ,* 

* NO 



**«**pi«*«4c*«**«« 

♦DISK CP* 

* READ LABEL * 



**««**:(t****««***« 



STEOF 


HI * 






* 


* 


,* 


UTL 






FILE MA^K 


*. 


READ 





^fiilf:ii*3lfQ 2*** ******* 

* SET UP TO * 
•X* ISSUE MESSAGE * 

* 46 08D * 

* * 



♦CM * 
* C5^ 



:(ci(i«« *********** ** 



*#«4(*E3^^^ ♦♦♦♦*** 

♦ INITIALIZE ♦ 

♦ REGISTER * 

♦ WITH ADDRESS * 

♦ OF USER * 

♦ LABEL * 

******** *4c:t(****** 



*****P3********** 

* * SVC 8 * * 

* * EXECUTE ♦ * 

* *USER LABEL * * 

* * ROUTINE * * 

* * * * 
***************** 



*»***Q3********** 

* RE-INITIALIZE ♦ 

* DTFREG * 

* WITH ADDRESS * 

* OF DTF TABLE * 

* * 
***************** 



*********** 



*****E 5********** 

♦ WRITELBL CP^ 
*_*_*_*_*-*_*_*_* 

♦ WRITE ♦ 

♦ USER'S LAST * 

♦ LABEL * 
***************** 



**♦* 
♦CP ♦ 
* J3 ♦. 



**** 
FILEMARK 

*****F5********** 

* SET DATA « 

* LENGTH TO * 

* ZERO FOR * 

* FILE MARK * 

* * 
***************** 



*_*_*_*_*_*_ 

* WRITE FILE * 

* MARK * 

* * 
***************** 

X 
**** 

* * 

* Jl * 

* * 
**** 



Jl ♦. 
.♦ TRACK ♦. 
.* HOLD ♦ 

..X+. INDICATOR 

*. ON IN .♦ 
♦ . DTF .* 
*. .♦ 
**** * YES 



****K1 ********* 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$BCL0S2 ♦ 
*************** 



***** 
♦CP ♦ 
* Bl^ 



♦***J2*****+^^^ 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$BCLOSE ♦ 
*************** 



REFERENCES 
TO CNJi: 
CMDl, CPCl 



*****j3********** 

* GET ADDRESS ♦ 

♦ OF USER ♦ 

♦ LABEL AREA * 

* * 
***************** 
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***** 

*CN * 

* H3* 



* MOVE * 

* LABEL TO * 

* OUTPUT AREA * 

* * 
***************** 



CONTINUE *. NO 


PROCESSING 


*..•• 


. LABELS .* 




*-m .* 




*. .* 


X 


* YES 


***** 




*CN * 




* Jl* 




* * 




* 




DIRTNMON 






Dl *. 




,* *. 




USER * 


NO 


WANT LABELS . 


*... . 


. UPDATED ,* 


. 



**E1******* 

* MODIFY * 
CCW TO 

WRITE 
DATA 

* * 
*********** 



♦DISK CP* 

* WRITE * 

* LABEL * 

* UPDATE * 

4c***4c**«********* 



* * 
MODIFY CCW 

TO READ 
DATA 

* * 

4e:«C3Jt*«***««« 



«*#*A3 #♦*****♦♦ 


****A4****«**** 


* *$BODACL * 


* $$ BOD ACL ♦ 


* WRITE LABEL * 


* DISK I/O * 


* SUBROUTINE * 


* SUBROUTINE * 


:(c*4: *#***:******* 


««*4c********#«*^ 


**«* * 






*CN ♦ 






* C5 *.X. 






* * 






♦*** , 






WRITELBL X 


DISK X 


♦***«B3*«* ♦**#*#♦ 


4:4c***B4««*««««*«4' 


*DISK CP* 


* GET ADDRESS * 


*_*_ *_*_*_ 30f_ ♦_* _# 


* OF CCB * 


* WRITE * 


* FOR * 


* USER * 


* SUPERVISOR * 


* LABEL * 


* * 


#:tc«^««:je 4:« ]{(« t=^3lf^3^* «« 


«4c«««#:j(*«**«*«***: 



* INCREASE * 

* RECORD NUMBER * 

* IN SEEK ♦ 

* ADDRESS * 

* FIELD * 

:tc******* ********* 



«4'***D3********** 

* INCREASE * 

* RECORD NUMBER * 

* IN COUNT * 

* FIELD * 

* * 
******♦#***♦***** 



*****E3********** 

* INCREASE * 

* TRAILER LABEL * 

* INDENT IN * 

* KEY FIELD * 

* BY 1 * 

4t**«***3t< «}((*****:«:* 



*««4(1#:f:3«**:4(***«:(c« 

* INCREASE * 

* LABEL INDENT * 

* FIELD BY « 



*««« «i|t «« #* «4r4:*# :((# 



.* MORE * 

.LABELS TO BE 
♦ .PROCESSED.* 



***C4************ 
SVC 
* EXECUTE * 
CHANNEL 
* PROGRAM * 

:«c ««**«*:*****«««:«[« 



«*«:««05***4'*«***«^ 



«:«:(c ««*****«****** 



4s**«*E4*****f«^«« 

* TEST FOR ♦ 

* RECORD FOUND * 

* TO SET * 

* CONDITION * 

* CODE * 

4c4c*******:****«*** 



*:ic**P4******«:((* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
3le«««*4t«*#«***** 



♦***G4*f******** 

* EXIT VIA * 

* REGISTER * 

* SUMREG * 

««**«*****«**:lc« 



* INCREASE * 

* KEY FOR * 

* NEXT LABEL * 

* * 

:((:«: :tc«;4=:ie«4c ********* 



***** 

*CN * 

* El* 

* * 



* MAXIMUM *. NO 

USER LABELS .*..., 
*. WRITTEN .* 



***** 
*CN * 
* C3* 

* * 



**J3******* 

* SET * 

LABELSW 

FOR NO MORE 

LABELS 

* WRITTEN ♦ 



***** 

*CN ♦ 
* F5* 
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* * 

* A2 * 

* * 



* ISAM LOAD * 

* ENDFL MACRO * 

* $$BENDPL * 



.* HAS 

*. FILE BEEN 
♦.EXTENDED . 
*. .* 



,*. 


WRTTI X 


SETPNT X 


A3 *. 


*«#«4iA4«*««««4'#«<t 


*****A5********** 


* PD *. 


* UPDATE SEEK/ * 


♦INDXWR DB* 


CYL *. YES 


* SEARCH AREA * 


*_*_*_*^_ *-*- ♦-*-* 


LAST ONE .*.... 


* AND lOAREAL * 


* WRITE MI * 


OF FILE .* 


* CUUNT AND * 


* NORMAL * 


*. .* 


* DATA FIELD * 


* ENTRY * 


*• .* X 


^,ti:l^***^3lf.****::^itli*1lf** 


4c«:((«« «#3(c ;(c4::tc* :tc4> :^ iC « 



.*• 


TESTPDUL ,*, 


BI *. 


B2 *. 


.♦ ♦. 


,* *, 


.* VSAM *. YES 


.* CYL LAST 


*. FILE .*.... 


*. ONE OF 


♦ . .* 


*. FILE 


♦ . .♦ 


*, ,* 


*. .* X 


*, ,* 


* NO ***** 


* YES 


*DB * 


**** 


* A3* 


* * . 


• * * 


* C2 *.X. 


* 


* * 




**** 


VALIDATE X 


DUTl X 


*****ci********** 


jj6*C2******* 


* * SVC 26 * * 


♦TURN ON NO 


* * VALIDATE * * 


* EOF WRITTEN 


* * lOAREAL * * 


*BIT IN DTF TB 


* * ADDRESS * * 


♦(FILENAME. C3 


* * LIMITS * * 


* 


««««*«4c********** 


*****:«(« «*«,:(( 



MOVEHR 

«««4e*Q3#4'******** 

♦HLADUPDT DB* 

* UPDATE REST ♦ 

* OF RECORD * 

* ADDRESS * 
*«:«c4( ************* 



♦ ♦ SVC 26 ♦ ♦ 

♦ * VALIDATE * ♦ 

♦ *AODR LIMITS* * 

♦ ♦ OF DTFIS ♦ ♦ 

♦ ♦ TABLE * * 



El ♦• 

•* CI ♦. 

.♦ OR MI TOO *. 

♦ . SMALL OR NO . 

♦. RECORDS .* 

♦WRITTEN* 



* NO 



3tC****Fl*******»** 

♦ GET lOAREAL * 

♦ POINTER AND * 

♦ KEYLENGTH-1 ♦ 

♦ AND DECREASE * 

♦ BY ONE ♦ 
«4c«**«««4c#*4c***** 



** 4c 4e*Gl ********** 

* GET KEY IN ♦ 

* BLOCK ADDRESS ♦ 

* PAD FIRST ♦ 

* BLOCK BYTE ♦ 

* WITH ONES ♦ 

** #* *#Jt(3(c******* * * 



«****Hl********** 
*EXCP DB^ 

*WRITE PARTIALLY^ 

* FILLED BLOCK ♦ 

* * 

4::ic4c****«:**:4<****** 



♦ Jl ♦.X 



**** 

UNBLFL X 

4e4c«*4cJl********** 

♦ SET UP ♦ 

♦ SEEK/SEARCH * 

♦ AREA AND ♦ 

♦ lOAREAL ♦ 

♦ COUNT FIELD ♦ 



.♦ FINAL ♦, 

PD RECORD 

LAST ON 

. TRACK . 



****02*** ****** 

♦ RETURN TO ♦ 

♦ PROBLEM * 

♦ PROGRAM * 

:(c4r:(c4'*** ******** 



♦ E2 ♦... 

♦ * , 
**** 

NXTRK X 

««4:4c«E2^ ***♦♦♦♦♦♦ 

♦ INCREASE * 

♦ TRACK NUMBER ♦ 

♦ IN lOAREAL ♦ 

♦ COUNT FIELD ♦ 

♦ BY 1 * 

:»c«*««* *« :^« ;((# «^:^:«c:ic 



•RSETTF 

**p 2 ******* 
♦RESET LAST * 

* TRACK FULL ♦ 
♦ INDICATOR ' 

♦ IN DTF ♦ 
♦ IF REQUIRED+ 

«3«C4C ******** 
**** 



**** 

BMPRCD X 

*****G2+^* *♦**♦** 
♦IDMV6P DB* 
i*_ *_*_*_*_♦_ #_*_* 

♦ MOVE AND ♦ 
» UPDATE KECORD * 

♦ ID * 

»#e:tc***** ********* 



:«c4c***H2* **♦*♦**** 

*EXCP DB* 

*_*_*_ *_*_S(C_*_«-* 

* WRITE EOF * 

* RECORD * 

* * 

»«:(c^#;e(«««4c«;tE ****:(c 



«**5»c*J2*** ♦*♦♦*♦♦ 

* SET UP ♦ 

* DATA AND ♦ 

* COWNT FIELD ♦ 

* IN lOAREAL * 

* * 

4:**************** 



.♦. 

K2 *. 

,♦ WAS ♦. 

.♦LAST PRIME ♦.. 

. DATA TRACK .♦ 

♦* FULL .♦ 



♦ LAST * 

TRACK INDEX 
*. TRACK=D .* 



4:#4:**B4^*^^***^^^ 

♦ SET F FIELD ♦ 

♦ TO X«08« FOR ♦ 

♦ TRACK INDEX * 

♦ ENTRY SHARED ♦ 

♦ IF REQUIRED * 

#«#«4:************ 



NONSHRD 

*#*«3t<(;4]tc********* 
♦TJWR DB^ 

♦ WRITE TRACK ♦ 

♦ INDEX NORMAL * 

♦ ENTRY ♦ 

*4: :(c^««;# #4^**** *** «* 



**:«( «4c04:tc4c«4c« «#« :tc:te 

♦ SET RFP OF ♦ 

♦ TRACK INDEX * 

♦ OVERFLOW ♦ 

♦ ENTRY ♦ 

♦ * 

;(i )jc :«e ;M:* ********* ** 



«****E3 ******«♦** 

* GET CCH, H, ♦ 

* AND DUMMY ♦ 

* RECORD NUMBER ♦ 

* TO LTIRA * 

* * 

««3jc)(c ***:«E*4:** *** ** 



4c«## *P3******** «c:tc 

♦ SET POINTER ♦ 

♦ TO LAST ♦ 
♦CYLINDER INDEX ♦ 

♦ ENTRY ♦ 

♦ ♦ 

**;tc« «^4c«:e(4!:tc3«c:«e3»:* ** 



*jjc***Q3********** 

*CMDECR DB^ 

♦CHCCK/DECREASc ♦ 

♦ CI ADDRESS ♦ 

* * 

;<»«c4:************** 



*:tc:i(««g4:(c«4::tc««:(c3(c4c:tc 

♦TJWR DB^ 

♦ WRITE TI ♦ 

♦ OVERFLOW ♦ 

♦ ENTRY * 

*;(c*«i»::tc:^*4c****** ** 



*****F4JSc********* 

♦ INITIALIZE ♦ 

♦ SEEK/SEARCH ♦ 

♦ AREA AND DATA ♦ 

♦ FIELD FOR ♦ 

♦ CI RECORD ♦ 

*:Cc4c****«********* 



**t**»G4* ********* 

♦ INDXWR DB^ 
*_*_*_*_*_*_*_*_* 

♦ WRITE CI ♦ 

♦ NORMAL ♦ 

♦ ENTRY * 
***************** 



.♦ LAST 
. CI RECORD 
*.0N TRACK .■■ 



**** 
MSTHI X 

*****65********** 
♦ SET POINTER ♦ 



♦ MASTER INDEX ♦ 

♦ * 
***************** 



BYTECL X 

*****(;5 ********** 

♦ COMPUTt ♦ 

♦ TOTAL NUMBER ♦ 

♦ OF BYTES USED ♦ 

♦ BY ENTRIES ♦ 

♦ IN INDEX * 
***************** 



*****D5********** 

♦ PADO lOAREAL ♦ 

♦ KEY FIELD ♦ 

♦ WITH ONES, ♦ 
♦SET POINTERS IN* 

♦ DATA FIELD ♦ 
***************** 



*****g5********** 

♦ GET EXTENT ♦ 
♦SEQUENCE NUMBERS 

♦ AND ADDRESS ♦ 

♦ OF LAST TI ♦ 
♦ENTRY IN CNTFi^D^ 
******^*********** 



*****F 5* ********* 

♦ SAVE RCD NO * 

♦ OF LAST TI * 

♦ NORMAL ENTRY f * 

♦ SAVE TRK NO, * 
♦HIGH RCD ON TI ♦ 
***************** 



*****J33(! ********* 

♦CMDECR Ob* 

♦CHECK/DECREASE * 

* MASTER INDEX ♦ 

♦ ADDRESS ♦ 
***4t************* 



WRIMI 

*****J4*** ******* 

♦ INITIALIZE ♦ 

♦ SEEK/SEARCH ♦ 

♦ AREA AND DATA ♦ 

♦ FIELD FOR * 

♦ MI RECORD ♦ 
***************** 



**K4^****** 

* * 

* SET POINTER ♦ 
♦ TYPE TO * 

* QUALIFIED ♦ 

♦ VALUE * 
*********** 



INICNT X 




*****G5********** 


♦ MOVE TI 


* 


♦ CCHH FROM 


* 


♦ COUNT FIELD 


* 


♦ TO SEEK/ 


* 


♦ SEARCH AREA 


» 


***************** 


♦*♦* 1 




*Db * 




♦ Di ♦.X. 




* * ^ 




**** X 




TINLOP .♦. 




H5 *. 




.* END ♦^ 




.* OF PD ♦ 


. NO 


*. EXTENT 


•♦..« . 


♦. REACHED .♦ 




*. .* 




*. .♦ 


X 


* YES 


***** 




«DB ♦ 




* Al* 




* » 




* 




CONTIti 


INACTC X 




*****j5********** 


* 


* 


♦ SAVE DTF 


* 


♦ AODFIESS 


* 


♦ FOR $$BENU<^F 


* 



***************** 



****K,5********* 

♦ SVC 2 ♦ 

♦ FETCH * 

♦ $$BENDFF * 
*************** 



**** 

* * 

* D3 ♦ 

* * 
**** 
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***** 

*0A * 
* H5* 



***** 
*DA * 
* Bl* 



CONTIN X 

*****A1 ********** 

* CLEAR HR * 

* FIELDS IN * 

* COUNT FIELD * 

* OF lOAREAL * 

* * 

*************«**:ic 



*****B1********** 
*HLADUPDT DB* 
*-*-*_*-*-*_*_*-* 

* UPDATE * 

* ADDRESS IN * 

* COUNT FIELD * 
***************** 



INCCNT X 

♦****Cl ********** 

* INCREASE CI * 

* INACTIVE * 

* ENTRY COUNTER * 

* BY 1 * 

* * 

***************:«r* 



INTIWR 

***»*01*****sjc**** 

*TIWR DB* 

*_*_*_*_!((_*_*_*_* 

* WRITE TI * 

* INACTIVE * 

* ENTRY * 
** *************** 



****Fl********* 

* $$BENDFL * 

* ACCUMULATOR * 

* SUBROUTINE * 
*************** 



*****Gi ********** 

* CALCULATE "^ 

* ACCUMULATOR * 

* VALUE AND * 

* STORE IN * 

* AREA DIF * 
***************** 



*****H1********** 

* GET CURRENT * 

* BYTE FROM * 

* CONTROL FIELD * 

* AND INCREASE * 

* BY 1 * 
***************** 



*****jl********** 

* MULTIPLY * 

* ACCUMULATOR * 

* BY INCREASED * 

* VALUE FROM * 

* CONTROL FIELD * 
***************** 



**** 

* * 

* KI *.X 

* * 
**** 



****A2********* 

* $$BENDFL * 

* WRITE TI * 

* SUBROUTINE * 
*************** 



TIWR 

*****B 2********** 
♦IDMVBP DB* 
*_*_*_*_*_*_*_*_* 

* INCREASE AND * 

* MOVE RECORD * 

* NUMBER * 
****,''************ 



.*. 

C2 *. 

.* CURR. *. 

.*TRACK LAST *. NO 

*. TRACK IN .*... 

*. CYLINDER .* 



****K1 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



ISSHRD 

*****D2* ********* 

* GET ADDR OF * 

* KEY FIELD IN * 

* lOAREAL. * 

* STORE IN CCW * 

* * 
***************** 



*****E 2 ********** 
*EXCP DB* 
*_*_*_*_*_*_*_*_* 

* WRITE SHARED * 

* TRACK * 

* ENTRY * 
***************** 



»****P2********** 

* * 

* RESTORE * 
.* ALL REQUIRED * 

* VALUES * 



***************** 



****e2* ******** 

* $$BENDFL * 
♦MOVE RECORD ID * 

* SUBROUTINE * 
*************** 



IDMVBP 

*****H2********** 

* MOVE CCHH * 

* FROM COUNT * 

* FIELD IN * 

* lOAREAL TO * 

* SEEK/SCH AREA * 
***************** 



RNOBMP X 

*****J2********** 

* MOVE RECORD * 

* NUMBER FROM * 
*COUNT FIELD TO * 

* SEEK/SEARCH * 

* AREA * 
***************** 



*****K2********** 

* INCREASE * 

* RECORD NUMBER * 
.*BY 1 AND STORE * 

* IN COUNT * 

* FIELD * 
***************** 



*****A3********** 
*MOVE USER RET. * 
*ADDR. INTO DTF * 

* AND IIP-ENDFL * 

* ADDRESSS INTO * 

* PSW * 
***************** 



****B3********* 

* SVC 11 * 

* 60 TO * 

* IIPPROC * 
*************** 



*****C3********** 
*£XCP DB* 

*_*_*_*_♦_♦_*_*_* 

.X*WRITE UNSHARED * 

* TRACK INDEX * 

* ENTRY * 

***************** 



*****03********** 

* * 

* UPDATE TI * 

* RECORD AND *. 

* TRACK NUMBER * 

* * 
***************** 



«***/^4********* 

* $$BENDFL * 
♦UPDATE ADDRESS * 

* SUBROUTINE * 
*************** 



HLADUPDT .*. 

84 *. 
.* END *. 
.* OF *. NO 

*, VOLUME .♦.-. 

». REACHED .* 



*****C4********** 

* MOVE CCH TO * 

* lOAREAL COUNT * 
*FIELD, SET PTR * 

* TO ADDRESS OF * 

* SK/SRCH AREA * 
***************** 



UPDTAD 

*****B5********** 

* SET ADDRESS * 

* ANO CONTROL * 
...X* POINTERS IN ♦ 

* RESPECTIVE * 

* COUNT FIELDS * 
***************** 



* GET REQUIRED * 

* DASO BYTE * 

* ADDRESS * 

* * 

***************** 



INCR 

*****Q4********** 

♦ INCREASE ♦ 

* CURRENT VALUE * 
.X...* <W) BY 1 * 

. * AND SAVE IT * 



***************** 



****£3 ********* 

* $$BENDFL * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
*************** 



♦SET UP CCB AND * 

* SEEK/SEARCH * 

* ADDR * 

* * 
***************** 



***G3************ 



***************** 



*****l^3* ********* 

* * * * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

: * * 

V**************** 



J3 *. 

.* TRACK *. 

.* OVERRUN * 

.OR NO RECORD 

*. FOUND .* 

*. .* 



****K3********* 

♦ SVC 11 ♦ 

♦ TO PROBLEM * 

♦ PROGRAM * 
*************** 



***«Q5 ********* 

♦ $$BENDFL * 

♦ DECREASE * 

♦ SUBROUTINE * 
*************** 



CMDECR X 

*«***E5 ***♦*♦♦*** 

* SET POINTERS * 

* TO LAST H * 

♦ IN ADDRESS * 
*CONTROL FLO AND* 

♦ CURR ADDR FLO * 
***************** 



*****P4********** 

* DECREASE ♦ 

♦ CONTROL FIELD * 

* AND ADDRESS *X. 
♦FIELD POINTERS * 

♦ BY 1 ♦ 
***************** 



****G4********* 

♦ $$BENDFL ♦ 

♦ WRITE CI/MI ♦ 

♦ SUBROUTINE ♦ 
*************** 



INDXWR 

*****H4********** 

♦ PUT LAST ♦ 

♦ CI/MI CCHHR ♦ 
♦IN COUNT FIELD ♦ 

* OF lOAREAL * 

* * 
***************** 



*****J4********** 

*IDMVBP DB* 
*_*_*_*_*_*_*_*_* 

* MOVE CCHH * 

* INCREASE * 

* RECORD NUMBER * 
***************** 



*****K4********** 

*EXCP DB* 

*_*_*_*_*_*_*_*_* 

* WRITE CI/MI *. 

* RECORD * 

* * 
***************** 



CKFLO .*. 

F5 *. 
.♦ *. 
YES .* CURR *. 
....*. AODR FIELD .* 



* DECREASE * 

* CURRENT FIELD ♦ 

* BY 1 ♦ 

* * 
***************** 



****H3****«**** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
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Chart DC, ISAM LOAD: ENDFL Macro, Phase 2, $$EENEFI CI of 2) 



* ISAM LOAD * 

* ENDFL MACRO * 

* $$BENOFF * 



««**«BL««*«*4'«**« 






* SET F OF * 






* INDEX LEVEL * 






* POINTER TO * 






* X»31« * 






* * 




**** 


««*#4c4c«««*«*«««=l'« 




* * 

* C2 * 
« * 


X 




X 


«*««4>C1***««**«*« 


«««««C2*^* «♦««*♦♦ 


* SET CI/MI * 


* 


SET F OF * 


♦EXTENT SEQUENCE* 


* 


INDEX LEVEL * 


* NUMBER IN * 


* 


POINTER TO * 


* SEEK/SEARCH * 


* 


X'32« * 


* AREA TO 1 * 


* 


* 


«« :tt*********m**if* 


««#:^#« ]e!«3e<««)te««»«* 



♦♦♦♦*D1 ********** 

* PUT LAST * 
♦CYLINDER INDEX * 

* ENTRY ADDRESS * 
*IN COUNT FIELD * 

* OF lOAREAL * 

«******«3tc4c******* 



*****E1********** 

* INITIALIZE * 

* MASTER INDEX * 
*INACTIVE ENTRY * 

* COUNTER * 
*, TO ONE * 
«4^*************** 



*CMINWR DD* 

#_*_*_♦_♦_*_*_*_* 

* WRITE CI * 

* INACTIVE * 

* ENTRIES * 

4(:t! « » 3ic3jc« 4e4t:(i4:«4e** * * 



*CMDUWR DD* 

* WRITE CI * 

* DUMMY END * 

* ENTRY * 

{(«*****#«:tc3gc*#4c*** 



i((4c***HI********** 



*«««:»i02********** 

* PUT LAST * 

* MASTER INDEX * 

* ENTRY ADDRESS * 
*IN COUNT FIELD * 

* OF lOAREAL * 

:((:«(«««:«£ «*#«******* 



«««**E2********** 

* INITIALIZE * 

* LOOP COUNTER * 

* TO NUMBER * 
*0F MI INACTIVE * 

* ENTRIES + 1 * 
«4i* 4c ****** ******* 



^«««:((P2********** 

*CMINWR DD* 

*-*_*_*_*_*_»_*-* 

* WRITE MI * 

* INACTIVE * 

* ENTRIES * 
#:0(****** ** ** ***** 



##***G2*** ******* 
*CMDUWR DD* 

*_*_*_*_#_*_*-♦_* 

* WRITE MI * 

* DUMMY END * 

* ENTRY * 

9|( « « « ^:»: *4c «:(e «# «« « ;4c 4: 



****«H2********** 



««i(c««B3««**«4i#*:(citc 

* PUT TRACK * 
♦NUMBER OF DUMMY* 

* CHAINED ENTRY * 
*IN COUNT FIELD * 

* OF lOAREAL * 

«:((:((«*«****«* «3(t « «« 



«««« «Q3 «*:«c3tt:|c:«c«4c ** 

* PUT CYLINDER * 

* INDEX LOWER * 

* LIMIT MBBCCH * 

* IN DATA FIELD * 

* * 

:<(:;<«:(( «:tc 4<* ******* ** 



* PUT HRFP * 

* OF CI DUMMY * 

* CHAINED IN * 

* DATA FIELD * 

* * 
«««««******««**** 



«««4c«E3*** ******* 

* SET POINTER * 

* TO ADDRESS OF * 

* CI DUMMY * 

* END ENTRY * 

* * 



«*«**f:3*** :((«***** 

*CMCHNW DD* 

♦_♦_*_*-*-*-*-*-* 

* WRITE CI * 

* DUMMY CHAIN * 

* ENTRIES * 
***************** 



*****C4********** 
*CMCHNW DD* 

*_*_*_*_*_*_*_*_* 

* WRITE MI * 

* DUMMY CHAIN * 

* ENTRIES * 
***************** 



****[)4********* 

* SVC II * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



*****H3*** ******* 



* SAVE CCH * 


* SAVE CCH * 


* SET F OF * 


* OF CYLINDER * 


* OF MASTER * 


* INDEX LEVEL * 


* INDEX DUMMY * 


* INDEX DUMMY * 


* POINTER TO * 


* END ENTRY * 


* END ENTRY * 


* X«2A« * 


***************** 


***************** 
,xl 


***************** 




ICICHNW X 




Jl' **. 


*****j 2*** ******* 


♦****J3********** 


.* *. 


* MOVE DUMMY * 


* SET POINTER * 


.* USING *. NO 


*CHAINED RCD NO.* 


« TO ADDRESS * 


*. MASTER INDEX .*.... 


* MINUS I TO * 


* OF MI * 


*. .* 


* SEEK/SEARCH * 


* DUMMY END * 


*. .* 


* AREA * 


* ENTRY * 


*. .* 


***************** 


***************** 


* YES 


I 


: 


X 


X 


X 


**** 


**** 


**** 


* * 


* * 


* * 


* C2 * 


* 83 * 


* C4 * 


* * 


* * 


* * 


**** 


**** 


**** 



****G4********* 

* RETURN TO * 
♦CALLING ROUTINE*X. 

* * 
*************** 



****A5 ********* 

♦ $$BENDFF * 

♦ INPUT/OUTPUT ♦ 

♦ SUBROUTINE ♦ 
*************** 



EXCP X 

*****B3********** 

* MOVE LOGICAL * 

* UNIT FROM * 

* DSKXTN * 

* TABLE TO CCB * 

* * 
***************** 



*****C3********** 

* MOVE CELL * 

* NUMBER TO * 

* SEEK/SEARCH * 

* AREA * 

* * 
***************** 



***05************ 



***************** 



*****E5********** 

* * * * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

* * * * 
***************** 



*****F5********** 

* SET CELL * 

* NUMBER IN * 

* SEEK/SEARCH * 

* AREA TO ZERO * 

* * 
***************** 



.* TRACK *. 
NO .* OVERRUN *. 
...*.0R NO RECORD .* 

*. FOUND .* 



**H5******* 

* SET DASD * 

* ERROR 

* INDICATOR IN 

* DTF TABLE 

* * 
*********** 



****J5********* 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 
*************** 
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Chart DD. ISAM LOAD: ENDFL Macro, Phase 2, $$EEi^EFF (2 cf 2) 



****A1********* 

* ISAM LOAD * 
*rfR. DUMMY ENTRY* 

* SUBROUTINE * 
^i(.if.i^.iltHf■^H^if.if^^^:i^ifiH^ 



it(*^:i^**:*i>i*J^*^^*'**'i' 



* SET F OF * 

* INDEX LEVEL * 

* POINTER FOR * 

* CI/MI DUMMY * 

* END ENTRY * 

♦ *** 







****A3********* 


****A4********* 






* ISAM LOAD * 


* ISAM LOAD ♦ 






*NR.INACT, ENTRY * 


*WR. DUMMY CHAIN* 






* SUBROUTINE * 


* SUBROUTINE * 


**** 

* * 

* B2 * 




*«« 3((Dc «:(( «it( «« **9t' « 


3(c4(:ic« 3(c4e« itt 4t « ate «««: 9t< 






* 


* * 






**** I 


**** 






* * , 

* B4 *.X. 

* * , 








**** X 


INCMWR X 




CMINWR X 


CMCHNW .*. 


*****62*** ******* 


**** *|33 « #«]*:4:#«« *3^ 


B4 *. 


♦IDMVBP 


00* 


* * 


,* *, 


*.*-.«_*_*_*_«. 


-*— * 


* DECREASE * 


.* END *. YES 


» MOVE AND 


* 


* LOOP COUNTER * 


*.aF FORMATTED .*........ 


* UPDATE 


* 


* BY 1 * 


*. AREA .* 


* RECORD 


* 


* * 


*• .* 


«4: :tc X(«« *3|« 4c4< *« *9tc <<*« 


iM<4c*«*** *****»:»«« 


*, .* 



****65********* 

* RETURN TO * 
X*CALLING ROUTINE* 

* ♦ 



*****C2* ********* 

*EXCP DC* 

*_ ;jc_ *_ *_ *_ 3jc_ ;((_ *_* 

* WRITE CI/MI * 

* ENTRY * 

* * 
*#*************♦* 



* Dl *.X 



**** X 
CMNLOP .*. 

Dl *. 

.♦CURRENT*. 

.♦RECORD LAST*. 

*. RECORD ON . 

*, TRACK M* 



*. 



*****gi ********** 

* SET RECORD * 

* NUMBER IN * 

* COUNT FIELD * 

* TO * 

* * 
***************** 



*****F1********** 

* INIT ADDRESS * 

* POINTER TO * 

* LOW H OF * 

* CCHHR IN * 

* COUNT FIELD * 
***************** 



*****G1********** 

* INIT CONTROL * 

* POINTER TO * 

* LOW H IN * 

* CI/MI ADDRESS * 

* CONTROL FIELD * 
***************** 



*****Hi********** 
*ADUPDT DD* 

*_*_*_*_*„*„*_*_* 

* UPDATE * 

* ADDRESS * 

* * 
***************** 



*****jl ********** 

* INCREASE * 

* COUNT OF * 

* NEXT INDEX * 

* LEVEL BY 1 * 

* * 
***************** 



****02********* 

* ISAM LOAD * 
♦ADDRESS UPDATE * 

* SUBROUTINE * 
*************** 



ADUPDI 

*****E2*** ******* 

* EQUALIZE * 

* REGISTERS * 

* W AND ADCTL * 

* FOR COMPARE * 

* * 
***************** 



****D3****»**** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



* F2 *.X 



»*** 
ADLOOP X 

*****P2*** ******* 

* GET * 

* CURRENT BYTE * 

* OF OASD * 

* ADDRESS * 

* * 
***************** 



*****G2*** ******* 

* GET * 

* CURRENT BYTE * 

* FROM ADDRESS * 

* CONTROL FIELD * 

* * 
***************** 



.*. 
H2 *. 
.* CURR *. 
DASD ADDR 
BYTE AT 
, UPPER . 
♦.LIMIT.* 



*, 



* NO 



*****J2********** 

* HMCREASE * 

* CURRENT * 

* ADDRESS BYTE * 

* BY 1 AND * 

* STORE * 
***************** 



****K2* ******** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****H3 ********** 

* ZERO CURRENT * 

* BYTE IN * 
.X* DASD ADDRESS * 

* FIELD * 

* * 
***************** 



*****j3********** 

* DECREASE * 

* ADDRESS AND * 

* CONTROL * 

* POINTERS * 

* BY ONE * 
***************** 



*****(; 4* ********* 

* MOVE CCH FROM * 

* DATA FIELD * 
*COUNT FIELD AND* 

* SET RCO NO. * 

* FOR DUMMY RCD * 
***************** 



*****P4********** 

♦ PUT CCHH FROM * 

* COUNT FIELD * 
*IN SEEK/SEARCH * 

♦ AREA * 

* * 
***************** 



*****£4********** 

* INIT ADDRESS * 

* POINTER TO * 

* HIGH H IN * 

* DATA FIELD * 

* * 
***************** 



*****P4********** 

* INIT CONTROL * 

* POINTER TO * 

* HIGH H IN * 

* CI/MI ADDRESS * 

* CONTROL FIELD ♦ 
** * *** *********** 



*^*-.*_*_*-*- 

* UPDATE * 

* DATA * 

* ADDRESS * 
***************** 



*«*:**H4********** 

*EXCP DC* 

*_*-*_.*^*-.*„*^*^* 

* WRITE CI/MI * 

* omm CHAW * 

* ENTRY * 
***************** 



****05*»******* 

* ISAM LOAD * 

* MOVE + UPDATE * 

* SUBROUTINE * 
*************** 



IDMVBP X 

*****g5********** 

* MOVE CCHH * 

* FROM COUNT * 

* FIELD IN ♦ 

* lOAREAL TO * 

* SEEK/SCH AREA ♦ 
***************** 



*COUNT FIELD TO * 

* SEEK/SEARCH * 

* AREA * 
***************** 



*****Q5****«***** 

* INCREASE * 

* RECORD NUMBER * 

* BY 1 AND * 

* STORE IN * 

* COUNT FIELD * 
***************** 



****H5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart DE. ISAM LOM: SETFL Macro, Phase 1, $$BSE'IFL (1 of 2) 



♦***A1*** ****** 

* ISAM LOAD ♦ 

* SETFL MACRO * 

* PHASE 1 * 
««4(**********«* 



««#:(e«/^2*** ******* 

♦RCDCAL OF* 

♦_♦_♦_♦_*_*_*_♦_* 

* FIND NUMBER * 

* OF ACTIVE * 

* CI RECORDS * 
»««««« 4>#4t* 4'«****4t 



ORCCW X 

*«4<*«A3********** 

* COMPLETE CCW * 
*BUILD AREA AND * 

* SET LIMIT IN * 

* SEEK/SEARCH * 

* ADDRESS AREA * 



PGBN .*. 




CISZOK .*. 


Bl *. 






B2 *. 


.* *. 






»♦ *. 


.* VSAM *. YES 




.* MASTER *. NO 


*. FILE .*. 






*. INDEX BEING .*.. 


*, ,♦ 






*, USED .* 


*. .* 






*. ,* 


*. .* 


X 




*. .* 


* NO 


♦ *** 


» YES 




* 


* 




, 


* A5 


* 






* 


* 




• 


**** 




VALIDATE X 






X 


«*«4(*CI********** 






*****C2*** ******* 


* * SVC 26 * * 






*RCDCAL DF* 


* * VALIDATE * * 






«_*_*_♦_*_♦-♦_♦-* 


* * OTFIS AND * ♦ 






* FIND NUMBER * 


* * lOAREAL * * 






* QF ACTIVE * 


* *ADDR LIMITS* * 






* MI RECORDS * 


«««*4c:f ***«****«■** 






:t<«4!*4c3(^««*#«**«*«« 



4<**4<*D1********** 

* MOVE INDEX ♦ 

* AND PRIME * 

* DATA LIMITS * 

* TO CONTROL * 

* FIELD IN DTF ♦ 

««««4e4c:tc**#«*«#4c*« 



GETRPT X 

«4c««*El********** 

*SAVE NUMBER OF * 

*CI/MI RECORDS, * 

*GET ADDRESS OF * 

* PRIME DATA * 

* EXTENT * 

«*««««4e####4:***** 



CREATE X 

*ASMS DF* 

* CALCULATE NO. * 

* OF PO EXTENTS * 

* AND SAVE * 

«4c««4t**:«c*4t:tc*****4t 



*ASMS DF* 

* FIND TOTAL * 

* NO, OF STRIPS * 

* * 



#4c#4c*HI ********** 

* GET CORRECT * 
*NUMBER OF PRIME* 
*DATA CYLINDERS** 

* EXTENTS, AND * 

* CELL STRIPS * 



PDILB 

#««:4t«J]^ ««:****«*** 

*ASMC DF* 

*_♦_*_*_#_*_*-*_* 

* FIND TOTAL * 

* NUMBER OF * 

* CYLINDERS - 1 * 



«:«c««4<Kl ********** 

♦SAVE NUMBER OF * 
* FRIME DATA * 
♦CYLINDERS - 1, * 
♦SET POINTERS TO* 
♦CYLINDER INDEX * 
«*4<«*4c*********«* 



««««*D2*** ******* 

* COMPUTE TOTAL * 

* NUMBER OF CI * 

* RECORDS * 

* REFERENCED * 

* MASTER INDEX * 

:«i4i 3f* ***#***« «4<*** 



CMllB X 

«:4«#«#E2*** ******* 

* COMPUTE * 

* NUMBER OF CI * 

* CYLINDERS * 

* REFERENCED * 

* MASTER INDEX ♦ 

«:»:««************# 



NOREM 

*****F2*********» 

* SUBTRACT 1 * 

* FOR EACH * 

* CI CYLINDER * 

* FROM TOTAL * 

* RECORDS * 



MISZOK .*. 

62 *. 
.* CI *, 
.* OR MI *, NO 

♦.EXTENT LARGE .*..., 
*. ENOUGH .* 



:|t4i«««C3********** 

*SET HR OF LPDRA* 

* TO HR OF * 

* RECORD BEFORE * 

* FIRST PD RCD * 

«3{c:4c*«:tc**3^« ******* 



EXTEND 

««4f**A4********** 

* SAVE ADDRESS * 

* OF LAST PRIME * 
..X* DATA RCD AND * 

* NO OF LAST TI * 
*OVERFLOW ENTRY * 



**««:<: g4:t< **««***** 

* COMPUTE AND * 
» SAVE LAST TI * 
♦OVERFLOW ENTRY * 

* TRACK NUMBER * 

* IF REQUIRED * 



LIMCHK 

*:^«#:(cC4********** 

* SET PD UPPER * 

* LIMIT TO * 

* INCREASED PD * 

* UPPER LIMIT * 

* IF REQUIRED * 



:(c4<#:(c«A5********** 

* * 

* MOVE USER * 
♦RETURN ADDRESS * 
*INTO DTF TABLE * 

* « 



«««««B3********** 

* * 

*MOVE ADDRESS OF* 
*IIP-ENDFL RTN. * 

* INTO PSw * 

* * 



#***C5*****«*** 

* SVC 11 * 

* GO TO * 

* IIPPR^C * 



X 


CKLSTK .*. 


LSTRCD .*. 




^^^'^^oa**^^****** 


D4 *. 


D5 *. 




* * 


.* LAST *. 


.* LAST *. 




* SET ALL * 


.* PRIME *. YES 


.*PRIME DATA * 


. YES 


* REQUIRED RCD * 


*. DATA TRACK .*.... 


...X*. TRACK IN 


«*. ... 


*ADDRESS VALUES * 


*. FULL .* 


♦.CYLINDER .* 




* * 


*, .* 


*. .* 




4c«:tc#*:(t««4'****** ** 


*. .* 


*. ,« 


X 




* NO 


* NO 


***** 


***♦ I 






*0F * 


* * . 






* Ai* 


* E3 *,X. 






* * 


♦ * . 






* 


***♦ 




r LSTTRK 


INTCCW 


SMIRK X 


X 




X 


****!*E4**#*****:jt:r 


#**«*£ 5 ***««;j5**** 


**«*E3****#***« 


* DECREASE * 


* INCREASt 


* 


* SVC 2 * 


* LAST TI * 


* PRIME DATA 


* 


* FETCH * 


♦TRACK OR RECORD* 


* TRACK NUMBER 


* 


* $SBSETFF * 


* NUMBER BY ONE * 


* BY 1 


* 


««:te«##«:tc«:tt«4'«#« 


* * 


* 


* 



«#4<*«**********«* 



DECTRK 

* DECREASE * 

* RECORD NUMBER * 

* BY ONE AND * 

* SAVE IT AS * 
♦LAST TI RECORD * 

*4c ;«( #:«(« *^** *** ^^*** 



****G3********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 

4c«* #« 9ec3«e##«***** 



«>««#«I-I2********** 

* GET LOGICAL * 
♦RECORD LENGTH, ♦ 

* HEAD NUMBER, * 

* AND REQUIRED * 

* RECORD NUMBER * 
****** **^c* #**#*** 



SHARED 

*****J2********** 

* GET TI DUMMY * 

* RECORD NUMBER * 

* OR NW4BER OF * 

* RCD PRECEDING * 
♦PRIME DATA RCD * 
***************** 



CCWBLD X 

*****K2********** 

* GET ALL * 

* REQUIRED * 

* ADDRESSES * 

* TO CCW * 

* BUILD AREA * 
***************** 



OECCYL 

*****g4********** 

* OECREASfc * 

* LAST CI * 

* RECORD NUMBER ♦ 

* BY 1 * 

* * 
***************** 



DECMST 

*****H4********** 

* DECREASE ♦ 

* LAST MI * 

* RECORD NUMBER * 

* BY 1 * 

* * 
***************** 



***************** 



*****F5 ♦**♦♦***♦* 

* SET NUMBER * 

* OF LAST * 

* PRIME DATA * 

* RECORD TO * 

* ZERO * 
***************** 



*****Q5********** 

* LAST * 

* RECORD ♦ 

* ON TRACK * 

* INDEX * 

* TRACK * 
***************** 



*****H5********** 

* SET RECORD * 

* NUMBER UF ♦ 
.» LAST TRACK * 

* INDEX TU a » 

* * 
***************** 
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Chart DF. ISAM LOAD: SETFL Macro, Phase 1, $$ESE'IFL (2 of 2) 



***** 

*DE * 
* D5* 



LSTTRK X 

*****A1********** 

* GET TRACK * 

* AND RECORD * 

* NUMBER OF * 

* RECORD BEFORE * 

* FIRST PO RCD * 
***************** 



*****B !******♦*** 

* GET BEGINNING * 

* ADDRESS * 

* OF PRIME * 

* DATA VOLUME * 

* * 

:4c*:«c***4c********** 



NTNDPK 

*****Cl********** 
*ADUPDT DF* 

♦UPDATE CURRENT * 

* ADDRESS * 

* * 
***************** 



PDTOTI 

*****0l********** 

* SET POINTERS * 

* TO LAST TI * 

* ADDRESS AND * 

* LAST CI RCD ♦ 

* ADDRESS * 
***************** 



*****E1 ********** 

*CMUPDT DF* 

*_*_*_*_*_*_*„*_* 

* CHECK AND * 

* UPDATE CI * 
♦RECORD ADDRESS * 
***************** 



*****P]^********** 

* SET ADDRESS * 

* POINTER TO * 

* HR OF LAST * 

* MASTER INDEX * 

* RECORD * 
***************** 



*****Gl ********** 
♦CMUPDT DF* 
*_*_*_*_*_*_*_*_* 

* CHECK AND * 

* UPDATE MI * 
*RECORD ADDRESS * 
***************** 



****Hl********* 

* SVC 2 * 

* FETCH * 

* $$RSFTFF * 
*************** 



****A2********* 

* $$BSETFL * 

* CHECK CI ADDR * 

* SUBROUTINE * 
*************** 



.* WRONG *. 
.*RCD NO. OR *. 
. LAST TRACK . 
♦IN CYLINDER* 



****A4********* 

* $$BSETFL * 

* GET CYL. NO. * 

* SUBROUTINE * 
*************** 



NWTKCM 

*****C 2*** ******* 
♦SET RCD NUMBER * 

* TO ZERO AND ♦ 
♦CONTROL POINTER* 

* TO CI/MI ADDR ♦ 

* CONTROL FIELD * 
**♦♦******#****** 



****B3*** ****** 

* EXIT VIA * 

* REGISTER * 

* LOXIT * 
********* ****** 



****C3********* 

* $$BSETFL * 
*UPDATE ADDRESS * 

* SUBROUTINE * 
*************** 



****E2********* 

* $$BSETFL * 

* FIND RCD, NO. * 

* SUBROUTINE * 
*************** 



RCDCAL 

*****p 2********** 
♦ASMS DF* 
*_*_*_*_*_*_*_*_* 

* CALCULATE NO. * 

* OF CYLINDERS * 

* PLUS 1 * 
***************** 



*****G2*** ******* 

* GET NUMBER * 

* OF RECORDS * 

* ON CI/MI * 

* TRACK - 1 * 

* * 
***************** 



*****H 2*** ****♦♦♦ 
♦ASMC DF^ 

*_*_*_*_*_*_*_*_* 

* FIND NUMBER * 

* OF RECORDS * 

* * 
***************** 



*****J2********** 

* SUBTRACT * 

* NUMBER OF * 

* DUMMY * 

* RECORDS FROM * 

* RESULT (RSLT) * 
***************** 



****K2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



ADUPDT 

*****D3* ********* 

CHECK FIELDS * 



***************** 



* UPDATE * 
*UPDATE ADDRESS * 

* BY 1 * 

* * 
***************** 



****F3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



ASMC 

*****B4********** 

* INITIALIZE * 

* LOOP CONTROL * 

* WITH VALUE * 

* FROM CALLING * 

* ROUTINE * 
***************** 



ASML X 

*****£ 4********** 

* CALCULATE * 

* CURRENT * 

* ACCUMULATION * 

* AND SAVE IN * 

* AREA OIF * 
***************** 



*****D4********** 

* MULTIPLY ACC * 

* BY UPDATED * 

* BYTE FROM * 
♦ADDRESS CONTROL* 

* FIELD * 
***************** 



*****E4********** 
*INCREASE UPPER * 

* LIMIT, LOWER * 

* LIMIT AND * 
♦CONTROL POINTER* 

* BY 1 * 
***************** 



*****(: 4*** ******* 

* DECREASE * 

* LOOP COUNT * 

* BY ONE UNTIL * 

* IT IS ZERO * 

* * 
***************** 



****G4********* 

* RETURN TO * 

* CALLING ♦ 

* ROUTINE * 
*************** 



****A5********* 

* «$BSETFL * 

* GET STRIP NO. * 

* SUBROUTINE * 
*************** 



* ZERO * 
.* RESULT * 

* ACCUMULATOR * 

* (RSLT) * 
***************** 
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Chart DG, ISAM LOAD: SETIL Macro, Phase 2, $$BSETFF 



* ISAM LOAD * 

* SETFL MACRO * 

* $$BSETFF » 



START 

♦MOVE LAST TRACK* 

* INDEX DUMMY * 

* TRK NO, TO * 

* SEEK/SEARCH * 

* ADDRESS AREA * 



3|c4<««#Ql*«« «««*:((:(( lie 

* SET RECORD * 

* NUMBER IN * 

* SEEK/SEARCH * 

* ADDR AREA * 

* TO * 

«4e*«***>t<*****«*4<* 



♦ Dl *.X 



**** 
STORKL X 

«««««01********** 

* STORE KEY * 
*LENGTH IN COUNT* 

* FIELD ASSOC. * 

* WITH THE * 

* WCKD CCW * 



.* KEY *. 
.* LENGTH * 
*. STORED IN 41 
*. CCW'S .* 



«««4(«E 2********** 

* POINT TO * 

* NEXT TRACK * 
X* INDEX COUNT * 

♦ FIELD * 

♦ * 



* 83 * 

* * 



«*«««B3«««4'X<*«*4i:»= 

* GET THE NO. * 

* aOF TRACKS * 

* PER CYLINDER * 

* FOR PRIME * 

* DATA DEVICE * 



SUBTCT 

««:4c««C3********** 

♦SUBTRACT NO. UF* 

* CYL OVERFLOW * 
♦TRACKS FROM NO.* 

* OF TRACKS PER * 

* CYLINDER * 



:(e4(*4c*D3********** 

♦STORE RESULT AS* 
*N0. OF CYLINDER* 
*0VERFL0W TRACKS* 
*IN COCR OUTPUT * 
* AREA * 



:«!*4c4c:«tE3««#4<«*4t«:4(* 

* GET SEEK * 

* AND SEARCH * 

* CCW'S FROM * 

* OTFIS TABLE * 

* * 



* 84 * 

* * 



4(4c««4<B4********** 
*RESET FLAG BITS* 
♦UF TRACK INDEX * 

* DUMMY * 

* WRITE CCW * 

* TO ZERO * 



«*«««C4********** 
*SfcT BYTE COUNT * 
♦IN TRACK INDEX * 

* CCW TO KEY * 

* LNG PLUS 18 * 

* ♦ 



««:*«« D4********** 

* GET TIC * 

* CCW TO * 

* WRITE RO * 

* CHAIN * 

* * 



.* WRITE ♦. YES 
♦.VERIFY OPTION.^.... 
♦. SPEC .♦ 



* SET TIC * 

* CCW TO * 
X* POINT Tu * 

* VERIFY * 

* CHAIN * 



* * 

* GET ADDR * 

* OF ♦ 

* lOAREAL * 

* * 
*«4<******«***** * * 



* * 

* SAVE KEY * 

* LENGTH * 

* MINUS I * 

* * 



«:ic« * :((H1 «*****«** « 

* * 

* PAD KEY AREA * 

* OF lOAREAL * 

* WITH 1 BITS * 

* * 



***** Jl ********** 

* SET UP * 

* A DUMMY END * 

* ENTRY IN * 

* lOAREAL * 

* * 
«***««***«4<****** 



Xe****Kl********** 

* MOVE PTER TO * 
*FIRST CYLINDER * 
*OVERFLOW TRK TO* 

* COCR OUTPUT * 

* AREA * 

:(c«:(c:^«4c:jc«:«c:|c:ic«4:4c*** 



GETADR .*. 


NUVERF 


.♦• 


F3 *. 




F4 *. 


.RELOCATE*. 




.CYLINDER*. 


.* 54 WRITE *. 


,* 


OVERFLOW *. NO 


*. COUNT, KEY, .* 


*. 


OPTION .*.... 


*.AND DATA .* 


* 


. SPEC .♦ 


*.CCW«S.* 




*. .* • 


*. .* 




*. .* X 


* 




* YES **** 



♦SUBTRACT 1 FROM* 
*TI DUMMY RECORD* 

* NO. AND STORE * 

* RESULT IN TI * 
♦DUMMY SRCH ADOR* 



*****H3********** 

* MOVE ADDR. OF * 
*IOAREAL TO DATA* 

* ADDRESS FIELD * 
*0F TRACK INDEX * 
*DUMMY WRITE CCW* 
******** «****«4<«:(c 



.* DASD *. NO 

.FILE PROTECT .*... 
*. SPEC .* 



*****G5********** 

* # 

* REPLACE iEEK * 
X* COMMAND * 

* WITH NO-UP * 

* * 
*******#*♦***♦**« 



SfcTCC 

*:«t:J=**|-(5********** 

* SET COMMAND * 

* CHAINING FLAG * 
...X* BIT IN TI * 

*DUMMY WRITE AND* 

* VERIFY CCW'S * 
***************** 

♦*** 



* J5 *.X 



**** 
RSETFP X 

**J5******* 
* RESET * 

* FILE 

* PROTECT 

* INDICATOR 

« * 

*********** 



****K5 ********* 

* SVC 2 * 

* FETCH * 

* $$bSETFG * 
*************** 
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Chart DH. ISAM LO?^D: SETFI Macro, Phase 3, $$ESE1FG 



****A1********* 

* ISAM LOAD * 

* SETFL MACRO * 

* $$BS£TFG * 



START X 

*i(.***Bl********** 

* INITIALIZE * 

* OTF TABLE * 

* BASE FOR * 

* THIS PHASE * 

* * 



***«*A4********** 
♦EXCP DJ* 

♦_*_*_!(£_*_*_*_#_# 

* FORMAT LAST * 

* TRACK INDEX * 

* TRACK * 

« j|c * 3(l*ijc ;tc «* « 4^ ♦ *♦« »« 



CI *. 

.* FILE * 
EXTENDED 
BUT SAME 
. UPPER 
*.LIMIT.* 
*, .* 
* NO 



**** X 
WRLOOP .*. 




El *. 


4c«jt(4c:icE 2*** ♦♦*♦♦*♦ 


.* SEEK/ *. 


* INCREASE * 


.*S£ARCH ADDR*. YES 


♦EXTENT SEQUENCE* 


*. AT END OF .*....., 


..X* NUMBER (M) * 


*. VOLUME .* 


*IN SEEK/SEARCH * 


*, ,* 


* AREA * 


*, .* 


*t******it'******** 


* NO 


• 



AOUPDT 

*****Fl********** 

* GET ADDRESS * 

* OF HIGH ORDER * 

* HEAD IN * 

* SEEK/SEARCH * 

* ADDRESS * 

**** 



* Gl 



ADLOOP X 

* GET * 

* BYTE FROM * 

* SEEK/SEARCH * 

* ADDRESS AREA * 

* * 



«4c#«4<Hl ♦♦♦♦♦♦♦♦♦♦ 

* GET * 

* CORRESPONDING * 
♦BYTE FROM PRIMES 

♦ DATA ADDRESS ♦ 

♦ CONTROL FIELD ♦ 



*«*««P2**« ♦♦♦♦♦♦♦ 

♦ MOVE ADDRESS ♦ 

♦ OF BEGINNING ♦ 

♦ OF VOLUME ♦ 
♦TO SEEK/SEARCH ♦ 

♦ AREA ♦ 

««4c«^« «(♦♦♦♦♦♦*♦«« 



SETADR X 

♦ PUT NEW ♦ 

♦ ADDRESS IN ♦ 

♦ SEEK/SEARCH * 
♦AREA FOR WRITE ♦ 

♦ RO DATA ♦ 

3ic4::«(3gt*4e ♦♦«♦♦♦♦♦♦♦♦ 



♦PUT NEW ADDRESS^ 
♦IN SEARCH AREA * 

♦ FOR TRACK ♦ 

♦ INDEX DUMMY ♦ 

♦ VERIFY ♦ 

««« « 3(<4c «4c «# «:«< *«4! 4<:^ 



♦PUT HIGH ORDER ♦ 

♦ HEAD NUMBER * 

♦ FROM SEEK/ ♦ 
♦SEARCH AREA IN ♦ 

♦ RO DATA FIELD ♦ 



♦ GET ♦ 
♦CCHH FROM TRACKS 

♦ INDEX DUMMY ♦ 

♦ SEARCH AREA ♦ 

♦ ♦ 



♦ * 

♦ SET INDEX ♦ 

♦ FOR LOOP ♦ 

♦ TO ♦ 

♦ * 
«#«3f «««♦«♦««««« *♦ 



♦ PUT ADDRESS ♦ 

♦ OF WRITE ♦ 

♦ RO DATA ♦ 

♦ CCW»S IN CCB ♦ 

♦ ♦ 
*»« ^^^^^^(♦♦♦♦♦♦♦^ 



♦EXCP DJ* 

♦ WRITE RO * 

♦ DATA ♦ 

♦ ♦ 



* A5 ♦ 

» ♦ 

«♦♦* 



STPIOA X 

4(«3((««A5 ♦♦♦♦♦*♦♦♦♦ 
♦MOVE LAST PRIME* 

♦ DATA ENTRY * 
♦ADDRESS (LPDRAJ* 
♦TO SEEK/SEARCH * 

♦ AREA ♦ 



«4(***B5*#******** 

♦ MOVE CCHHR * 

♦ FROM LPDRA * 

♦ TO COUNT ♦ 

♦ FIELD OF ♦ 

♦ lOAREAL * 

30t#«4<^**» ********* 



«4t*«*C5*** ******* 

* MOVE KEY * 

* LENGTH AND * 

* DATA LENGTH * 
♦TO COUNT FIELD * 

* OF lOAREAL * 

«!*♦**♦****♦♦♦**** 



*«***D 5 ♦♦♦♦*♦♦♦** 

* MOVE AOORE-SS ♦ 

* OF CCW * 

* CHAIN TO * 

* CCB ♦ 

* 3f 
««************♦«* 



YES .* END OF * . NO 

...*. PRIME DATA .*.... 

*. AREA .* 

*. .* 

X ♦, .* X 

**** * **** 

* ♦ 4c 4< 

* A5 ♦ * El ♦ 

* * * ♦ 
**** 4(«4'^ 



^^(♦♦F4^******** 

♦ SVC 2 ♦ 

♦ FETCH ♦X. 

♦ $$BSETFH ♦ 
4c#«4c*««3f ♦♦****« 



««4(4(3(c£ 5 «4<3(c##4<**** 

* * 

* SET LOGICAL * 
♦RECORD COUNTER ♦ 

♦ TO ♦ 

♦ * 
«i(c4:*##4****«4«**** 



* G3 *.X 



**♦♦ 
STOADR X 

««4(««G3 ♦♦*♦♦♦**♦♦ 

♦ STORE CCHH * 

♦ IN TRACK * 

♦ INDEX COUNT * 

♦ FIELD * 

♦ * 
«««* ♦♦♦♦♦♦♦♦**«♦♦ 



♦^♦♦♦H3 ***♦*♦*♦*♦ 



^^'♦♦♦♦♦^ **♦**♦♦*♦ 



RETURN X 

^^^♦♦G5********** 

♦ SAVE CURRENT * 
♦LOGICAL RECORD ♦ 

♦ AOORESS IN * 
♦BLOCK POSITION * 

♦ INDICATOR ♦ 
««♦♦♦♦♦**♦♦♦♦♦♦♦♦ 



4i«#4c*H5^********* 

* * 

* STORE LOGICAL * 
♦RECORD COUNTER * 

* IN DTF TABLE ♦ 

***************** 



.♦CURRENT*. 
.* FIELD AT ♦. YES 
*. UPPER .♦,.... 
♦. LIMIT .♦ 
♦ . .♦ 
♦ , .* 
♦ NO 


****^J2*** ***♦♦♦* 

* SET CURRENT * 

♦ BYTE IN * 
..X^ SEEK/SEARCH * 

♦ AREA TO ♦ 

* * 
«4c^*** *»***♦«♦*♦♦ 


J3 *. 
.♦END OF ♦. 
.♦TRACK INDEX^ 
♦. COUNT 

♦. FIELD .* 
♦. .♦ 
♦ . .♦ 
♦ YES 


. NO 
...... 

X 

*♦♦* 










♦ G3 

* > 










***♦ 


INCR X 
***«*K1******^^^^ 

♦ * 

♦ INCREASE ♦ 

♦ CURRENT FIELD * 

♦ BY 1 * 


X 
♦♦♦♦♦K2^^^^^^^**^ 

♦ INCREASE ♦ 

* POINTER TO ♦ 

♦ SEEK/SEARCH ♦ 

* AREA 6Y 1 ♦ 


X 
*****K3***+^^^*^^ 

♦ MOVE LAST ♦ 





4c4c«*4c^^^^*******« 



********♦***♦***# 



^c^c^t^ ♦♦♦♦♦* ♦♦♦***♦ 



4(***«J5«««4c**^^^* 

* * 

* MOVE ADDRESS * 

* OF CCW CHAIN * 

* TO CCB * 

* * 
4c4c3(c«4<*******^*^** 



««^*K5*^*^^**** 

* SVC li * 

* TO PROBLEM * 

* PROGRAM * 
4c«***** ******** 
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Chart DJ. ISAM LOAD: SETFL Macro, Phase 4, $$ESETFH 



* * 

* A2 * 
**♦♦ 



* ISAMl LOAD ♦ 

* SETFL MACRO * 

* $$BSETFH * 



* * 

* GET STARTING * 

* ADDRESS OF * 

* DTF TABLE * 



CKNXT X 

INCREASE * 



*«««** «**«4e«***4t* 



* * 

* INCREASE * 
♦LOGICAL RECORD * 
♦COUNTER BY ONE * 

* * 



CI *► 






.* LAST ♦. 






BLOCKED * 


. YES 


RECORD 


.♦ 




. FULL .* 






*. .* 






*, .* 




X 


* NO 




*♦♦♦ 

* 


I 






^HfQl^tint*******: 






4c 




GET LOGICAL 


* 




RECORD 


* 




LENGTH 


* 





****#«***♦**♦♦**« 



♦RDEXCP OJ* 
*_*_♦_♦_*_♦-.*_*_* 

* READ LAST * 

* PRIME DATA * 

* RECORD * 

*«4t4t«*#i|e4t4i4e4t4[4c*** 



* DECREASE * 

* LAST PRIME ♦ 

* DATA RECORD ♦ 

* NUMBER BY I ♦ 

* FOR SEARCH * 



♦ * 
« Gl *.X 



POINT X 

«*««>|c{;i 4:4c4c4c4>*4<^4'4<« 

* SET POINTER * 

* TO KEY FIELD * 

* IN * 

* LOGICAL ♦ 

* RECORD * 



HI ♦. 
* *. 

FIRST ♦. NO 
BYTE •♦... 

PADDED .«■ 



* A2 * 
**** 



.* REST *. 
*. OF KEY 
♦. PADDED .* 



RETURN X 

♦ SAVE CURRENT * 
♦LOGICAL RECORD * 

* ADDRESS IN * 
♦BLOCK POSITION » 
« INDICATOR ♦ 



♦ STORE LOGICAL * 

♦ RECORD ♦ 

♦ COUNTER IN ♦ 

♦ DTF TABLE ♦ 

♦ ♦ 



* SAVE * 

* SEEK/SEARCH ♦ 

* ADDRESS ♦ 

* ♦ 



i(f*t**03********** 



ENTRY ADDRESS * 
♦TO SEEKASEARCH ♦ 
♦ ADDRESS * 



^^^^^^^♦♦♦♦♦♦♦♦♦^ 

♦ ADD ONE TO * 

♦ LAST CYLINDER * 

♦ INDEX ENTRY ♦ 

♦ ADDRESS RCO * 

♦ NUMBER * 
***************** 



*****fo^********** 
♦RDEXCP 04* 

♦_*_♦_♦-#_♦_♦_♦_* 

♦ READ LAST ♦ 

♦ CYLINDER ♦ 

♦ INDEX ENTRY ♦ 
***************** 



*****Q'i********** 

* * 

* RESTORE ♦ 

* SEEK/SEARCH ♦ 
» ADDRESS * 

* * 
***************** 



*****y\^* ********* 

♦ * 

♦ MOVE ADDRESS ♦ 

♦ OF CCM CHAIN ♦ 

♦ TO CCB ♦ 

♦ * 
***************** 



****J3********* 

♦ SVC II ♦ 

♦ TO PROBLEM * 

♦ PROGRAM ♦ 
** * **** ******* * 



****fi^i^********* 

* ISAM LOAD ♦ 

* INPUT/OUTPUT ♦ 

* SUBROUTINE ♦ 
*************** 



EXCP 

*****Q^********** 

* MOVE ♦ 

* LOGICAL UNIT ♦ 

* FROM DSKXTN ♦ 

* TABLE TO CCB ♦ 

* ♦ 
***************** 



*****Cit********** 

* MOVE CELL ♦ 

* NUMBER FROM ♦ 

* DSKXTN TABLE ♦ 
♦TO SEEK/SEARCH ♦ 
» ADDRESS ♦ 
***************** 



*****Qfy********** 

* MOVE CELL ♦ 

* NUMBER TO ♦ 

* SEEK/SEARCH ♦ 

* AREA FOR ♦ 

* RO DATA ♦ 
***************** 



***££,,************ 

* SVC ♦ 

EXCP 
♦ ♦ 

^L**************** 



****fiS********* 

♦ ISAM LOAD ♦ 

♦ READ ♦ 

♦ SUBROUTINE ♦ 
*************** 



RDEXCP X 

**«*«B5 **♦**♦♦*** 

♦ GET ADDRESS ♦ 

♦ OF KEY IN ♦ 

♦ lOAREAL AND * 

♦ MOVE TO * 

♦ CCW ♦ 
***************** 



*****Q^********** 

♦ SET CCW * 

♦ COMMAND CODE ♦ 

♦ TO READ KEY ♦ 

♦ AND DATA * 

♦ * 
***************** 



*****Q^********** 

♦ GET KEY * 

♦ LENGTH AND * 

♦ DATA LENGTH ♦ 

♦ OF PRIME DATA ♦ 

♦ RECORD ♦ 
***************** 



*****^^********** 

* SAVE LENGTHS ♦ 
.♦ IN CCW * 

* ZERO FLAGS * 

* * 
***************** 



*****f 5 ********** 



************ ***** 



OTHERR 

*****Q/^********** 

♦ SET CELL ♦ 

♦ NUMBER IN ♦ 

♦ SEEK/SEARCH ♦ 

♦ ADDRESS TO ♦ 

♦ ♦ 
***************** 



,♦ TRACK ♦. 
.♦ OVERRUN *. NO 
.OR NO RECORD .♦... 
♦. FOUND .♦ 



****^^ ********* 

* RETURN TO ♦ 
.X+CALLING ROUTINE* 

* * 
*************** 



**j^******* 
* SET DASD * 

* ERROR ♦ 
INDICATOR IN 

* DTF TABLE ♦ 
( FILENAME. CJ* 

*********** 



****f(^i^********* 

♦ SVC 11 * 

♦ TO PROBLEM ♦ 

♦ PROGRAM ♦ 
*************** 



**** 

♦ * 

♦ A2 * 

♦ 4c 
**** 



♦ A3 ♦ 

* * 
**4t* 
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Chart DK. ISAM LOAD: WROTE Macro, NEWKEY (1 cf 3) 



♦ A3 * 

* * 
♦ **♦ 



****A1********* 

* ISAM LOAD * 

* WRITE MACRO * 

* NEWKEY * 



Bl *. 

.* PRIME *. 

.* DATA *. YES 

FULL OR .*,... 

*.CI/MI TOO.* 

♦.SMALL.* 



* RETURN TO * 

* PROBLEM * 

* PROGRAM * 



* NO 



* GET ADDRS QF * 

* lOAREAL, * 

* WORKL, KEY ♦ 

* WORKLf BLOC< * 
♦POSITION IMDIC * 



IJHMIIOB 

* GET ADDRS OF * 

* lOAREAS * 

* AND GET * 

* KEY LENGTH * 

* MINUS ONE * 

;)( 4e * 4t * «c <t * i|c « «;(( « <( «E >(c 4! 



IJHMEXMV X 

*****A3 *♦*♦*****» 

* MOVE UP TO * 

* 256 BYTES * 

* TO I/O AREA, * 

* UPDATE PD AND * 
*LOG. RCO COUNT * 



*#4c4<*B3*'<'***«*««« 

♦IJHMRN8P DM* 

*_♦_*_*_♦_♦-♦_♦_* 

* UPDATE * 

* RECORD ID * 

* * 



* MOVE MBBCCHH * 

* FROM SEEK/ * 
♦SEARCH ADDR TO * 

* LAST PRIME DATA* 
♦RECORD ADDRESS * 

«4t**:(t*** ********* 



IJHMOKFL .*. 



***** 
*DL * 

* H2* 
* * 



.* WAS *. YES 
*. ENDFL MACR3 .*.... 
*. ISSUED .* 
*. .* 

*. .♦ X 
4c MO ***** 
♦DL * 
* A3* 
* * 

X IJHENDFL 






.* FIRST *. NO 
*. RECORD IN •*. 






*. FILE .* 
*. .* 
*. ,* 
* YES 








TJHMFRST X 

4c*Ql««4c**** 

* TURN DTF * 

* AND CCB * 

* BITS ON OR * 




YE 


G2* 

5 .**PREV 

*KEY LOW 

♦CURRE 

**. 


*. 

OUS **. 
= R THAN.* 


f OFF AS * 
♦ REQUIRED * 

***!((*««««:«:« 






a KEY* 
l=*NO 


X 
«*«4<*H1********** 

* RELOCATE * 

* I0AREA2 * 

* ADDRESS * 

* CONSTANT * 

4c**************** 




. IJHMOKEQ 

**H2* 

* DUPL 
* RECORD 

* DTF 
(FILEN 

***** 


BIT IN * 

**4c*** 


IJHMOKLD X 

i|c****Jl ********** 






** 
♦0 
♦ 
* 

IJH 


(e«* 

;** 

*1RTRN 



:tt**t ******** 1l^**** 



IJHMM256 X 

«4c«««Kl ********** 

* MOVE ALL * 

* REQUIRED * 

* BYTES FROM * 

* WORK AREA * 

* TO lOAREA * 

4:4c 4:4: *««**<[******* 



*4c*««E3 ********** 

* ZERO LOGICAL * 

* RECORD COUNT * 

* AND EXCHANGE * 

* I/O AREA ADDR * 

* IF REQUIRED * 

*******4e**4i**4c**4c 



IJHMDADD X 

4c 4t***P34c ********* 

* GET AND SAVE * 

* I/O AREA * 

* DATA ADDRESS * 

* AS BLOCK * 

* POSITION * 

4c**************** 



«**«*63 ********** 

* SET RCD TYPE * 

* LOCATED 65 * 

* BYTES INTO * 

* SAVE AREA TO * 

* INDICATE DATA * 
4c**************** 



*****H3*** ******* 
*IJHMWAIT DL* 

4t_*-. 4c- *_*-*_*_*-* 

* WAIT FOR I/O * 

* COMPLETE AND * 
♦TEST FOR ERRORS* 

*4c**** *********** 



IJHMIIOA X 

4c****J3********** 

*IJHMRCIO DM* 

4c_*_*_*_*_*_*_*_* 

* UPDATE PRIME * 

* DATA RECORD * 

* ID * 

*******4c********* 



*****K3********** 
♦IJHMEXCP DM* 

4c_*_ *_♦-*- *-*-♦-* 

* EXCP, WRITE * 

* PRIME DATA * 

* RECORDS * 
4c*********4c****** 



* * 

* 

IJHMPDTK 



.* *, 

K END 

OF SHARED 
>. TRACK .■■ 



**4:**Q4,*4c4c******« 

♦ IJHMWAIT DL* 

4e_ 4c -.♦-*_*_*_*-*-♦ 

♦ WAIT FOR I/O ♦ 

♦ COMPLETE AND * 
*TEST FOR ERRORS* 
******4t*4i4c******* 



****B5 ********* 

♦ RETURN TO ♦ 

♦ PROBLEM * 

♦ PROGRAM * 

************4c** 



*BYTES INTO SAVE* 

* AREA TO * 

* INDICATE TI * 
4c*************««* 



**4c**H4********** 
*IJHMTIN?l DM* 

4t-4c_*_*-*_*_*-*_* 

* WRITE TRACK * 

* INDEX NORMAL + * 
*OVERFLOW ENTRY * 
4c**************** 



*****j4«*****««** 
» SAVE TI TRACK * 

* AND RECORD * 
» NUMBERS IN * 

* DTF TABLE * 

* (IJHKLTIR) * 
***************** 



* UPDATE I/O * 


* STORE NEW * 


* AREA DATA * 


* TRACK NUMBER ♦ 
*IN SEEK/SEARCH * 


* FIELD AND * 


* SET F CODE * 


* ADDRESS ♦ 


* TO X'OB' * 


♦ ♦ 


***************4t* 


4c**************** 


♦*♦* ', 




*0L * 




* F2 *.X. 




* * , 




♦*♦* 




IJHMNDTK X 


X 


*4c***£4********** 


*4i***E 5 *«**«***** 


* UPDATE LAST * 


* SET PftlME * 


* TRACK INDEX * 


* DATA RECORD ♦ 


* HR AND DATA * 


*IN SEEK/SEARCH ♦ 


* LENGTH IN * 


* ADDRESS TO * 


* COUNT FIELD * 


* * 


**4>************** 


***************** 




**** ', 




*DL * 




* B2 *.X. 




* * . 




**** 


IJHMIXDA X 


IJHMRSTR X 


*****P4.********** 


*****p 5 4>********* 


* MOVE CURRENT * 


* GET PD RECORD * 


*TRK ADDRESS TO * 


* ADDRESS AND * 


* I/O AREA DATA * 


* DATA LENGTH * 


: ft?i ?i\?rB. : 




* COUNT FIELD ♦ 


**4<***«********** 


4c******4(********* 




***** 




*DL ♦ 


X 


* J2* 


*****G4********** 


* * 


* SET RCD TYPE * 


* 


♦.LOCATED 65. _* 


IJHMRTRN 





.* LAST *. 


YES 


* 


. PD TRACK IN .* 
*. CYLINDER^.* 






**. .*"* 


X 




* NO 


***** 
*DL * 




IlJHMCLND 


* Al* 




X 


* * 




**** 


* 




* * 






* D5 * 






* 4c 






**** 
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Chart DL. ISAM LO?lD: WROTE Macro, NEWKEY (2 of 3) 



*DK * 
* K4* 

♦ * 



* POINT TO * 

* LAST CYLINDER * 

* INDEX RECORD * 

* * 



* SET RCD TYPE * 

* LOCATED 65 * 
*BYTES INTO SAVE* 

* AREA TO INDIC * 
♦CYLINDER INDEX * 



*IJHMCMWR DM* 

♦WRITE CYLINDER * 

* INDEX NORMAL * 

* ENTRY * 
«4c***««4<********* 



*♦** 

* * 

* A2 * 

* ♦ 
**** 



USING *. NO 
MASTER .*... 
INDEX .* 



* MOVE ADDRESS * 

* OF CYLINDER * 

* INDEX TRACK * 

* TO I/O AREA * 

* DATA FIELD * 



* SET F CODE * 

* TO X«02« AND * 
♦POINTER TYPE TO* 

* X'lBS X'OB't * 

* OR X'07« ♦ 



IJHMSPNT 

* SET POINTER * 

* TO LAST « 

* MASTER INDEX * 

* RECORD * 

* * 

^iOi :((* «3«(4e********** 



;(t«««:«!HI********** 

* SET RCD TYPE * 

* LOCATED 65 * 
♦BYTES INTO SAVE* 

♦ AREA TO INDIC ♦ 

♦ MASTER INDEX ♦ 
***************** 



♦IJHMCMWR DM+ 

:«£_*_*_*_♦_<<_♦_*_* 

* WRITE MASTER * 

* INDEX NORMAL * 

* ENTRY * 

:ic4c«4c4<*******«4=**« 



**** 

♦DM * 

* J4 *.X 



**** 
IJHMNDCK X 

*IJHMUPDT DM* 
♦_*_*_*_*_«_*_*_* 

* UPDATE PRIME * 

* DATA ADDRESS * 

* IF REQUIRED * 

««:«:4c:t(«:^4c*:4<*!|(4c«>i(4<:«: 



IJHMNXPK X 

♦♦♦**A 2*** ******* 
*STORE UPDATED M* 
*NUMBER AND BEG.* 
*ADDR OF VOLUME * 
♦TO SEEK/SEARCH * 



IJHMNXCL 

««<t:{(^Q2********** 

* UPDATE LAST * 

* TI ADDRESS * 

* FIELD AND SET * 

* TRACK INDEX * 

* HR TO ZERO * 

4e««4e«««««4c4<* ***«=«= 



***»* 

*DK * 
* El* 



IJHENDFL X 

*«» « *A3 * ** ***** ** 
*IJHMWAIT OL* 

* WAIT AND TEST * 

* FOR ERRORS * 

* IF REQUIRED * 



IJHMFXSS 

«:tt***B3* ********* 

* IJHMRCID DM* 
♦_*_*-*-*_*_♦_*_* 

* UPDATE * 

* RECORD ID * 

* IF REQUIRED * 

:(>«#««« :j(:«c :(<:«( «:ic :te«* 3tc« 



**** 

* * 

* A4 * 

* * 
**** 



#<c:4c:ee4:A4********** 

* * EXECUTE * * 

* * USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 

:(c4c3ic«««4c*****:C4:**« 



.♦ SKIP ♦. 

OR 
♦. IGNORE .* 



*A5 
ISMUD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



X 




***** 




*0K * 




* F5* 


IJHMRDWR X 


* * 


*#***C3 ♦*♦♦**♦*** 


* 


* MOVE I/O * 


IJHMRSTR 


* AREA ADDRESS * 




* TO CCW DATA * 




* ADDRESS FIELD * 



REFERENCES 
TO DLD2: 
DKA4, DMF3 



****************s«c 



* END OF *. NO 
PRIME DATA .*.., 
*. TRACK .* 



***«*£ 2*** ***♦♦♦* 
*IJHMWAIT DL* 

*_*_*_*_*_*_*_*_* 

* WAIT AND TEST * 

* FOR ERRORS * 

* IF REQUIRED » 
***************** 



*****F2********** 

* ZERO RF * 

* IN I/O * 

* AREA DATA * 

* FIELD * 

* * 

********** *4(****«: 



***** 

*DK * 
* E4* 



***** 

*DK * 
* D3* 



IJHMUNFL X 

*****H2*** ******* 

* UPDATE * 
*BLOCK POSITION * 

* BY LOGICAL * 

* RECORD LENGTH * 

* * 

***4(** ***:«( «:«(:«(**«* 
**** 



YES .* ERREXT 
...*. = YES 
*. *A5 



****K2*** ****** 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 

** :4c4c:«c ***::{(«:«:** :«(« 



**C4******* 
* TURN OFF * 

* UNREC. DASD * 
* ERROR BIT IN * 

* DTF TABLE * 
*IF REQUIRED* 

*********4c:tc 



**** 
*DM * 

* J2 ♦.X 



**** 
IJhMRTRY 

***04*******«**** 



**:tc************** 



****E3 ********* 

* ISAM LOAD * 

* WRITE RECORD * 

* SUBROUTINE * 
*************** 



I0AREA2 
= YES 

*A5 



**B5******* 
♦ TURN OFF * 

* UNREC. DASD * 
.X* ERROR BIT IN * 

* DTF TABLE * 
*IF REQUIRED* 

*********** 

**** 



**** 
IJHMLEAV 

*****C5********** 
* ZERO DB * 



***************** 



****D5********* 

* RETURN VIA ♦ 

* IJHLLNKA ♦ 

* * 
*************** 



****E5********* 

* RETURN VIA * 

.X* IJHLLNKC * 



*************** 



IJHMEXWT 

*****F3********** 
*IJMEXCP DM* 
*_*_*_*_*_*_*_*_* 

* EXCP * 

* WRITE * 

* RECORD * 
***************** 



****F4********* 

* ISAM LOAD * 

* WAIT * 

* SUBROUTINE * 
*************** 



REFERENCES 
TO DLJ2: 
DKF5, DKH2 



.*. 

H3 *. 
.* TRACK *. 
YES .* OVERRUN *. 
X....*-OR NO RECORD .*X. 
*. FOUND .* 



IJHMWAIT 

*****G4********** 

* * * * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

* « * * 
***************** 



NO .* ERREXT 
...*. = YES 
*. *A5 



*. 



****J3********* 

* RETURN * 

* VIA * 

* IJHLLNKA * 
*************** 



.* DID *. YES 
*. AN ERROR .*.... 
*. OCCUR .* 



♦ C5 ♦ 

* * 
**** 



IJHMEREX 

**G5******* 

* TURN UN * 
♦UNCORRECTABLE* 

..X* DASD ERRUR * 
* BIT IN DTF * 

♦ TABLE * 
*********** 



*****H5********** 

* STORE DTF, * 

* DASDf AND * 

* MAIN STORAGE ♦ 

* ADORESStS * 

* * 
***************** 



♦****j5********** 

* STORE * 

* COMMAND CODE * 
*0F FAILING CCW * 

* IN PARAMETER * 

* LIST * 
***************** 



IJHMWRIE 

*****K5********** 

* SET OPERATION * 

* INDICATOR LU- * 
....*CATED 65 BYTES * 

* INTO IJHMWOKK * 

* TO WRITE/READ * 
***************** 



**** 

* * 

* A2 * 

* ♦ 
**** 
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Chart DM. ISAM LOAD: WROTE Macro, NEWKEY (3 cf 3> 



****A1 ********* 

* ISAM LOAD * 

* WRITE TI * 

* SUBROUTINE * 
*************** 



TJHMTINR 

*****B1 ********** 

*IJHMIDBP DM* 

*_*_*_*_*_*_*_*_* 

* MOVE AND * 

* INCREASE * 

* RECORD ID * 
***************** 



CL *. 

.* LAST *•. 

.* TRACK * 

. INDEX TRACK 

*. IN. CYL- .* 

*. INDEX.* 



NO 



*****D1********** 

*UHMEXCP DM* 

*_*_*_*_*_*„*_*_* 

*i«iRTTE UNSHARED * 

* TRACK INDEX * 

* ENTRY * 
***************** 



*****£!********** 

* UPDATE TRACK * 

* INDEX TRACK * 

* AND RECORD * 

* NUMBER * 

* * 
***************** 



****FI********* 

* RETURN * 

* VIA * 

* IJHLLNKB * 
*************** 



****G1 ********* 

* ISAM LOAD * 
*UPDATE ADDRESS * 

* SUBROUTINE * 
*************** 



IJHMUPDT 

*****Hl********** 

* DECREASE * 
♦CONTROL POINTER* 

* AND ADDRESS * 

* POINTER * 

* IF REQUIRED * 
***************** 

**** 



IJHMINCR 

*****jl ********** 

* INCREASE * 

* CURRENT * 

* FIELD * 

* BY ONE * 

* * 
***************** 



****Kl ********* 

* RETURN * 

* VIA * 

* IJHLLNKA * 
*************** 



****A2*** ****** 

* ISAM LOAD * 

* UPDATE CCHH * 

* SUBROUTINE * 
*************** 



IJHMIDPB 

**«**B2*** ******* 
*MOVE CCHW FROM * 

* COUNT FIELE^ * 

* IN I/O AREA *. 
*T0 SEEK/SEARCH * 

* ADDR * 
***************** 



IJHMSHRD 

*****C2********** 
*IJHMWAIT DL* 

*_*_*_*_*_*_*_*_* 

...X* WAIT FOR I/O * 
* COMPLETE AND * 
*TEST FOR ERRORS* 
****** **** ******* 



****/s;3********« 

* ISAM LOAD * 

* UPDATE RCD ID * 

* SUBROUTINE ♦ 
*************** 



.IJHMRNBP 

#****B3********** 

* UPDATE * 

* RECORD NUMBER * 

* BY I AND * 

* STORE IN * 

* COUNT FIELD * 
***************** 



****C3*** ****** 

* RETURN * 

* VIA * 

* IJHLLNKA * 
*************** 



*****02*** ******* 

* SAVE CURRENT * 

* RCD. NO., 1/0 * 

* AREA KEY POS. * 

* MODIFY VERIFY * 

* AND READ CCW * 
***************** 



*****E2********** 
*IJHMEXCP DM* 
*_ *_ *_ *_ *_ *_ *_ *_ * 

* WRITE SHARED * 

* TRACK INDEX * 

* ENTRY * 
***************** 



****E3*«******* 

* ISAM LOAD * 

* UPDATE PD * 

* SUBROUTINE * 
*************** 



****A4*«******* 

* ISAM LOAD * 

* WRITE MI * 

* SUBROUTINE * 
*************** 



IJHMCMWR 

*****B4********** 

* MOVE CCHHR * 

* OF LAST Ml/CI * 

* ENTRY TO * 

* COUNT FIELD * 

* OF 1/0 AREA * 
***************** 



* MOVE AND IN- * 
*CREASE ADDRESS * 
*IN COUNT FIELD * 
********** ***** ** 



*****D4********** 

* IJHMEXCP DM* 

*_*_*_*_*_*_*_*_* 

* WRITE * 

* MI/CI * 

* ENTRY * 
***************** 



*****E4********** 

* SET ADDRESS * 

* POINTER TO * 

* LAST MI/CI * 

* ENTRY * 

* * 
***************** 



****G2********* 

* ISAM LOAD * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
*************** 



IJHMEXCP 

*****H2*** ******* 

* MOVE * 

* LOGICAL UNIT * 

* FROM ENTRY * 

* TO CCB * 

* * 
***************** 



*****J2*** ******* 

* MOVE CELL * 

* NUMBER (BBJ * 
*T0 SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



IJHMRCID .*. 






.*. 


F3 *. 






F4 *. 


.* *. 






.* NEXT *. 


.* I0AREA2 * 


NU 


.*T0 LAST OR *» NO 


*. = YES 


,* 


... * 


. LAST RECORD .*.. 


*, .* 






*. ON .* 


*, ,* 






*. TRACK.* 


*. ,* 




X 


*. .* 


* YES 




***** 


* YES 






*0L * 








* D2* 








* * 
* 






IJHMPDTK 




X 








*«***G3* ******* 


t:* 




G4 *. 


* MOVE RECORD 


* 




.* *. 


*NUMBER FROM I/O* 


YES 


.* LAST *. 


* AREA COUNT 


* 


. ..* 


. RECORD ON .* 


♦FIELD TO SEEK/ 


* 




*. TRACK .* 


* SEARCH ADDR 


* 




*, ,* 


***************** 


X 


*. ,* 



X 
***** 

*DL * 
* D4* 



**** *f43 * ** ** ***** 

* UPDATE RECORD * 

* NUMBER AND * 

* LAST PRIME * 

* DATA RECORD * 

* NUMBER * 
***************** 



*****j3********** 

* MOVE MBBCCHH * 

* FROM SEEK/ * 
*SEARCH ADDRESS * 

* TO LAST PRIME * 
*RCD ADDR FIELD * 
***************** 



****K3********* 

* RETURN * 

* VIA * 

* IJHLLNKA * 
*************** 



*****H4********** 

* SET CONTROL * 

* POINTER TO * 

* Ml/Ci ADDRESS * 

* CONTROL FIELD * 

* * 
***************** 



.* LAST 
. TRACK ON 

♦.CYLINDER 
*. .* 



***** 

*DL * 
* Kl* 



iJHMZAPP 

*****K4********** 
*IJHMUPOT DM* 

*_*_*_*_*_*_*_*_* 

* INCREASE ADDR *. 

* OF LAST * 

* MI/CI ENTRY * 
***************** 



****K5********* 

* RETURN * 

* VIA * 

* IJHLLNKB * 
*************** 
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Chart EA. ISAM ADD: WAITF Macro CI of 4) 



ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



4c«*«Al **«*«*«*♦ 






♦ ISAM ADO * 






* WAITF MACRO * 






* 4( 






*«*4c»«4'*««*!i(*:4(* 






**** ' 






*eE * 






* J3 *.X. 






* * , 






#4c*4c X 






IJHCWATF .*. 


IJHCWATB .*. 


IJHENOTE .*, 


Bl *. 


B2 *. 


B3 * 


.* ♦. 


.ABNORMAL*. 


.* 


.* ERREXT *. YES 


.* SITUATION ♦. YES 


.* HOLD 


♦. =YES .*..... 


.-.X*. INDICATED IN .*..... 


...X*. = YES 


*. *A2 ,* 


*. OTF .* 


*. *A2 


*. .* 


♦.TABLE.* 


♦ . 



IJHCWATB X 

♦IJHCINIT EG* 

*_♦_*_♦_*_♦_«_*_♦ 

* INITIALIZE * 
♦POINTERS TO PTS* 

* OF OTF TABLE * 



.*. 
Dl *< 

.ABNORMAL*. 
.* SITUATION *. 
.INDICATED IN . 
*.DTF TABLE.* 

*. .* 

*. .* 
* NO 



IJHECONT 

4(4c^«4eC2*** ******* 
*IJHCINIT EG* 

«_*_*_*_*_*_♦_*_* 

* INITIALIZE * 
♦POINTERS TO PTS* 
*0F OTF IS TABLE * 

«#:ie«:(c4' «♦ 3te« «* ##« 4c« 



♦ **♦♦ 
*EE * 

* H3* 



* WAIT FOR I/O * 

* COMPLETE AND * 
*TeST FOR ERRORS* 



ERREXT 


*. YES YES .* ERREXT 


OTF 


.*.........*. DTF 


«* . *. 


.* 


*. • 


♦ , ,* 


X *. .* 


* NO 


***** * NO 




*EF * 




* Jl* 


X 


» * X 


♦♦♦«« 


* ***** 


♦EF ♦ 


IJHEUSER *EE * 


♦ Al* 


* H3* 


* * 


* * 


♦ 


* 


IJHSER2H 


IJHSER2 



****3|eEX *«***«:**«!(( 

*IJHCWAIT EE* 
♦_♦_*_*_♦_♦_#_♦_♦ 

* WAIT FOR I/O * 

* COMPLETE mo * 
*TEST FOR ERRORS* 

****#«*««******«4c 



IJHAWTNK 

**«**pi4i****«**4c« 

* GET ADDRESSES * 

* OF lOAREAL, * 

* WORKL, AND * 

* KEY AREA * 

* ♦ 
«««*♦«*****♦***♦* 



*. .* 




X 


* NO 




***** 






*EB * 






* A4* 


• 




* * 
* 


• 


IJHAQUA 


****4411********** 




* MOVE TRACK 


♦ 




* INDEX POINTER 


* 




*T0 SEEK/SEARCH 


* 




* ADDRESS 


* 





****«*«##«#«4:Kc4c«4c 



Jl *. 

.*N0RMAL *. 

.♦ADDITION TO*. 

. PRIME DATA . 

*. AREA .* 

*. .♦ 



♦ NO 



IJHAOBEG X 

♦♦♦♦♦Kl********** 
♦IJHAOMCO EJ* 

» GET NEW * 

*OVERFLOW RECORD* 
* ADDRESS * 

iti***«*i**4'***^^^** 



**** 

* * 

* F2 ♦ 

* * 
♦♦** 



4c* ***F2^^^ ******* 

*IJHAORFL EG* 

#_*_*_ :(t_3f!_ ♦_♦_ *_# 

X* READ FIRST * 

* OVERFLOW * 

* RECORD * 

****#***«*«#«««:)(« 



«^**«*G 2 ******♦*♦* 
*IJHAOMTO EH* 

*-*-♦-♦-*-*_*_*_* 
*GET TRACK INDEX* 

* AND OVERFLOW * 

* RCD ADDRESS * 

«*«*4c*«********** 



««*:*44i2********** 

*IJHCBLDl EK* 
*-*-*-♦-♦-#_*-*_* 
*BUILD CCW CHAIN* 
*T0 WRITE TRACK * 
*IN0EX OVERFLOW * 
*******«#4' ♦♦**♦♦* 



***** J 2* ** ******* 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE TRACK * 

* INDEX * 

#***** *#«*3*l(!*9)C«^:^ 



IiHAA23 X 

:*****E3«*******«« 
*IJHACDTR EK* 

♦_*_*_*_:J{_ *_ ♦_*_4(t 

* SET UP RCD * 
*LIMITS FOR NORM* 
*0R SHARD PD TRK* 
«««*^««4c«* *#«4c##4i 



IJHANOWO X 

#4: 4!**F3*** ******* 

♦IJHAOMCO EJ* 

* CALCULATE * 
♦OVERFLOW RECORD* 

* ADDRESS * 



IJHAA25 

«##* *G3 * ******* ** 
♦IJHCBLOl EK* 

:it_#_ ,((_♦_ #_*_*_*_* 

♦ BUILD CCiM CHAIN* 

♦ TO SEARCH AND » 

♦ READ 912 TRACK * 

«#:((* ]ti«:«4t *♦♦*♦*♦** 



*«**«H3^^^******* 

* ♦ 

* SET UP TO * 

* READ DATA * 

* RECORD * 

* * 

#««««« «4c********* 



*:(c«*4(J3**«4c****** 

♦IJHAIOPH EL* 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 
^c^c*^* **♦♦**♦****«* 



.* PRIME *. 
NO .* DATA 
•«.*. IN CORE 

*. ADD .' 



***** 

*£ii * 
* G2* 



«:««:#«A5********** 

*IJHACDBK EM* 
*_*_«_♦_♦_*_*_*_* 

* EXECUTE * 

* DEBLOCKING * 

* SUBROUTINE * 

^«:»:««**3|c :«*«#«:«(««« 



* 03 *.X 



**** 
IJHAA26A 

4c**3((«B 5 * ♦*** ***** 

♦ BUILD TIC * 

♦ TO WRITE CCw ♦ 

♦ CHAIN IN * 

♦ OTF TABLE * 

♦ * 

4c4c4(************** 



«***«C5«*****^*** 
♦IJHAIOOP EL^ 

:*_#_*_♦_♦_*_:(._«_:«« 

* EXCP, WAIT ♦ 

* AND TEST * 

* FOR ERRORS * 



4c#«4'*D5****^***** 

*IJHAPRM1 EN* 
♦_*_*_*_*_♦-*-*-* 

* MODIFY CCW * 

* CHAIN IF * 

* NECESSARY * 

:«(«««***:((***#***«:«( 



* DETERMINE IF * 

* KEY IN WORKL * 

* IS PADDED * 
4c**************** 



IJHAPRM4 

4>****F4********** 

* CALCULATE ♦ 

* NUMBER OF * 

* RECORDS LEFT * 

* ON TRACK * 

* * 

4c**************** 



**** 

*EL * 

* Gl *.X 



**** 
IJHAPRM7 

4c«:4c**G4***^****** 

*IJHAPRM1 EN* 
*'_*_♦_*_*_*_*_*_* 

* MODIFY CCW ♦ 

* CHAIN IF * 

* NECESSARY * 
4c«**4c#4c********** 



4c«***H4**^*****^^ 

* BUILD TIC ♦ 

* TO READ CCW * 

* CHAIN IN * 

* DTF TABLE * 

* * 
4c********«******* 



***** 

*EE * 
* H3^ 



IJHAPRM8 

4e****G5*******^** 

* INCREASE SEEK ♦ 

* ADDRESS bY * 

* NUMBER OF * 

* RECORDS TO * 

* BE READ * 

* ^'♦♦♦♦♦♦♦♦**«**** 



IJHACTET .♦. 

H5 *. 
.* LAST *. 
NO .* PRIME *. 
....*. DATA RCD 

♦.REWRITTEN.* 



* REFER 
TO 
EBJ2 



*****J4********** 

* IJHAIOOP EL* 
*_»-*_*-*-*-*-*-* 

* EXCP, WAIT ♦ 

♦ AND TEST ♦ 

♦ FOR ERRORS ♦ 

4c***********«**4c* 



I 


**** * 




♦EB ♦ 




♦ K3 ♦.X, 




* * 


X 


***♦ 


.♦. IJHACGTO X 


K2 *. 


«#* * *K3 ♦ ♦♦ ♦♦♦♦♦ ** 


«* ♦. 


♦ MOVE PRIME ♦ 


.♦ HOLD ♦. NO 


♦ DATA RCD ♦ 


=YES .*.... 


♦ ID ICCHHRI * 


♦. ♦A2 .♦ 


*TQ SEEK/SEARCH * 


♦. .* 


* ADDR ♦ 


*. .* X 


4c4c**** **«*****<:#* 


* YES ***** 




♦EE ♦IJHSER2 


.IJHSER2H ♦ H3* 




X ♦ ♦ 


X 


#4c*4c* * 


**** 


♦EF ♦ 


* * 


♦ Al^ 


* E4 * 


* * 


* * 


* 


**** 



♦ YfcS 
**** 
ENCES * * 
EAJ5: * * *.X 
ECJ3 * * 
**** 
IJHANEDT 

*4c***J5********** 

* ADD KEY * 

* LENGTH TO * 

* POINTER TO * 

* lOAREAL * 

* * 

#3!c*****:* ********* 



***** 

♦EB ♦ 
♦ Al^ 



♦ NO 


***** 




*EB * 


. IJHAA26 


♦ A2^ 


X 


* * 


**#* 


* 


* * 




♦ A5 ♦ 




* * 




**** 
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Chart EB. 



ISAM ADD: WAITf Macro (2 of ^) 



*EA * 
* J5* 

* * 



* * * 

* * SVC 36 * 

* *FREE PRIME * 

* *OATA TRACK * 

* *IF REQUIRED* 



*TJHAOSQU EH* 

* WRITE NEW * 

* OVERFLOW * 

* RECORD * 



*****C I ********** 

*IJHAOMTO EH* 
*_*_*_*_*_*_*_*_* 

* BUILD TRACK * 
*INDEX OVERFLOW * 

* ENTRY * 
***************** 



*****Q1 ********** 

♦IJHACBKI EK* 
*_*_*_*_*_*_*_*_* 

*GET POINTER AMD* 
* HIGH KEY FOR * 
♦NORMAL TI ENTRY* 
***************** 



***** El ********** 

*IJHCBLD1 EK* 

*_*_*_*_*_*_*_*_* 

*6LD CCW CHN T3 * 
♦WRITE COCR, NRL* 
*AND OVFL ENTYS * 
***************** 



*****Fl********** 

* SET RCD TYPE * 

* AND OPERATION! * 

* INDICATOR TO * 

* WRITE TRACK * 

* INDEX RCD * 
***************** 



*****Gl ********** 
*IJHAIOOP EL* 

*_*_*-*_*-*_*_*_* 

* EXCP, WAIT * 

* AND TEST FOR * 

* ERRORS * 
***************** 



***** 
*EA * 
* K4* 



IJHAA26 X 

*****A2*** ******* 

* GET KEY * 

* LENGTH- 1 TO * 

* CHECK * 

* DUPLICATION * 

* OF KEYS * 
***************** 



*A3 
ISMOD MACRO PARAM 
OPTION. THIS DEC! 
DOES NOT APPEAR I 
AN ASSEMBLY LISTI! 



***** 
*EA ♦ 
* Gl* 



IJHAQUA X 

*****A4********** 
*IJHACDTR EK* 

*_*_*_*_♦_*_*_*_* 

* SET UP RCD * 
*LIMITS FOR NORM* 
*0R SHARD PD TRK* 
***************** 



**«**A5********** 
♦IJHAIOOP EL* 

*_*_*_*_*«*_«_*-.* 

* EXCP, WAIT ♦ 

* AND TEST * 

* FOR ERRORS ♦ 
***************** 



.*» 


IJHAPRM6 


B2 *. 


*****63 ********** 


.* *, 


*ADD PRIME DATA * 


.* DUPLICATE *. NO 


* RCD FORMAT * 


*. KEYS .*...,,. 


..X* (KL+BLKSZ+8) * 


*, .* 


* TO lOAREAL * 


*. . * 


* POINTER * 


*. .* 


***************** 


* YES 




**** 




*EM * 




* El *.X. 




* * 




**** , 




IJHAPRM5 X 


X 


*****C2 ********** 


*****C3*** ******* 


*IJHAPRM1 EN* 


*IJHAASF EK* 


*_*_*_*_*_*_*_*_* 


*_*_*_*-*_*_*_*_* 


* MODIFY CCW * 


* EXCHGE KEY * 


* CHAIN IF * 


*DATA IN lOAREAL* 


* NECESSARY * 


* AND WORKL ♦ 


***************** 


***************** 


**** I 




* * . * REFERENCES 




* * *,X, TO EB02? 




* * . ECD3, EGFl 




**** . EMC4 




IJHACDUP X 


X 


**D2******* 


*****03*** ******* 


* TURN ON * 


*DECR. NUMBER OF * 


* SWITCH TO * 


* RECORDS TO BE * 


* INDICATE * 


* READ AND MOVE * 


♦DUPLICATE KEY* 


* LAST lOAREAL * 


* SENSED * 


* KEY TO KEYARG * 


*********** 


***************** 



.* PRIME *. YES 


*_*-*_*«*-*-»-*«♦ 


». DATA TRACK .♦. 




♦ UPDATE PRIME * 


*. FULL .* 




♦ DATA RECORD * 


*. ,* 




* COUNT * 


*. .* 


X 


***************** 


* NO 


***** 






*ED * 


***♦ 




* BI* 


* * , 




* * 


♦ C5 *.X. 




* 


♦ * . 


X IJHAETFL 


**** , 


IJHAEBFL .*. 




X 


C4 *. 




«****C5********** 


,* *. 




* * « * 


YfcS .* UNBLOCKED *. 




♦ * SVC 36 * * 


...*. RECORDS OR .* 




♦ * FREE DATA ♦ * 


*. FILLED .* 




* * TRACK * * 


*. BLOCK.* 




* ♦ * * 


X *. .* 




***************** 


***** * NO 






*EC * 




**** , 


* B4* 




*EC * 


♦ * , 




* H4 *.X, 


* 




* * , 


IJHAUN8 




**«* , 


X 


IJHAEFXD X 


*****D4.********** 




**«**05********** 


♦IJHCBLOl EK* 




* * 


*-.*-*_♦_*_♦_ *_*^* 




* MOVE KEY * 


*BUILD CCW CHAIN* 




* AND POINTER * 


* TO READ LIST * 




* TO WORKL * 


* PRIME DATA ♦ 




* * 


***************** 




***************** 



*****E2********** 
*MOVE LAST OVFL * 

* RCD ADDR TO * 
.*LAST INDEP OVFL* 

* RCD ADDR IN * 

* DTF TABLE * 
***************** 



***** 
*EA * 
* B5* 



***** 
*EA * 
* E4* 



«****E4* ********* 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ DATA RCD * 

* * 
***************** 



*****F4********** 
♦IJHAIOPH EL* 

*_*_*_*_*_*_*_*_* 

* EXCP, WAIT * 

* AND TEST FOR * 



HOLD 

= YES 

*A3 



***** 
*EF * 
* Al* 



*****H 2*** ******* 
*IJHACDBK EM* 

*_*_*_ *_ *_ *_ *-*_* 

* INSERT RECORD * 

* ON PRIME * 

* DATA TRACK * 
***************** 



LAST 
RECORD 
UPDATED 



***** 
*EA * 
* J5* 



*****H3 ********** 
*IJHCBLD1 EK* 
*_*_*_*_*_*_*_*_* 

.X*BUILD CCW CHAIN* 

* TO READ NEXT * 

* PRIME DATA * 
***************** 



*****j3 ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ DATA RCD * 

* * 
***************** 



*****K3 ********** 
*IJHAIOOP EL* 
*_*_*_*_*_*_*_♦_* 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 
***************** 



*****H4********** 
*IJHACDBK EM* 
*_*_*_*_*_*_*_*_* 

* EXECUTE * 

* DEBLOCKING * 

* SUBROUTINE * 
***************** 



*****j4********** 

*IJHCBLD1 EK* 
*_*_*_*_*_*_*_*_* 

*BUILD CCW CHAIN* 

* TO WRITE AND * 

* VERIFY PO RCD * 
***************** 



*****K4********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE PRIME * 

* DATA RCD * 
***************** 



*****E5«********« 

*IJHAA41 EJ* 

*_*_*_*_*-.*_*_*_* 

* MOVE PTR FROM * 
♦LAST TI NORMAL ♦ 
*ENTR,TO lOAREAL* 
***************** 



*****P5 ********** 

*IJHCBLD1 EK* 
*„*_*_*_*_*_*_*_# 

*6UILD CCW CHAIN* 
*T0 WRITE TRACK ♦ 
* INDEX ENTRIES * 
***************** 



62 *. 




*****G3*** ******* 






G4 *. 


*****G5*****»**** 


* *, 




*IJHACDBK EM* 






.* PRIME *. 


* SET RCD TYPE * 


UNBLOCKED * 


. YES 


*- 


*_*_*^ *_*_*_*_* 


NO 


.* 


DATA *. 


* AND OPERATION * 


RECORDS 


.*.. .. 


* 


EXECUTE *X... 


* 




IN CORE ADD .* 


* INDICATOR * 


.* 




* 


DEBLOCKING * 




'* 


. SPEC .* 


* TO WRITE DATA * 


*, , * 




* 


SUBROUTINE * 






*. *A3 .* 


* RCD * 


*. .* 


X 


***************** 






*. ,* 


***************** 


* NO 


***** 

*EC * 

* A3* 

* * 

* 

IJHAA26 




' **** 

. * * 
,.X* Cb * 
* * 
**** 






* YES 





*****H5********** 
*IJHAIOOP EL* 
*_,*_*_*_*_*_*_*_# 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 
***************** 



*****J5********** 

* * * * 

* * SVC 36 * * 

* *FREE INDEX * * 

* * TRACK * * 

* * * * 
***************** 



*****K5********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ MASTER * 

* INDEX * 
***************** 



***** 
*EC * 
* AL* 
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6£Z S^Ji^9^0 



***** 

*EB * 
* G2* 



IJHAEMCl X 

4c*4e«*Al**'i<'t'****** 

♦IJHACERCA EG* 

* GET HIGHEST * 

* LEVEL INDEX * 

* STARTING ADDR * 

«4c3^«:^:tc]Jc:jc«4c*:tc***** 



MASTER 

INDEX 

PRESENT 



*A2 
ISMOO MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



REFERENCES 
TO ECAl: 
EBK5, EDE3 



IJHAA40 

♦****B2********** 

* MOVE CYLINDER * 

* INDEX START * 
...X* ADDRESS TO * 

* SEEK/SEARCH * 

* ADDRESS * 

«**««:»;««***#****«: 



4e«***Cl********** 

* MOVE LAST * 

* MASTER INDEX * 

* ADDRESS TO * 

* SEEK/SEARCH * 

* ADDRESS * 

****«*4e**«******* 



IJHAA38 

#« « * :fe Q X I'** ^^t' ** * * * 

♦IJHCBLDl EK* 

*_♦_*_♦_*_*_*_* _* 

*BUILD CCW CHAIN* 

* TO READ * 

* INDEX ENTRY * 

itc**«*«3te«***#*«4c** 



ERREXT 

= YES 

*A2 



.* 
.* 
YES 



IJHERRA 

ilt****p 1 «««««««*** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE MASTER * 

* INDEX * 



4e**«*Gl********** 

♦IJHAIOOP EL* 

♦_♦_*_♦_*_♦_*_*_♦ 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 

4c********«******* 



IJHAA39 

*****H1********** 

* MOVE LAST * 
♦CYLINDER INDEX * 

* ENTRY ADWESS * 
♦TO SEEK/SEARCH * 

* ADDRESS * 



«*4>**JX«***]tc4c**** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO *. 

* READ CYLINDER * 

* INDEX * 
^f *************** 



:(( 4c 3ic :{e:teE 2 ******* *** 

*IJHAIOOP EL* 

*_*_*_*_♦_*_♦_*_* 

X* EXCPt WAIT * 

* AND TEST * 

* FOR ERRORS * 

****** ****««:(E**** 

**** 



* F2 *.X 



**** 
IJHAA39 X 

****«p 2********** 

* MOVE LAST * 
♦CYLINDER INDEX * 

* ENTRY ADDR ♦ 

* SEEK/SEARCH * 

* ADDRESS * 



G2 *. 
.CYLINDER*. 
* INDEX 

IN CORE 

*. SPECIFIED. 

*, *A2 .* 

♦, ,♦ 

♦ YES, 



IJHATEST X 

***f:|cH 2 ♦♦♦♦♦♦♦♦** 

* I'OINT TO * 

* NEXT CORE * 

* INDEX * 

* ENTRY * 

* IF REQUIRED * 
*****«*#** 44c ♦♦♦** 



IJHADEC 

***+*J2*** ******* 

* INSERT NEW * 

* KEY INTO * 

* CORE INDEX * 

* ENTRY * 

* * 
«**«««*« «*«4c***** 



***** 
*EE * 
♦ H3 + 



IJHAA36 X 

♦♦***A3********** 
♦IJHCBLDI EK* 

*_ *_ *_ *_ *_ «_ *_« _* 

*BUILD CCW CHAIN* 

* TO READ DATA * 

* KEY AND BLOCK * 

:tc*4c*** *********** 



**«*#B3 ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ PRIME * 

* DATA RCD * 

« 4t 4::«c :tc 4c :(<« :«c« «:«c «c:«c # :tc3je 



*****C3********** 

♦IJHAIOOP EL* 

*-*-*-*-*-*-*-*-* 

* EXCPt WAIT * 

* AND TEST * 

* FOR ERRORS * 

^:tf*************** 



D3 *. 
,* *, 
.* DUPLICATE *. 
*. KEYS 



*«4c4c*E3********** 

♦ UHCBLOl EK* 
♦-*-»-*-*-*-*-*-* 
*BLD CCW CHN TO * 
*WRITE + VERIFY * 

* PRIME DATA * 
^m*************** 



***m*f 3 ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* RCD * 
***************** 



«****G3********** 
♦IJHAIOOP EL* 
*_♦- *- *- *_ *- *- * _♦ 

* EXCP, WAIT * 

* TEST FOR * 

* ERRORS * 
4c 4e******** ******* 



**«**H3********** 
*IJHAASHF EK* 
♦_«_*_*-♦_ ♦_*_* _♦ 

* EXCHGE KEY * 
♦DATA IN lOAREAL* 

* AND WORKL * 
**«****♦****♦♦*** 



***** 
*EB * 
♦ C4* 



IJHAUNB X 

*****B4********** 

* MOVE LAST * 
» PRIME DATA * 
♦RECORD ADDRESS * 
♦TO SEEK/SEARCH * 

* ADDRESS * 
4c 4c*************** 



*4c***C4** ******** 
♦IJHACUPD EL* 
*_4c-*-*-*-*-*-*-* 

* UPDATE LAST * 

* PRIME DATA * 
♦RECORD ADDRESS * 
4<************4c*** 



*4c***D4*****^^*^^ 

* MOVE UPDATED ♦ 

* PRIME DATA * 
♦ADDRtCCHHR) TO * 

* CURRENT PD * 

* COUNT FIELD ♦ 
*#*****4«********* 



*4c***E4******^^^+ 

* SET UP * 

* NEW VALUES ♦ 

* IN PRIME * 
*DATA CNT FIELD * 

* * 
*4c**«* *********** 



4c***p5*******4c* 

* ISAM ADD * 
♦WRITE OVER EOF * 

* SUBROUTINE * 
4c4c4c********4c*** 



4c4c***G4**^^^^^^^^ 

♦ IJHAA34 EK^ 
*_4c_4c-*-*_4c-*-*-* 

♦ WRITE OVER ♦ 

* EOF RECORD * 

* * 
*4c*************** 



IJHAA35 

4c«4c**G5********** 
*UHACPD1 EK* 

4c_*- 4c- *-*-*- 4c-*-* 

* WRITE NEW * 

* EOF RECORD * 

* * 
4c 4c*************** 



IJHAA37 

*4c*«*H4^^^*^***^* 
♦ IJHACEDF EL* 



4c*4(************** 







X 






***** 


X 




*EB ♦ 


.*. 




* D5* 


J3 ♦. 




* * 


.♦ LAST ♦. 




* 


PRIME ♦ 


. YES 


IJHAEFXD 


DATA RECORD 


...... 




.REWRITTEN.^ 






*. .♦ 






♦. .♦ 


X 




* NO 


***** 

♦ EA * 

* J5* 
* * 

IJHANEOT 





**4c**K3*** ***♦♦♦* 
♦IJHACUPD EL^ 

4c- 4c-*- ♦-♦-*-«-♦_* 

♦ UPDATE LAST ♦ 

♦ PRIME DATA * 
♦RECORD ADDRESS ♦ 
**4<****^^^***^^»* 



(t, JO e) 030PW JIIVM :aa¥ W^SI -Oa ^:i^^D 



Chart ED, ISAM ADD: WAITf Macro (4 of U) 



***** 

*EB * 
* 64* 



* CALCULATE MEW * 

* OVERFLOW * 
*RECORD ADDRESS * 
***************** 



*****Ci *#*♦*****♦ 

* SET TRACK * 

* INDEX ENTRy * 

* TO INDICATE * 

* WERFLOW * 

* END * 
**********#»**♦** 



*IJHAOSQU EH* 

* WRITE NEW * 

* OVERFLOW * 

* RECORD * 

t:iti^«4c3tc*********** 



El *. 

.PREVIOUS*. 

OVERFLOW 

ENTRY ON 

. THIS 

*. TRACK.* 

*, ,* 

* YES 



««c4c«:#f:l#««**4c**** 

♦IJHAORFL EG* 

♦GET LAST ENTRY * 

* m OVERFLOW * 

* CHAIiN * 

:(e4< *************** 



***#*G1 ********** 

*IJHAOLOW EJ* 

:(c_ *_*-*_*_*_*_*-* 

*UPOATE SEQUENCE* 

* LINK FIELD * 

* LAST ENTRY * 

#« *:!tc :4c*««:ic4:***** * * 



IJHAHEAD 

*****E2* ********* 
*IJHACLTI EJ* 

...X*GET TRACK INDEX* 
♦OVERFLOW ENTRY * 
* ADDRESS * 

3»:i:t<:****** ********* 



»****F2********** 

* * 

* MOVE * 

* POINTER TO * 

* ADDED RECORD * 

* * 

**;«(**« J((* **«« 3|C* 4l «!){( 



«4c* « *g3 « «*3|c :((«:(<«: #)jc 

♦IJHCBLDl EK* 

♦ BUILD CCW * 
*CHAIN TO WRITE * 

* TRACK INDEX * 

*««#*a|c*<e«***3|c«*:(c:)( 



*«4:«*C 3* ********* 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE TRACK * 

* INDEX * 

3<C««#** *3|c***iic««*j(:« 



«««:««£|39jc#«4t;(c««c**« 

*IJHAIOOP EL* 

*_!}(_#_*_*„*_*_*_* 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 

>(<«4c«*4:««4c«*;i<)(<#;**4t 



* * « * 

* * SVC 36 * * 

* *FREE INDEX * * 

* * TRACK * * 

* * * * 
***************** 



X 
***** 
*£C * 
* Al* 



* MOVE KEY * 
*AND POINTER TO * 

* lOAREAL * 

* * 

*****♦********;*** 



* GET TRACK * 
*INOEX OVERFLOW * 

* ENTRY ADDRESS * 

*4c:)c*«*«*##:tc**4c#*4e 
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Chart EE. ISAM ADD and ADDRTR: WHITE Macro, KEWKEY (1 cf 2) 



* * 

* * 



* ISAM ADD * 

* WRITE MACRO * 
» NEHKEY * 



IJHAWRNK 

* ESTABLISH * 

* REGISTER 14 * 

* AS SECOND * 

* BASE REGISTER * 

* * 



IJHAMRKY 

♦ IJHCINIT EG* 
#_*_♦_♦_«_♦_*_*_« 

♦ INITIALIZE * 

* PTRS TO PARTS * 

* OF OTF TABLE * 



* MOVE KEY * 

* FROM WORKL * 

* TO KEY AREA * 

* FOR ADO * 

* * 



UHACINX X 

*****E1********** 
*IJHCE«CA EG* 
♦_ *-*_♦ -*_*-♦-♦-♦ 
*GET HIGHEST LVL* 
*INOEX STARTING * 
* ADDRESS * 

4>* #«#«#«#*#*«itc** « 



♦* ♦ * *F 1 «««*«* ** * * 
*iJHCBLDl EK* 
*_#_♦_*_♦_*_«_*_* 

*BUILD CCW CHAIN* 

* TO SEARCH * 

* Ml/CT * 



IJHCAAB 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ MI * 

* OR 01 * 
«*#4e*****4!**«*#*# 



IJHCHKIN 

#4::4c*«HI ********** 
*IJHCXOR EE* 

* EXCP, SEARCH * 

* MI/CI AND * 

* WAIT * 



* GET lOAREAR * 

* COUNT FIELD * 

* FOR SEEK * 

* CHECK * 

* IF REQUIRED * 



4(«#*4:KI********** 

*IJHSKERR EN* 
♦_#_*-*_*_*_#_*_* 

* TEST FOR * 
♦OVER/UNDER SEEK* 

* IF REQUIRED * 



IJHACFLL X 

»««4(*,^ 2********** 

* MOVE NEXT * 

* LEVEL INDEX * 

* POINTER TO * 

* SEEK/SEARCH * 

* ADDRESS * 



****A3*** ****** 

* ISAM ADO * 

* I/O FOR MI/CI * 

* SUBROUTINE * 



4(#:te«A4********* 

* ISAM ADO * 

* I/U FOR MI * 

* SUBROUTINE * 



****A5********* 

* ISAM ADD * 

* WAIT * 

* SUBROUTINE * 



*E& * 
* E4* 



DUMMY 
CHAINED 
. ENTRY 
*, ,* 



.* INACTIVE *. YES 
*.0R DUMMY END . 
*. ENTRY .* 



*#***02*** ******* 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ CYL. * 

* IF REQUIRED * 



4e*««4iE2********** 

*IJHCEXWT EE* 

* EXCP, SEARCH * 
♦CYLINDER INDEX * 

* AND WAIT * 



«r4t«j(e4:F 2*** ******* 

* MOVE TRACK * 

* INDEX POINTER * 
*T0 SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



IMAklZ 

**:(f*#g2********** 

♦IJHCBLDl EK* 

*BUILD CCW CHAIN* 

* TO SEARCH * 

* TRACK. INDEX * 
«4:*««=**#«*«4°««#*« 



*****\iZ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ TI * 

* IF REQUIRED * 

««#««# *:«c «:«E «;«( ««:f*« 



IJHAA42 

:»i««#:4eJ2*** ******* 

*IJHCEXCP EH* 

* EXCP AND ♦. 

* HOLD * 

* * 

^itLilf^f:ti:t'*********** 



IJHCEXWT 
IJHCXCOR A 

*IJHC£XCP Eh* 

*_♦_♦_♦_*_*_*_«_♦ 

...X* EXCP, SEARCH * 



MI, CI, OR 
* TI * 

**** 

* REFERENCES * * 
TO tEC4: * * ♦ 
FEHl, HAB3 * * 
**** 
IJHAEBEG IJHCWAIT 

»«4t««C3 ********** **i^**Qdt********** 

*UHACLTI EJ* * ♦ SVC 7 * * 

#_*_*_4,_*_*_*_#_3(. « # WAIT * ♦ 



....... .X*btl LA5» IKALK » 

* INDEX ENTRY * 


» # ih * » 
* * REQUIRED * * 






* ADDRESS * 


* * * * 






«*«««* :(c«*#««««3^«# 


*****:tf*********** 
**** I 

*EL * 

* DI *.X. 

* ♦ , 
**** 






X 


UHCERRT X 






:«(«« * *03 ********** 


***^,t^B^******** ** 






*IJHC6LD1 EK* 


* GET ADDRESS * 






*_*_*_#_*_*_♦_*_♦ 


* OF TABLE * 






*BUILD CCW CHAIN* 


* CONTAINING * 






* TO READ LAST * 


* CCB TESTING * 






*TRK I NO. ENTRIES* 


* MASK * 






««*««**«** ***** ** 


:4c««:ii*« 4e*******« ** 






I 




* REFERENCES 






TO 


EEH3: 






EAC4, 


EADl 


X 


IJHCLOPl X 


EAF5, 


EAK2 


#3t!***E3«*4c4<4c***** 


^illi:tt**E^********** 


EBHl, 


tCJ2 


* SET RCD TYPE * 


* ♦ 


EFA2, 


EGJ2 


* AND OPERATION * 


* GET TESTING * 


EJD4, 


ELHZ 


* INDICATOR TO ♦ 


* MASK FROM » 


KA04, 


KAEl 


* READ TI * 


* TABLE ENTRY * 


KAJl, 


KCA4 


* IF REQUIRED * 


« * 


KCHl, 


KDDl 


^^^c*** *********** 


**#«**«*4c******** 


KEFI 





UHRESCO X 


.*. 






*****P3*** ******* 


F4 *. 


«:fc:tc«:|(f:53(c:|(««:«*:tc«*4c 


*IJHCEXCP EH* 


.* DOES *. 


* 


* 


♦_*_*_*_«_♦_#_*_* 


.* ERROR *. NO 


* 


POINT TO * 


* EXCP, SEARCH * 


*. CONDITION .*.... 


.... X* 


NEXT TABLE * 


* TRACK * 


*. EXIST .* 


* 


ENTRY * 


* INDEX * 


*« .* 


* 


* 


«##:«( «:$:«4'********* 


*• .* 


*#:|c^:»:4c««:#4!#««:jc:jc«« 




* YES 








**** 








*GB * 








* H2 *-X. 








* * , 








**** 




X 


X 


IJHCER X 




.*. 


*****G3* ** ***«« 4:* 


**G4******* 




65 *. 


*IJHSKERR EN* 


* TURN ON * 




.* *. 


*_*_♦_*_*_*_#_*_* 


* ERROR * 


YES 


* *. 


* TEST FOR * 


* INDICATOR * 


...«.* 


UNRECOVERABLE.* 


* OVER/UNDER * 


* IN DTP * 




*• I/O .* 


* SEEK * 


* TABLE * 




*. ERROR.* 


**«««* :je«*#«i:(c#:«e^#« 


4e********** 




♦ . .* 

* NO 


**** I 








* * , 


•X. .••....••• 






* * *.x. 






* * . 








**** 








IJHSER2 X 


IJHCPLST X 






***4t«H3********** 


««H4******* 




X 


* RESTORE * 


* * 


****H5********* 


* USER * 


* TURN OFF * 


* 


RETURN TO * 


..X* REGISTERS * 


* SEEK * 


* 


CALLING * 


* 2-14 * 


* SWITCH * 


* 


ROUTINE * 


* * 


♦ * 


*«:tc*:(c:^4:«««:«c #«:«:* 



««:t::(c«4t *********** 



1ti:ti^c:tf ******* 



IJHSER21 .*. 






J3 *. 






.* *. 






.* FROM * 


. 


rES 


*. WAITF 


»* 




*. ROUTINE .* 






*. ,* 






*. .* 




X 


* NO 




***** 

*EA * 








* Bl* 








* * 








* 






IJHC^ATF 


X 






#«« *K,3 ********* 




* RETURN TO 


* 




* PROBLEM 


* 




* PROGRAM 


* 




******* 


(c******* 





X 

***** 

*EF * 
* A I* 



***** 
*EF * 
* Gl* 
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.* ANY *. I 

TRACKS .*.. 

*. HELD .* 



* ♦ * * 

* * SVC 36 * * 
X* * FREE * * 

* * TRACK * * 

* * * * 



REFERENCES 


TO 


EFAl: 


EAC3 


EAK2 


EBHl, 


EEJ4 


EGE3, 


EGJ2 


EJD4, 


ELJ2 


FDK2, 


FEDl 


FFG2, 


FKJl 


KAE3, 


KBF2 


KCHl, 


KDDl 



* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 

* * * * 

4:^ Xc<c 4c :«::<<«««:«(*«♦ 4c « « 



***<c*C 1 ********** 

* GET RANDOM * 

* RETRIEVE OR * 

* ADD INDEX * 

* ADDRESS * 

* * 



* GET LOG UNIT * 

* ADOR USING * 

* NUMBER * 
*#♦**********#;*** 



«:(c*«:gc£ X >tc««4c4(4c4:i(c 4c4c 

* * * * 

* * SVC 36 * * 

* * FREE * *. 

* * TRACK * * 

* * * * 



♦**** 








*EE * 






* H3* 






4c i 






* 




4c4c4c«B3********* 


IJHSER2 




* ISAM ADD * 

* RESTORE * 

* SUBROUTINE * 


4t4c4c4« 




4.4c4c**4<4<*4c*4<*4c4c4c 


4c 4c 






* C2 * 








4c 4c 








4c 4c 4c 4c 








IJHCRES X 


*IJHCRES2 X 


*****C2 ********** 


4c4c*4c4cC3********** 


* LOAD 


4c 


* SAVE AND * 


* ADDRESS OF 


4c 


* RESTORE * 


* IJHCEXWT 


*• .. 


... * ALL REQUIRED * 


* INTO REG 6 


4c 


* REGISTERS * 



4<4c4<4c4c4c4c4c4c4c4c4c4c4c4c4c4c 



4c 4c 4c 4c 4c 
4<EE * 
4C J44C 



«««« 4c4c 4c4c 4c*4c4c4c4c4c4c4c 



*IJHCINIT EG* 

* INITIALIZE * 

* PTRS TO PARTS * 

* OF DTF TABLE * 
4<*4c4c4<4c*«c4c4c4c4c*:***jj( 



4c 4c 4c 4c 4cE3 ********** 

* INTERCHANGE * 

* POINTER TO * 

* SAVE AREA * 

* AND CONTENTS * 

* OF REGISTER * 
4c4c4c4c4c4c4c4:4c4c4c4c4c4c4c4c« 



♦♦*«F3********* 

* EXIT * 

* VIA * 

* REGISTER 6 * 

:tc;(c:4e «4c 4c4c4c4c4c4c 4c4c4c 4c 



4c4c4c4c4cGI********** 

* SAVE REQUIRED * 

* AREAS AND * 

* REGISTERS, * 

* GET FAILING * 

* CCW ADDRESS * 
«4c « 4c 4c4c 4c 4<4c 4c 4c4c 4c 4c « 4c 4c 



IJHELDR 

:(e4c4c:(c«H 1 4c 4c 4e 4c 4c 4c 4c 4c 4c 4c 

* SAVE TYPE * 

* OF RECORD * 

* AND OPERATION * 

* BYTE * 
4c 4c 
«4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c4<4c4c 
IJHEUSER 

:jc««:{c :«( J ]^ :4c:^4c 4c4c4c4c 4c 4c 4c 
4c 4c 4c 4c 

* * EXECUTE * * 

* *USER ERROR * * 

* * ROUTINE * * 

4c 4e 4c 4= 

:)c4c4(*4c4c4c4c4c4c4c4c4c4c4c4c4c 



.X* 



4c4c«4c4cH2********** 
*IJHCRES2 EF* 

RESTORE * 

* MODULE * 

* REGISTERS * 
4;4c4c4c4c4c 4<4c 4c4c 4c4e 4c4c4c4c4: 



4c4cJ2******* 
*SET STATUS * 

* BYTE IN 
DTF IS TABLE 

* TO ZERO 

4c 4c 

♦***4c*4'4c4c4c4c 



♦***K2* ******** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
:(c4:4c4c4c4c4c4<4c4c4c4c4c4c4c 



REFERENCES 
TO EFJl: 
EAC3, FEEl 
KAE4 



4c 4c 4c 4c 
4c 4= 

* C2 * 
4c 4c 

4c 4c 4c 4c 



242 DOS/VS LIOCS Volume 3 DAM and ISAM 



£fiZ s:^aeqD 



* * 

* A2 * 

* * 



****A1********* 

* ISAM ADO * 

* WRITE OVFLOW * 

* SUBROUTINE * 



IJHAORFL 

♦IJHCBLDl EK* 

♦BUILD CCW CHAIN* 
* TO READ * 
♦OVERFLOW RECORD* 

^:t!:l>!:f ************* 



*:t:**«Cl ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ DATA * 

* RECORD * 

«i4c 4^ 4c «* 4c« *« 3tt « « « « 4c :»: 



4c«#«3jc 01 #Jtc*:3)c«*4c* 4C4C 

*IJHAIOPH EL* 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 

4e«4c4c«*««««4c4c4c4c«:4c4c 



.* END * 

*. OF OVERFLOW 
*, CHAIN .* 



**«*A3*** ****** 

* RETURN VIA * 

* IJHARG2 * 

* ♦ 

4c«4c4c4c4:4c4:3«c:*4c4c*«3{t 



*****62*** ******* 

*IJHAORFL EG* 

* READ NEXT * 

* OVERFLOW * 

* RECORD * 
4f**************** 



*****C2********** 
*IJHAOLOW EJ* 

«_♦_*_*-♦-♦-*-*-* 
♦WRITE PREVIOUS * 

* OVERFLOW * 

* RECORD * 

«4c4!3e:«4c itc««4c «3ec*«4c«:{t 



«4c4c4c4cD2********** 

* * 

* MOVE TRACK * 

* INDEX ADDR * 

* SEEK ADDRESS * 

* * 

4c« 4c:ie4c4c 4c««« *4c 3jc4c3«c4c4c 



****A4********* 

* ISAM ADD * 

* 1/0 FOR MI/CI * 

* SUBROUTINE * 

^4c«4:4c:^4c4c4:4c««4c« * 



iJHCXCOR 

«*4c««B4********** 

* SET UP * 

* REGISTER 14 * 

* AS SECOND * 

* BASE REGISTER * 

* * 

4e4c4c:t<:4s*:jc4:4c4c4c««4c4c«4c 



IJHXCOR 


.*. 

C4 *. 






.* CYL * 






.* 


INDEX 


** 




*. 


IN CORE 




.* 


*. 


SPEC 


.* 





EI *. 


E2 ♦. 


4C4C 4c «;«E3**« ******* 


.* KEY *. 


,* *. 


*IJHCMCAL EH* 


.OF RCD TO BE*. YES 


.* CYLINDER *. NO 


*_*_*-*-*-*-*-*-* 


♦ADDED GT KEY OF*..,. 


*. OVERFLOW .*..... 


...X* GET LOGICAL * 


♦.OVERFLOW .* 


*. AREA .* 


* UNIT NUMBER * 


*. RCD .* 


*. .* 


♦USING M NUMBER * 


*. .* X 


*. .* 


**************jiiii,itc 


* NO **** 


* YES 


m 



*#*#*04********** 

* INIT POINTER * 

* TO START OF * 
♦CYLINDER INDEX * 

* ENTRIES IN * 

* MAIN STORAGE * 

«4e 4c4:4c4c 4c« 4c * 4:4c ««* #4< 



.*. 

E4 *. 
.*CURRENT*. 
♦ KEY GT 

FIRST CORE 

*. INDEX ,■ 

*. ENTRY.* 



Fl *. 


4c4c4c4c4cF 2********** 


.* *. 


♦IJHCBLDl EK^ 


.* DUPLICATE *. YES 


4c_ *- 4c- *- *- 4'- 4c- *-4c 


KEYS .*.... 


* BUILD CCW * 


*. .* 


* CHAIN TO * 


*. .* 


* WRITE COCR * 


♦ . .* X 


4:4c4c4c4c4c4c4e4c4c4c4c4c4c4c4c4c 


4c NO 4c4c4c4c4c 




*EB * 




* 02* 




4c 4c 




. ♦ 




IJHACDUP 





4'4«4c*4c 
*EF * 
* Al* 



4c«4c4c4cGl********** 
4c 4c 4c 4< 

* * SVC 36 * * 

* * FREE DATA * * 

* * TRACK * * 

4c 4c 4c * 

4c4c4c4c4<4c4c4c4c4c4c4c4c4c4c4c4c 



4c4c4c4c:4iHI^^******** 

*IJHAOSQU CR* 
4t_4t-4c-4c-4c-4c-4c-4c-4c 

* WRITE NEW * 
*OVERFLOW RECORD* 

♦ IN CHAIN ♦ 
4c4c 4c4c4c4c*4c4c4< 4c4c4c*** * 



4c4c4c4c J 1 4c4c4c4c4c4c4c4c4c 

* RETURN VIA * 

* IJHARG7 * 
4c 4c 

4c 4c4c 4c4c 4c4c4c4c4c4c4c4c 4c 4c 



4c4c4c*4cG2*** ******* 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 
♦WRITE TRK INDEX^ 

* IF REQUIRED ♦ 

4c4c4c4c4c4c4c4c4c4c4c4:4c4c4c4c4c 



YES 



IJHCEXWT 
IJHCBUMP X 

4c 4c 4c 4c4c F 4« 4c 4c « 4c 4c4' 4c 4c4c 

♦ POINT TO ♦ 

♦ NEXT CORE ♦ 

♦ INDEX * 
« ENTRY * 
4t 4c 
4c4c 4< * 4c 4c 4c 4: 4c 4c 4c 4c 4c4c 4c 4<4<: 



IJHCTRDX 

4t4t4t4c4c64********** 

* GET POINTER * 

* TO LAST BYTE * 

* OF KEY ASSOC * 

* WITH CORE * 

* INDEX ENTRY * 
4c4c4c4c4c4c4c4:4:4c4c4c4c4c4c4c4' 



4c4c4c4cA5*******^* 

* ISAM ADD 

* GET ADDRESS 

* SUBROUTINE 

4c 4c 4c 4c 4c 4c 4c 4:4c 4c 4c 4c 4c 4c 4c 



IJHCERCA 

4c 4c 4c 4c 4=8 b********** 

* MOVE START I Nb * 

* ADDRESS UF * 

* MI AND CI TO * 

* SEEK/SEAkCH * 

* ADDRESS ♦ 
4c 4c 4c 4c 4c 4c 4c 4:4c 4c 4c 4:*** ♦* 



4c4c4«4cC 5 ***♦♦♦♦** 

♦ RETURN TU * 

♦ CALLING * 

♦ ROUTINE * 
4c*4:4c4c4c 4c4c4c4c4c 4c4c4c 4c 



4c4:4c4<:D5********* 

* ISAM ADD ♦ 

* INITIALIZE * 

* SUBROUTINE * 

4c4c4c4c4:4:4c4c4<4c4c4c4c4c4c 



IJHCIMT X 

4c4c4c4'*E5**^******* 

* ADD DTF BASE * 

* ADDRESS TO * 

* DISPLACEMENT * 

* OF DTFIS PART * 

* 2 AND 3 TABLE * 
4c4c4c**4c4c4c4c**4c4<**** 



*4c 4c 4cF 5 4c 4c 4c 4c 4c 4c 4c 4c 4c 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
4c4c4t4c4c*4c4:**4c4c4c4c4c 



4c 4c 4: 4cG6 ********* 

* ISAM ADO * 
*GET UNIT NO. I * 

* SUBROUTINE * 

4c«4:*4:*******4c4c4c 



X 


I 


JHCHRFP 


.*. 


IJHCXCPH X 


4c 4c**4cH 2*** ******* 




4c4c4c4c*H3*********+ 


H4 *, 


4(4t4c4c4cH34'4c4c4c4c4c4:4c4c4c 


*IJHAIOOP EL* 




♦ MOVE HRFP * 


.* FIRST *. 


*IJHCMCAL fch* 


4t_ 4c_4t_ 4t_4t_ 4e_ 4c-4c-4c 




♦ TO DATA ♦ 


NO .* BYTE OF * 


4t_4i:- 4<-*- 4C-4C- 4C-4C- 4c 


* EXCP, WAIT * 




♦ READ *X.. 


,...,*.KEY IN INDEX .-> 


* GET LOG UNIT * 


* AND TEST * 




* IN AREA * 


*. =X'FF« .* 


* NO. USING M * 


* FOR ERRORS * 




4c 4c 


4c. .4c 


* NUMBER * 


4C4C4C 4C4C4C 4<4< *4c 4C4C 4C4C4C4C 4c 




4c4c4c4c4c4c4c4c4c4c4'4:4c4c4c4c4c 


*. .* 
♦ YES 


4c4c4c4c4c4c4!4c4c4c4c4c4c4c4:4c4c 


X 
.*. 




\ 


IJHCINDX X 


X 


J2 *. 




X 


4c4c4c4c4:J44c4c4c«4c4c4c4c4c4c 


4c#4c4c4cJ54c4'***4c4c4c4<4c 


,4c *. 




4<4c 4c 4cJ3**^ ♦♦**** 


♦ LOAD POINTER ♦ 


4C 4c 4c 4C 


.* HOLD *. NO 


* RETURN TO * 


* TO START OF * 


* * SVC 35 * * 


*. =YES .*. 




* CALLING * 


* DTF TABLE * 


* * HOLD * * 


*. .* 




* ROUTINE * 


* IN REG * 


* ♦ TRACK * * 


*. .* 




4c4c4c 4c4c 4<# 4c4:4c4c4c4c4c 4c 


4c 4c 


4c 4c 4c 4c 


*. . * 


X 




4c4c4c4c4c**4c4c4c4c4c4c4c4c4<4c 


4c4c4<4c4c4c4c4c4c4c4c4c4c4c4c4<4c 


* YES 


4c4c**4< 

*EE * 
* H3* 




• 




X 


4c 4c 








4c4c4c4c4c 


* 








*EF * IJHSER2 








* Al* 










* 4c 






X 


X 


4c 






4c4c4c4cK4****^*^** 


4c4c4c4cK5********* 


IJHSER2H 






♦ SVC 2 * 

♦ FETCH ♦ 

♦ $$BINDEX ♦ 
4c 4c 4c 4c 4c 4c 4c 4< 4c 4c 4c 4<4c 4c 4c 


* RETURN TO * 

* CALLING ♦ 

* ROUTINE * 

4c 4< 4c 4c 4<4< 4c 4c 4c 4c 4c 4c 4c 4c 4c 
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Chart EH, ISAM ADD, RETRVE, and AEDRTR: Sufcrctitines C2 of 7) 



****A1 ********* 

* ISAM ADO * 
♦WRITE OVFL RCD * 

* SUBROUTINE * 

«««4t*«««:>et«*«**>tc 



IJHAOSQU 

«4e«4(«g], «:)<******«* 

* MOVE LAST * 

* OVERFLOW RCD * 

* ADDRESS TO * 

* SEEK/SEARCH * 

* ADDRESS * 



*****C1 ********** 

*MOVE KEY LENGTH* 

* RECORD LENGTH * 
*+lO, ID (CCHHR)* 

* COUNT FIELD * 

* OF lOAREAL * 



♦****01 ********** 

* GET ADDRESS * 

* OF WORKL * 

* AND IPAREAL * 

* DATA AREA * 

* POINTER * 
***************** 



*****E1********** 
*IJHCMOVE EH* 

*_*-.*-*_*_*_*_*_* 

* MOVE LOGICAL * 

* RECORD TO * 

* lOAREAL * 
***************** 



♦****F1********** 

♦IJHACOVP EJ* 

*_*_*-*_*-.*_*_*_* 

* BUILD P-COOE * 

* FOR OVERFLOW * 

* ENTRY * 
***************** 



*****Gl ********** 
*1JHCBLD1 EK* 

*_*_*_*_*_*_*_*_* 

*BUILD CCW CHAIN* 
* TO WRITE NEW * 
*OVERFLOW RECORD* 
***************** 



*****H1 ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* IF REQUIRED * 
***************** 



*****jl ********** 
*IJHAIOOP EL* 
*_*_*-*_*_*_*_*_* 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 
***************** 



*****K1 ********** 

* * 

* ADD ONE TO * 
*UVERFLOW RECORD* 

* COUNT * 

** *************** 



.♦INDEPENDENT*. NO 
. OVERFLOW .*... 
*. PRESENT ,* 



*****B2*** ******* 

* SAVE ADDRESS * 
*IN SEEK/SEARCH * 

* AREA AS LAST * 

* OVERFLOW * 
*RECORD ADDRESS * 
***************** 



*****(^ 2 ********** 
*IJHACUOV EL* 

*_*_*_*-.*-*_ *_*-* 

* UPDATE RECORD * 

* ADDRESS * 

* * 
***************** 



**«*«A3********** 

* * * * 

* * SVC 36 * * 
.X* * FREE DATA * * 

* * TRACK * * 

* *IF REQUIRED* * 
***************** 



****B3****»**** 

* RETURN ro * 

* CALLING ♦ 

* ROUTINE * 
*************** 



****/^4****4r**** 

* ISAM ADO * 

* MOVE * 

* SUBROUTINE * 
*************** 


♦***A5********* 

* ISAM ADD * 

* CALCULATE * 

* SUBRGUTINE * 

*«*****4^******* 


**** I 
*EN * 

* B3 *.X. 

* * . 




**** X 
IJhCMOVE .*. 

.* ANY *« NO 
*. BYTES TO BE ♦*..,. 
*. MOVED .* 
*, ,* 

*• .* 


IJHCMCAL X 

**^***g^5*****«**** 

* CALCULATE * 

* AND ADD TO * 

* BASE ADDRESS * 
*♦♦**#*********** 



*****^ 2*** ******* 
*IJHACUOV EL* 
*_*_*_*_*«*_*_*_* 

* UPDATE RECORD * 

* ADDRESS * 

* * 
***************** 



.* END *. 
.* OF INDEP *. NO 
*. OVERFLOW .*.,. 
*. EXTENT .* 



IJHANEOF 

*****e2*** ******* 

* MOVE CURRENT * 

* ADDR FROM * 

* SAVE AREA TO * 

* SEEK/SEARCH * 

* ADDR AREA * 
***************** 



♦****H2********** 

* * SVC 36 * * 

* * FREE DATA * * 

* * TRACK * * 

* *IF REQUIRED* * 

* * * * 
***************** 



****J 2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
******* ******** 



* SET UP * 
.X* EOF RECORD * 

* ADDRESS ♦ 

* * 
***************** 



*****E3*** ******* 

*IJHACUOV EL* 

*_.*_*-*-*_*-*_*-.* 

* UPDATE EOF * 

* RECORD * 

* NUMBER * 
***************** 



*****P3********** 

*UHCBLDI EK* 
*„*_*_*_*_*_*_*_* 

* BLD CHAIN TO * 

* WRITE EOF RCD * 

* IN OVFL AREA * 
***************** 



*****G3*** ******* 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* IF REQUIRED * 
***************** 



*****H3«********* 
*IJHAIOOP EL* 
*_*_*_*_*-*_*_*-* 

.* EXCPt WAIT * 
« AND TEST FOR * 
* ERRORS * 
***************** 



IJHCREST 

*****(; 4********** 

* CALCULATE * 

* NUMBER OF * 

* BYTES TO BE * 

* MOVED MINUS * 

* ONE * 
***************** 



IJHCTSER X 

*****Q4*»******** 

*MOVE REMAINING * 

* PORTION OF * 

* FIELD TO * 

* DESIGNATED * 

* LOCATION * 
***************** 



IJHCLGUT 

♦****C 5 ********** 

* MOVE LOG * 

* UNIT NUMB, * 

* AND BB TO * 

* SEEK ADDR « 

* * 
***************** 



*D5 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISIOW 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING 



****£4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****p:4********** 

* * 

* MOVE LOGICAL * 
*UNIT NUMBER TO *X. 

* CCB * 

* * 
***************** 



*****Q4********** 

* STORE CELL * 

* NUMBER IN * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



****E5********* 

* ISAM ADD * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
********♦♦***♦♦ 



NO .* HOLD 

...*. =YES 

*. *D5 



*«*«*G5********** 
*IJHCMCAL Eh* 
*_*_ *_ *_ *_ *_ *— *-♦ 

* GET LOG UNIT * 

* NO. USING M * 

* NUMBER * 
***************** 



****H4********* 

* ISAM ADD * 
*BUILD TI ENTRY * 

* SUBROUTINE * 
*************** 



IJHAOMTO 

*****J4********** 
*MOVE TRK INDEX * 

* ADDRESS TO * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



*****K4********** 

* SET UP * 

* NEW TRACK * 
*INDEX OVERFLOW *. 

* ENTRY * 

* * 
***************** 



***Hi>************ 



***************** 



****J5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************(** 
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Chart EJ. ISAM ADD, RETRVE, and AEDRTR: Subroutines C3 of 7) 



♦***A1 ******♦*» 

* IS AH ADD * 

* UPO LINK FLO *■ 

* SUBROUTINE * 



IJHAOLOW 

♦IJHCBLDl EK* 

»_♦_:*;_«_♦_*_*_*-♦ 

*BUILD CCW CHAIN* 

♦ TO READ PREV * 

* OVERFLOW RCD * 



* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ DATA RCD * 

* IF REQUIRED * 



*I4HAIO0P EL* 

* EXCPi WAIT * 

* AND TEST * 

* FOR ERRORS ♦ 



4(«4c*«El ********** 

* SET SEQUENCE * 

* LINK FIELD * 

* POINT TO NEW * 
♦OVERFLOW ENTRY * 
« * 
4iii<***«*«4c»«***4ci)t« 



4(«««:«F1********** 

* SET SEQUENCE * 

* LINK FIELD * 

* INDICATE * 

* OVERFLOW * 

* CHAINED ENTRY * 



_*_*_*_*_*_#_* 



«# *«;<(#«4c4c3iC«9(C«#fr *3gc 



#«#«3«CHX ********** 

*IJHCBLDl EK* 

*BUILO CCW CHAIN* 

* TO WRITE PREV * 

* OVERFLOW RCD * 

«!)c#:C=*«««*****4c4(*« 



«4c««*JX «:«<*****»«« 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* RECORD * 



*IJHAIO0P EL* 

* EXCP, WAIT *. 

* AND TEST * 

* FOR ERRORS * 

«4c ««4c4c*«3C4<«^«*:ie««« 



****A2*** ****** 

* ISAM ADD * 
*CALC. OVFL ADDR* 

* SUBROUTINE * 



*SET UP INTERNAL* 

* RETURN REG * 

* (IJHARGJ * 

* * 



4c 4c«*A3 ********* 

* ISAM ADD * 

* CALC. TRACKS * 

* SUBROUTINE * 

««««««««« **3(c*** 



IJHAODNl .*. 



.* RECORD *. NO 
♦.NUMBER EQUAL .*... 
*. ZERO .* 
*. .* 



.* CYLINDER 
. OVERFLOW 
♦ .SPECIFIED. 



««*4E4cC3«*att **«**«* 

♦ * 

* SUBTRACT ONE * 
. *FROM REMAINING * 

* NUMBER OF * 

♦ TRACKS * 

4(4cit<***«**«*#««4E4c4e 



IJHAOMTO .*. 



.* INDEP *. NO 
.X*. OVERFLOW AREA.*... 
*. PRESENT .* 



*](c4e4eB4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 



ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



****A5********* 

* ISAM ADD * 

* GET COCR ADDR * 

* SUBROUTINE * 

4c«it<*4c4«*****4c««* 



IJHACLTI 

^^'♦^^B £>********** 

* GET LAST * 

* PRIME DATA * 

* RECORD * 

* ADDRESS * 

* * 
4c4!* ********* *4(««» 



«3(c*««C5********** 



*1lf}ti4^4t*:ti********** 



««*«♦*«*♦******** 



«»«««£ 2*** ♦***«*♦ 
♦IJHAODNl EJ* 
#_♦_*_*„♦_ jjc- ♦-*_ * 

* SUB 1 FROM NR * 
♦OF RMNG CYL OVF* 

* TRKS IF NEC. * 
##*4<**>*«««#«***«4c 



#*3tc«*F2********^* 
♦MOVE ADDRESS 0F+ 

♦ NEW OVERFLOW ♦ 

♦ RECORD TO ♦ 

♦ SAVE AREA ♦ 

♦ * 



**#*sJ«G2********** 

♦ ADO ONE TO * 
♦NUMBER OF FULL * 

♦ CYLINDER * 
♦OVERFLOW AREAS * 

♦ IF REQUIRED ♦ 

4c «:«#««: «4c*« ** «##^:ic 



4c 4c :«(*H2^^* ♦♦*♦♦♦ 

* RETURN TO ♦ 

* CALLING * 

* ROUTINE ♦ 
4e4c4c4c4c4c4c4<««4c«^*^ 



4c4c4c4c4!j2^^+ ♦♦♦♦♦♦* 



* * 



* 4< 



SVC 3 6 
X^ ♦ FREE DATA ♦ ♦ 

♦ ♦ TRACK ♦ * 

♦ ♦IF REQUIRED^ ♦ 

4c4c4c4c4c4: :((4c4c« «**4c4c4c4c 



4c4c4c**E3 **♦♦♦*♦*** 

♦ MOVE LAST * 

♦ IMDEPENDENT * 
♦OVERFLOW RECORD^ 

♦ ADDRESS TO ♦ 

♦ SAVE AREA ♦ 

4:4c4c*: ♦* **«3)c 4t4c4c9ie» *« 



4c 4t4c*4cF3 **♦**♦**♦♦ 

♦IJHACUOV EL* 

4t_4e_ 4_4,_4,_4t_4,_4<_4t 

♦ GET NEW ♦ 

♦ INDEPENDENT ♦ 

♦ OVFL RCD ADDR * 
4c4c4c4c4c4<*^*4:*»^««#>jc 



4c 4c4c 4c 4cG3 ♦♦♦♦♦♦♦♦ ♦♦ 
4c * 

♦ GET NUMBER * 
*0F INDEPENDENT * 
♦OVERFLOW TRACKS* 

* * 
♦4c**** ♦♦4c* ******* 



♦♦♦♦♦H3*******^^* 
♦IJHAODNl EJ* 
♦_♦_♦_♦-♦-*-*-*-* 

* SUB 1 FROM NR ♦ 
♦OF INOPNT OVFL ♦ 

♦ TRKS IF NEC- ♦ 

, ♦♦♦♦♦*«*4c******** 



*****J3**«+#*4c4c** 

* * 

* SAVE NEW ♦ 
♦OVERFLOW RE COR D^ 

* ADDRESS ♦ 

* * 
♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦. 




**4c4c05*****^*** 


HOLD 


* 


. YES 


♦ RETURN TO > 


= Y£S 




.♦..-. 


♦ CALLING ' 


♦C4 .♦ 




♦ ROUTINE 


.* 






**♦♦♦♦♦**♦*♦♦♦♦ 


♦ , ,* 




X 




♦ NO 




***** 
*EF * 








* Al* 




X 




* * 




***** 




* 




*EE * 




IJHSER2H 




* H3^ 








* * 








* 






****E5*****#«*4c 


IJHSER2 






♦ ISAM ADD 



****P4***««*«^« 

* ISAM ADD ♦ 

* DEVLP P-BYTE * 

* SUBROUTINE ♦ 
*♦♦♦♦♦♦♦*♦*♦♦♦♦ 



* GET POINTER ♦ 

* TO SEQUENCE ♦ 

* LINK FIELD ♦ 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦4c**** 



♦♦♦♦♦IH4^^^****^*^ 
» MOVE LONG ♦ 

* SEEK (X«07M ♦ 

* OR HFAO SEEK ♦ 
*tX»lB* ) CCW OP * 
♦CODE TO P-BYTE ♦ 
*♦♦♦♦♦♦*♦♦♦♦♦♦♦♦* 



♦♦♦♦J4^*^*^*^*^ 

* RETORJ^ TO ♦ 

* CALLING ♦ 

* ROUTINE ♦ 
♦♦♦♦♦♦♦♦*♦♦♦♦♦♦ 



♦♦♦*K2*++ ♦*♦♦♦* 

♦ RETURN TO * 

♦ CALLING ♦ 

♦ ROUTINE ♦ 
♦♦♦♦*♦♦♦♦*♦♦♦♦♦ 



MOVE POINTER 

» SUBROUTINE » 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



IJHAA41 

***^«pf,^^^^^^^*^^ 

* MOVE lO-BYTE ♦ 

♦ POINTER FROM ♦ 

♦ IJHACTIN TO ♦ 
♦I0REAL+8+KEYLEN* 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦(^^♦♦♦«*^^^^ 

♦ RETURN TO ♦ 

♦ CALLING * 

♦ ROUTINE ♦ 
*************** 



♦♦♦♦H^^^* ****** 

* ISAM ADD ♦ 

* UPD RCD COUNT ♦ 

* SUBROUTINE ♦ 
♦♦♦*^^4c^^^^^*^^ 



IJHACUPP 

♦♦♦♦♦j5^^^+*^^^^^ 

♦ ADD ONE TO ♦ 

♦ PRIME DATA ♦ 

♦ RECORD ♦ 

♦ COUNT * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦K5 ♦♦♦♦***♦* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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Chart EK. ISAM ADD, RETRVE, and ADDRIR: Sutroutines (4 of 7) 



****A1 ********* 

* ISAM ADD * 

* ~ BUILD * 

* SUBROUTINE * 

«;(e4c««««**4e4(***:tc 



IJHCBLDl 

4c«:«:*«Bl ********** 

* GET ADDRESS * 

* OF CCW * 

* BUILD AREA * 

* IN DTP TABLE * 

* * 



IJHCLOPX 

♦♦♦**C1 ********** 

* GET DATA OR * 

* TIC POINTER * 

* FROM BUILDER * 

* CONTROL CODE * 

* * 



* Dl *.X 



**** 
IJHCTICR 

«:4(#4c3«(Dl ********** 

* GET ADDRESS * 

* FIELD FOR TIC * 

* INSTRUCTION * 

* OR DATA * 

* AREA ADDRESS * 



IJHCSTRE X 

♦♦***F1 ********** 

* STORE DATA * 

* AREA ADDRESS * 

* AND OP CODE * 

* IN CCW * 

* * 

*4c***«*****3te***** 



«*««*pi*4c««:tc«**** 

* MOVE FLAG * 

* BITS FROM * 
*BUILDER CONTROL* 

* CODE TO CCW * 

* * 

4c**************** 



4c:tc:jc«*QX********** 

* * 

* STORE DATA * 

* LENGTH IN * 

* CCW * 

* * 

:«(***************« 



IJHCBH9B X 

**H1******* 

* TURN OFF * 
* DATA AND/OR * 

* COMMAND * 

*CHAINING BIT ♦ 

* IN DTF * 
3(C *****«*«** 



IJHCE99 

*«#**JX3)t3)C*4<««**** 

* UPDATE TO * 

* NEXT BUILDER * 

* CONTROL CODE * 

* FIELD * 

* * 
«**«*****««****** 



♦♦♦♦A2********* 

* ISAM ADD * 

* RECORD LIMIT * 

* SUBROUTINE * 



IJHACDTR 

***««B 2*** ******* 

* MOVE HIGH * 

* RECORD NUMBER * 

* ON PRIME DATA * 

* TRACK TO * 

* DTF TABLE * 

:«c4:]tc4t:$c4c «:«(4e**«***** 



****A3 ********* 

* ISAM ADD * 
*SET UP POINTER * 

* SUBROUTINE * 
*************** 



* B3 *.X 



***« 
IJHAENT X 

*i(j***B3 *♦*****♦** 

* MOVE "HR* OF * 

* FIRST PRIME * 

* DATA RECORD * 
*IN CYLINDER TU * 
♦SEEK/SRCH ADO. * 

«4c«* :((*«* ********* 



«****£3 *«*♦****«* 

* SUBTRACT ONE * 

* FROM SEARCH * 

* ADDRESS * 

* RECORD * 

* NUMBER * 
***************** 



****!j!D2********** 

* MOVE HIGH * 

* RECORD NUMBER * 

* ON SHARED * 

* TRACK TO * 

* DTF TABLE * 
**♦«♦«**♦******** 



♦***p 2********* 

* ISAM ADD * 
*WRITE OVER EOF * 

* SUBROUTINE * 

:tc««4(*********** 



IJHACPDl .*. 



Kl 



.*• 



*. 



*. 



*. 
.*' END OF *. 
CCW 
STRING .* 
.* 
*. .* 
* NO 



**«4<*H2*** ******* 

* * 

* MOVE ALL * 
*REQUIRED VALUES* 

* AND AREAS * 

* * 
***************** 



***3(e*J2*** ******* 
*IJHCMOVE EH* 

* MOVE LOG RCD *. 

* FROM WORKL * 

* I0AREAL+8+KL * 
***************** 



****K2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****03********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****E3*** ******* 

♦IJHCBLDl EK* 

♦_*_*_*_*_*_*_*_♦ 

.X*BUILD CCW CHAIN* 

* TO WRITE DATA * 

* RECORD * 
***************** 



*****P3 ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* IF REQUIRED » 
******** ** ***** ** 



*****G3 ********** 
*IJHAIOPH EL* 
*_*_*_*_*_*_*_*_* 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 
***************** 



*****H3*** ******* 
*IJHACUPD EL* 
*_*_*_*_*_*_*_*_* 

* ADD ONE TO * 

* PRIME DATA * 

* RECORD COUNT * 
***************** 



****J3*** ****** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



IJHAA33 X 

*****A4********** 
*MOVE SEEK ADDR * 

* (CCHHRJ INTO * 
*COUNT FIELD FOR* 

* PRESENT EOF * 

* RECORD ID * 
***************** 



IJHAA34 

*****B4********** 

* MOVE COUNT * 

* FIELD FOR * 

* PRESENT EOF * 

* RECURD TO * 

* lOAREAL * 
***************** 



*****C4.********** 
♦IJHCMOVE EH* 
*_*_*_*_*_*_*_*_* 

* MOVE KEY AND * 
*RCD FROM WORKL * 

* TO lOAREAL * 
***************** 



*****04********** 

*IJHCBLD1 EK* 

*_*_*_*_*_*_*_*_* 

*BU1LD CCW CHAIN* 

* TU WRITE DATA * 

* RECORD * 
***************** 



*****E4****«***** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* IF REQUIRED * 
***************** 



*****P4********** 

*IJHAIOPH EL* 

*_*_*_*_*_*_*_*_* 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 
***************** 



*****Q4********** 

*IJHACUPD EL* 
*_*_*_*_*_*_*_*_* 

* ADD ONE TO * 

* PRIME DATA * 

* RECORD COUNT * 
***************** 



****A5********* 

* ISAM ADD * 

* GET KEY/PTk * 

* SUBROUTINE * 
*****♦*****♦*#* 



IJHACBKI X 

*****B3* ********* 

* MOVE KEY UF * 

* LAST RCD ON * 

* PRIME DATA * 

* lOAREAL * 

* * 
***************** 



*****Cf)********** 

* MOVE 10-BYTE * 

* POINTER TU * 

* PRIME DATA * 

* TRACK TO * 

* lOAREAL * 
***************** 



****05********* 

* RETURN TO * 

* CALLING * 

* ROUTINt * 
*************** 



****E5********* 

* ISAM ADD * 
*EXCH. KEY DATA * 

* SUBROUTINE * 
*************** 



* INITIALIZE * 

* REGISTER a * 

* TO 256 * 

* * 

***********;****** 



IJHAA44 X 

*****G5 ********** 

* SUBTRACT * 

* 256 FROM * 
♦NUMBER OF BYTES* 
*T0 BE EXCHANGED* 

* * 
***************** 



* EXCHANGE * 

* TWO 256-BYTE * 

* AREAS * 

* * 
***************** 



IJHAA45 X 

♦****j5********** 

* ADD 255 TO * 

* NUMBER OF * 
....* BYTES TO BE * 

* EXCHANGED * 

* « 
***************** 
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Chart EL. ISAM ADD^ RETRVE, and AdDRTR: Sufcroutines (5 of 7) 



****A1 ********* 

* ISAM ADD * 

* EXCPf WAIT * 

* SUBROUTINE * 



IJHAIOOP 

:(c«:«c««BX :4c4'*«**4:**3t: 

♦IJHCEXCP EH* 



«*:ti4c*3ic«4c********* 



♦♦**A2********* 

* ISAM ADO * 
*EXCP, HOLD, WAIT* 

* SUBROUTINE * 
««4< ************ 



IJHAIOPH 

:(t4e:ec«>»:B2*** ******* 

*IJHCXCPH EG* 
#_#_#_*_♦_*_*_♦_* 

* EXCP AND * 

* HOLD * 

* * 



****A3*** ****** 

* ISAM ADO * 

* EOF * 

* SUBROUTINE * 



IJHACEOF 

:((*«« «B3 ********** 
*IJHACUPD EL* 

* ADD 1 TO LAST * 

* PD RCD NO. * 
*GET EOF RCD ID * 



4* ««A4********* 

* ISAM ADD * 

* UPDATE * 

* SUBROUTINE * 



IJHACUPD 

*«***B4*«****««** 

* GET HIGH * 

* RECORD NUMBER * 

* ON PRIME * 

* DATA TRACK * 

* * 



****A5********* 

* ISAM ADD * 

* UPDATE OVFL * 

* SUBROUTINE * 
#«4(«*********** 



IJHACUOV 

*4c**:(iB 5 ********** 

* GET HIGH * 

* RECORD NUMBER * 

* ON OVERFLOW * 

* TRACK * 

* * 



* * * * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

* * * * 



* EOF 

ID ON NEXT 
*. TRACK . 



X 
***** 

*EE * 
* D4* 



IJHACITX X 

*«:ec*«02*** ******* 
*IJHAA14 EL* 

* ADD ONE TO * 

* RECORD NUMBER * 

* * 

4c* 4c*** ****:****«*« 



IJHCERRT 
IJHACITF X 

*«***EI ********** 
♦IJHAPRMl EN* 

* MODIFY CCW * 

* CHAINS IF * 

* NECESSARY * 

*4: *************** 



**4c**E2********** 

* MOVE UPDATED * 

* COUNT FROM * 

* SEEK/SEARCH * 

* ADDRESS TO * 

* DTF TABLE * 
****** ********4c*« 



IJHACITI .*. 



FIRST 
TIME EOF 
. SENSED 



4(*4c**Gl********** 

* RECALCULATE * 

* NUMBER OF * 
♦RECORDS LEFT ON* 
*TRK USING LAST * 

* PD RCD ADDR * 
***************** 



***** 
*EA * 
* G4* 



IJUNBLK 

*****l=2*** ******* 
*IJHACPDL EK* 
*_*_*_*_*_*_*-*-* 

* WRITE OVER * 

* EOF RECORD * 

* * 

****************«: 



*****G2*** ******* 
♦IJHACEOF EL* 

*_ ♦_*_*_*_ J(8_ *_ *_* 

* WRITE NEW * 

* EOF RECORD * 

* * 

****** *********4c4e 



iJHAAl9 

IJHACACH X 

*****D3********** 
*ADJUST CYLINDER* 

* NO. IN * 

* SEEK/SEARCH * 

* ADDR TO SKIP * 

* VTOC * 
***************** 



IJHAA17 

*****E34********* 
*IJHAENT EK* 
*_*_*_*_*_*_*_♦_* 
*GET POINTER TO * 
♦FIRST DATA RCD * 
*0N CYL LESS ONE* 
44********4****** 



IJHAA16 

444 * *F 3 * ** ** *** ** 

* IJHACUPD EL* 
*_4_*_*_4_4_*_4_4 

* GENERATE EOF *.. 

* RECORD ID * 

* * 
44*************** 



****G3********* 

* ISAM ADD * 

* KEY PADDING * 

* SUBROUTINE * 
*************** 



IJriACDOF 

*****C4****«***** 
♦IJHCBLDl EK* 

*_*_*_4_4-*-*-*-* 

. .X*eUILD CCW CHAIN* 

* TO WRITE NEW * 

* EOF RCD * 
*44*4*****44*44** 



*** **D4*4******** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* IF REQUIRED * 
4******44******** 



*****E4********** 

*IJHCEXCP EH* 

*_4_*_4_*_*_*_*_* 

* EXCP, READ * 

* RECORD * 

* * 
4*4****444** ***** 



*****P4********** 

* IJHCMCAL Eh* 
*_*_4_*_4-*-*-*-* 

* GET LOG UNIT * 

* NO. USING M * 

* NUMBER * 
4*44****4******** 



*****Q4********** 

* IJHCERRT EE* 
4_4_4_4_4_4_4_4_4 

* TEST FOR * 

* ERRORS * 

* * 
*********44**44** 



IJHAA13 

4*4*4C5***4**«444 

* POINT TU * 

* NEXT FIELD * 

* IN RCD ID TO *. 

* BE UPDATED * 

* * 
**4*44444******** 



444*E5********* 

* ISAM ADD * 

* ADD RECORD * 

* SUBROUTINE * 
44************* 



* ADD ONE TO * 

* RECORD ID * 

* FIELD * 
4 4 
4****4*4«44*****« 



***4G5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
4*4****44****** 



X 
***** 
*EE * 
* H3* 



***«4J2^^******** 
♦IJHCMCAL EH* 

4_ 4_ 4_ 4_ 4_ 4_ 4_ 4-4 

* GET LOG UNIT * 

* NUMBER USING * 

* M NUMBER * 
4***************4 



JHAJ29 X 

444**H3********** 

* GET PTER TO * 
*FIRST POSITION * 

* AFTER KEY IN * 

* WORKL * 

* * 
******** ********* 


***? 

* * 

* * 

* * 

* * 

* 4 
***:( 


lc4H4*^ 

TR 

|e4***:( 

y 


< 

|c44*****:| 

* :| 

36 ♦ ^ 
DATA * i 
\CK * ^ 

* i 

!£**♦****:( 


X 

.*. 

J3 *. 

.* ♦. 

.♦ KEY ♦. YES . 

♦ . IN WORKL .♦ 

♦. PADDED .* 
*. ,* 


4***J4*:( 

* RETUF 

* CALL 

* ROUl 
44*4***:! 


|:**444** 

IN TO =< 
ING =1 

riNE =1 
^******* 



***** 
*EF * 
* Ai* 



****K3********* 

* EXIT TO ♦ 

* ADDRESS IN * 

* REG 8 * 
********* 4***** 



Charts 2^7 



Chart EM. 



ISAM ADD, RETRVEf and AEDRPR: Subroutines (6 of 7) 



* ISAM ADD * 

* INSERT RECORD * 

* SUBROUTIUJE * 



* * 

* GET POINTER * 

* TO START * 

* OF TABLE 3 * 

* * 



IJHAE29 X 

«****A3 ********** 

* POINT TO * 

* NEXT LOGICAL * 

* RECORD * 

* IN BLOCK * 

* * 



ACDBR ,*. 


IJHAF29 X 


Bl *. 


*****B2********** 


.* *. 


* GET POINTER * 


.* PRIME *. NO 


* TO LAST * 


*. DATA IN .*.•.. 


* PHYSICAL * 


*.CORE ADD .* 


* RECORD COUW * 


*. »* • 


* IF REQUIRED * 


*. .* X 


«:4e:tc «;«:«( «4i«:ic «:gc««4'«itc 



«#««:(t«««#4i*«««4i«:(c 



* B4 *,X 



IJhACLOP 

****;*B4********** 

* GET POINTERS * 

* TO lOAREAL * 

* AND WORKL * 

* KEYS * 

* * 



UHAD29 X 



««««##*«4: :«««««:«(«;«« 



* 01 *.x 



IJHACLOP 

****;«tni ********** 

*GET PTR TO KEY * 
*IN WORKL AND TO* 

* KEY OF LOG * 

* RECORD * 

* * 



IJHAG29 X 

**C2******* 

* TURN ON * 
*ENO OF TRACK * 

* INDICATOR 
*IN DTF TABLE * 

*IF REQUIRED* 

* 02 *.X. 



.X, 







* 


KEY *, 


EQ 


.* 


IN 


WORKL 


...* 




EQ 


KEY IN 




** 


, lOAREAL . 






*. 


.* 


X 






it. .* 


***** 






* LO 


*EB * 








* C2* 










* * 










* 











IJHAC29 X 

**«*#P1 ♦♦*«****** 

*IJHAASHF EK* 

* EXCG lOAREAL * 

* AND WORKL « 
« LOGICAL RCDS * 
♦«************♦♦* 



*#***Q1 ♦**♦♦***** 
*IJHAJ29 EL* 

* DETERMINE IF * 

* KEY IN WORKL * 

* IS PADDED * 



**** 

IJHAPRET X 

****«02*** ******* 
*IJHCINIT EG* 

* RESTORE * 

* REGISTERS * 

* :«c 
***************** 



***«E2*** ****** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 

*4(::«c** *:((**«***** 



*****C3*«******** 

* SUBTRACT LENGTH* 
*0F LOGICAL RCD * 

* TO POINT TO * 

* LAST LOGICAL * 

* RCD * 

3)e*«« *« *:je*« ***4c]ic*# 



*♦** *03 * jH* ***j{s* sjt * 

* SUBTRACT * 

* ONE FROM * 

* NUMBER OF * 

* RECORDS READ * 

* * 
********♦*♦***»«* 



.* NO. *. 
* OF RCDS 
TO BE READ 

*. EQ 



***** 
*EB * 
* D2* 



C4 
.* KEY 
* IN WORKL 

EQ KEY IN 
*. lOAREAL 
*. •* 
*. .* 
* LO 



*. 



IJHACBMP 

*****C5********** 

* GET PTR * 

* TO NEXT * 
,..X* LOGICAL RCD * 
X * IN BLOCK * 



«3jc«**«3tc***«****** 



««:)j«*4c04********** 

*iaHAASHF EK* 

* EXCHANGE * 

* WORKL AND * 

* lOAREAL * 
***************** 



*♦«* 

* * 

* B4* 

* * 
**** 



1JHAA28 .*. 








E4 *. 








* *, 






.* 


KEY IN 


* 


. NO 


*. 


WORKL 




.*. . 


*. 


PADDED , 
*, .* 
*, ,* 
* YES 


* 





IJHAH29 X 

*****P3 ********** 
♦UPDATE POINTER * 

* TO LOG RCD * 

* BY 8+KEY LNG * 

* + LOG RCD LNG * 

* * 
***************** 



**** *g3 ******** ** 
♦UPDATE POINTER * 
*T0 PHYSICAL RCD* 

* KEY BY KEY * 

* LNG+BLQCK * 

* SIZE+8 * 
***************** 



***♦ 

* * 

* CI * 

* * 
**** 



*****jl ********** 

* SUBTRACT * 

* ONE FROM * 

* BLOCKING * 

* FACTOR * 

* * 
***************** 



IJHAB29 

*****(<2«********* 

* PAD KEY * 

* OF NEXT * 
. .,X*LOGICAL RECORD * 

* WITH X'FF» * 



***************** 



IJHACPAD 

*****P4********** 

* SUBTRACT * 

* ONE FROM * 

* BLOCKING * 

* FACTOR * 

* ♦ 
***************** 



**G4******* 

* * 

* TURN ON 
* RFQUIRED 

* INDICATORS 

* * 
*********** 



*****H4********** 

* GET POINTER * 

* TO KEY OF * 

* NEXT LOGICAL * 

* RECORD* PAD * 
*KEY WITH X»FF' * 
***************** 



IJHAA29 

*****j4********** 

*IJHCBLD1 EK* 
*_*_*_*_*_*_*_*_* 

* BUILD CCW * 

* CHAIN TO * 

* REWRITE RCD * 
***************** 



*****K4**«******* 
*iaHAI0OP EL* 
*_*_*_*_*_*_*_*_* 

* EXCP, WAJT *. 

* AND TEST * 

* FOR ERRORS * 
***************** 



*****g5 ********** 

♦IJHCBLDl £K* 

*_*_*_*_*_*_*_*_* 

* BUILD CCW * 

* CHAIN TO R£- * 

* WRITE RECORD * 
***************** 



* EXCPf WAIT * 

* AND TEST * 

* FOR ERRORS ♦ 
*************** ** 



****G5*****#*** 

* RETURN TO * 

* CALLING * 

* RTN+4 * 
*************** 



.X* 



*****j5********** 

♦IJHACUPP EJ* 
*_*_*_*_*_*_*_♦_* 
UPDATE ♦ 
PRIME DATA * 
* RECORD COUNT * 
***************** 



****K5***«***** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



**** 

* * 

* D2 * 

* * 
**** 
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Chart EN. ISAM ADD, RETRVE, and AdDRPK: Subroutines (7 of 7) 



* ISAM ADD * 

* TEST SEEK * 

* SUBROUTINE * 

:l^:f ************* 
.NO 



# « 4s 4> B 1 '("i< ^* "<< I' * =<( * 

* ISAM ADD * 
♦MOD. CCW CHAIN * 

* SUBROUTINE * 



.♦RECORDS*. 

.*LEFT ON TRK*. 

*. GTE MAX- IM . 

*. STORAGE .* 



***** 

*EH * 
* B4* 



sMcste^c^DI********** 

* SET NUMBER OF * 

* RECORDS TO BE * 

* READ EQUAL TO * 
♦NUMBER OF RODS ♦ 

* LEFT ON TRACK * 



»:(cE !♦♦♦♦♦♦♦ 

* TURN OFF ♦ 

* COWHAND ♦ 
CHAINING FLAG 

♦ BIT IM READ ♦ 

♦ CCW CHAIN ♦ 



IJHAPRM2 

iic4t« «»C £♦*♦♦♦ *♦ *♦♦ 

* SET NUMBER OF * 

* RECORDS TO BE * 
...X* READ EQUAL TO ♦ 

♦MAXIMUM NUMBER ♦ 

* IN STORAGE ♦ 

:tt;{c « «#[« ** *♦*♦***♦* 



afe^JCc't'D £♦♦♦♦♦♦♦♦♦ 

♦ RETURN TO * 

♦ CALLING ♦ 

♦ ROUTINE ♦ 



♦ ♦♦♦(^^♦♦♦♦♦♦♦♦* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 

if:if::tfi1i:ili:tf********* 



****F2*** ****** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 



* * 
MODIFY 

WRITE 
CCW CHAIN 

* * 



* :ge # «H ]^ *:je «:*3ii« 4c 4( 4c 

♦ RETURN TO * 

♦ CALLING * 

♦ ROUT INE * 

« «4C 4C« «*« 4c4c#«4c*3iC 



IJHRECAL 

#=t:***03********** 

* BUILD CCWS * 

* TO SEARCH ID ♦ 

* EQUAL AND TO ♦ 

* TRANSFER IN * 

* CHANNEL * 

«4e4c * «* «« ** ** *** ** 



«4c*««E3********** 

* * 

* BUILD * 

* LONG SEEK * 

* CCW * 

* * 



***F3*^****^+^**+ 



4c *«4c « «« *« «>)' «* «« # * 



««*:««G3 ♦*♦♦♦*♦♦♦* 

* * * * 

* * SVC 7 * * 

* * WAIT * * 

* *IF REQUIRED* * 

* * * * 

:ii;^:tfi)^************* 



****H3********* 

* RETURN TO * 

* CALLING ♦ 

* ROUTINE * 

Hf^Hcntf*********** 
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Chart FA. $$BINDEX: Read Cylinder Index into Storage (1 of 2) 



****A1********* 

* * 

* $$BINDEX * 

* * 
*************** 



♦****B1 ********** 

* CALCULATE * 

* NUMBER OF * 

* CORE INDEX * 

* ENTRIES * 

* * 



*****C1 ********** 

* * SVC 26 * * 

* DO PROTECTION * 

* *CK ON INDEX* * 

* IN CORE SECT* * 

* *0F DTP TBL * * 
***************** 



*****A3* ********* 
*ERRTEST FB* 

*_*_*_ *_ *_ *_ *_* _* 

* TEST FOR * 

* ERRORS * 

* * 
***************** 



B3 *. 

.* MATCH *. 

.FOUND ON 1ST*. 

. ENTRY TO BE . 

*.READ FOR .* 

*. GROUP.* 



DUMMY 

ENTRY 

CHAINED 



* YES 



* C3 *.X. 

* * 
**** 

NOSKIP X 

*****C3*** ******* 

* SUBTRACT * 

* 2 FROM NUMBER * 

* OF CORE * 

* INDEX ENTRIES * 

* * 
***************** 



**** 
*F8 ' 
* El 



*.X 



****D 2*** ****** 

* SVC II * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



.*. FIRST 

El *. ♦****E2********** 

.* *. * SET KEY * 

.* FIRST *. YES * OF 1ST CORE * 

*.TIME THROUGH .* X*ENTRY POSITION * 

♦.TRANSIENT.* * TO ZERO * 

*. .* * * 

*, ,* ***************** 



**** 

GETMORE 

*****03********«* 

* INITIALIZE TO * 

* READ CYLINDER * 

* INDEX ENTRIES * 

* INTO MAIN * 

* STORAGE * 
***************** 



* E2 



*****P1********** 

* MOVE KEY OF * 
*HIGHEST ENTRY-1* 

* TO FIRST CORE * 

* INDEX ENTRY * 

* POSITION * 
***************** 



*****P2********** 

* GET CYLINDER * 

* INDEX START * 

* ADDRESS AND * 

* SET R=l * 

* * 
***************** 



NDSKIP .*. 






Gl *. 






.* *. 






.* INDEX * 


NO 




*. SKIP OPTION! 


*. . 




*. SPECIFIED.* 






*. .* 






*. .* 




X 


* YES 




**** 



*_*_*_*_*_*_*_*_* 
*BUILD CCW CHAIN* 
*T0 SKIP NEC CYL* 
* INDEX ENTRIES * 
***************** 



*****jl ********** 

* GET POINTER * 
*AND KEY LENGTH * 

* AND BUILD * 

* ALL REQUIRED * 

* CCW STRINGS * 
***************** 

**** 



**** 
EXWT X 

*****K1********** 
*EXCPWAIT FB* 
*_*_*_*_*_*_*_*_* 



***************** 



**** 
LOOP X 

*****E3 ********** 

* GET HIGH * 

* RECORD ON * 

* CYLINDER * 

* INDEX * 

* TRACK * 
***************** 



DUMSTRK 

*****p 3 ********** 

* GET * 

* RECORD NUMBER * 

* OF DUMMY * 

* INDEX ENTRY * 

* IF REQUIRED * 
***************** 



COMPARE 

*****G3*** ******* 

* CALCULATE * 
*N0. OF RECORDS * 

* TO BE * 

* READ * 

* * 
***************** 



BUILDl 

*****H3**« ******* 

* SET NO. OF * 

* RCDS TO BE * 

* READ TO * 

* MAXIMUM VALUE * 

* IF REQUIRED * 
***************** 



BUILD2 X 

*****J3********** 

*BUILDER FB* 
*_*_*_*_*_*_*_*_* 

* BUILD CCW * 

* CHAIN TO CI * 

* READ * 
***************** 



BUMP X 

*****K3 ********** 

* UPDATE PTRS * 

* AND RECORD * 

* NO. TO BE *. 

* READ UNTIL * 

* ZERO * 
***************** 



.*. 
C4 *. 
.* MATCH *. 
* FOUND ON *. YES 

1ST RCD OF .*.... 
*. CYLINDER .* 



CHAINED 

*****B5********** 

* MOVE CHAIN * 
♦ADDRESS TO NEXT* 

..,X*CYLINDER INDEX *. . . . 

* ENTRY TO * 

* BE READ * 
***************** X 

**«* 

* * 

* Kl* 



NONFIRST 

*****Q5*******«** 

* GET ID OF * 

* RECORD * 
...X* PRECEDING * 

* DUMMY CHAINED * 

* ENTRY * 
***************** 



SETMAX X 

*****D4********** 

* SET RCD NO * 

* EQ TO HIGH * 

* RCD NO. FOR * 

* CYLINDER * 

* INDEX TRACK * 
***************** 



MOVEID 

*****£4********** 

* MOVE UPDATED * 

* RCD ID TO DTF * 
*TBL AS ADDR OF * 
♦NEXT CYL INDEX * 
*ENT. TO BE READ* 
***************** 



DECREMNT 

*****P4********** 

* SUBTRACT 1 * 

* FROM * 
....* NUMBER * 

* OF ENTRIES * 



***************** 



SKIP 

*****H4********** 

* SET UP CCW * 

* DATA ADDRESS, * 
..X*OP-CODEt FLAGS,* 

* AND COUNT * 

* * 
***************** 



MTON 

*** ** j4********** 
*EXCPWAIT FB* 
*_*-*_*_*_*_*-*-* 

* EXCP AND *. 

* WAIT * 

* * 
***************** 



*****I-I5******«*** 
♦INCREASE START * 

* OF CYLINDER * 
.X* INDEX CORE BY * 

* NUMBER OF * 

* RECORDS READ * 
***************** 



*****J5********** 

* SET RECORD * 

* NO. TO 1 * 

* AND ADD ONE * 

* TO TRACK NO. * 

* * 
***************** 



***** 
*FB * 
* Al* 



250 DCS/VS LIOCS Voluire 3 EAM and ISAM 



Chart FB. $$BINDEX: Read Cylinder Index into Storage (2 of 2) 



***** 

♦ FA * 

* J5« 



TEST X 

«****Ai ********** 
♦ERRTEST FB* 
♦_♦_*_*_♦-*_*_*_* 



«« *♦*♦*♦****»** * * 



*****B1 ********** 

* CALCULATE * 

* POINTER TO DATA* 

* AREA OF * 

* LAST ENTRY * 

* READ * 
«« 4s* ************* 



INACTIVE 

OR DUMMY 

.END ENTRY. 



DUMMY *. YES 
CHAINED ...... 

ENTRY .* 



.*N0. OF *. 
AVAILABLE ■■ 
CYL INDEX 

. ENTRIES ,■■ 
*.EQ .* 



****C2********* 

* SVC LI * 
.X* TO PROBLEM * 

* PROGRAM * 

«c:i: :(c#4=**** ****** 



«****02********** 

* MOVE CHAIN * 
♦ADDRESS TO NEXT* 

.X+CYLINOER INDEX ♦ 

* ENTRY TO * 

* BE READ ♦ 

**#***]«(« **«*:«c**4s* 



**«:«(* 

*FA ♦ 
* 03^ 



««}JE«« p 1 3tE*«#«*#4c4c* 

« INCREASE ♦ 

* START OF ♦ 

* INDEX CORE ♦ 

* BY ONE ♦ 

* ENTRY ♦ 

«****4: :((********** 



* SET KEY ♦ 

* OF HIGHEST * 

* ENTRY TO F'S ♦ 

* * 

**:«: 4: ************* 



****H1 ********* 
» SVC 11 ♦ 

♦ TO PROBLEM ♦ 

♦ PROGRAM ♦ 

4c«***4e********* 



*****£ 2********** 

♦ * 

♦ INCREASE ♦ 

♦ NUMBER OF * 

♦ ENTRIES BY 1 ♦ 

♦ * 
«4c«*** *********** 



****« 
*FA ♦ 
* E3 + 



**4'«B3*** ****** 

♦ $$BINDEX ♦ 

♦ BUILD CHAIN ♦ 

♦ SUBROUTINE * 
4i*«****** ****** 



BUILDER 

«****C3 *****♦*♦*♦ 

♦ GET ADDR OF ♦ 
♦CYLINDER INDEX * 

♦ ENTRY IN ♦ 

♦ DSKXTN TABLE ♦ 

♦ ♦ 
***************** 



*****Q3********** 

* MOVE ♦ 
♦LOGICAL UNIT TO* 

* CCB AND »6B« ♦ 

* TO SEEK ADDR ♦ 

* * 
***************** 



*****E3*** ******* 



***************** 



****P3*** ****** 

* RETURN TO ♦ 

* PROBLEM * 

* PROGRAM * 
*************** 



****B4********* 

* $$BINOEX * 

* INPUT/OUTPUT ♦ 

* SUBROUTINE * 
*************** 



***************** 



*****D4********** 

* * * * 

* * SVC 7 * ♦ 

* * WAIT * ♦ 

* ♦IF REQUIRED^ ♦ 

* * * * 
***************** 



****E4********* 

* RETURN TO ♦ 

* PROBLEM ♦ 

* PROGRAM ♦ 
*************** 



****P4********* 

* $$BINDEX ♦ 

* ERROR TEST ♦ 

* SUBROUTINE ♦ 
*************** 



.♦ READ *. 
«< ERROR OR 

NO RECORD 
*=. FOUND . 



.* EOF *. 

INDICATOR ♦. 

ON OR WLR . 
. ERROR .* 



OUT 

**G5******* 
♦ TURN OFF * 
♦ INDEX-IN- 
...X^ CORE BIT IN 
X ♦ DTF TABLE 



*********** 



****H5 ********* 

♦ SVC 11 * 

♦ TO PROBLEM ♦ 

♦ PROGRAM * 
*************** 



****J4********* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 
*************** 
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Chart FC. ISAM RETRVE, RANDCM: READ Macro^ KE^ 



****A1 ********* 

* ENTERED FRO^! * 

* READ «ACRO * 

* EXPANSION * 
*************** 



*A2 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



', F CODE 


I TYPE OF INDEX ENTRY 


. ROUTINE 


LOCATION I 


, D03000NN 


. NORMAL 


. IJHRCERC 


FC 


. D31D0ONN 


. DUMMY EN TRY- END 


. IJHRERRR , 


FF 


, OOIOIONN 


* DUMMY ENTRY-CHAINED 


, IJHRCERC 


FC 


. OOllOONN 


. INACTIVE ENTRY 


. IJHRERRR 


'ff *: 



,* 


HOLD 


* 


. NO 


*, 


= YES 




.*. . 


*, 


*A2 


.* 




* 


.* 
*, .* 
* YES 






**** 








*F0 * 










* G3 


*.X 








* * 










**** 












X 






♦****C I********** 


* * 




* 


♦ 


* * 


SVC 36 




* 


* *FREE INDEX 


* 


* 


* * 


IR/ 


\CK 


* 


* 



:»!**************** 



**D1 ******* 

SET INDEX 

TRACK HELD 

TO ZERO 

* * 

**********^ 



**** 

*FD * 

* G3 *.X 



RDONLY 

= YES 

*A2 



* YES 
**** 

* * . 

* Fl *.X. 

* * . 
**** 

X 
*****f:i********** 

* * 
♦SAVE POINTER TO* 

* SAVE AREA * 

* IN REGISTER * 

* * 
*************«(*** 



IJHRSRCH X 

*****02********** 
*IJHCERCA EG* 

*-*_*_*_*-.*_*_*-* 

* MOVE INDEX * 

* START ADDR * 
♦SEARCH ADDRESS * 
******** ** ** ***** 



*****£ 2********** 

* * 

* INITIALIZE * 

* POINTER TO * 

* KEYARG * 

* * 
***************** 



♦****G1 ********** 
*IJHCINIT EG* 
*_*_*-.*_*_*_*_*_* 

* INITLZE PTR * 

* TO PARTS OF * 

* DTF TABLE * 
***************** 



**Hi******* 

* TURN OFF * 
OVERFLOW 

KEY BITS IN 
DTF TABLE 

* * 
*********** 



**J1 ******* 

* TURN ON * 
READ KEY 

BIT IN DTF 
TABLE 

* * 
*********** 



*****Kl ********** 
*IJHCBLD2 FJ* 

*-*-.*_*_*_*_*_*_* 

* BUILD CCW * 
♦CHAIN TO SEARCH* 

* MI OR CI * 
***************** 



****Q3*** ****** 

* ISAM RETRVE * 

* SEEK CHECK * 

* SUBROUTINE * 
*************** 



* D3 *.X 



♦*** 
IJHRCERC 

**D3******* 

* TURN ON * 

* SEEK CHECK 
* SWITCH AT 

* IJHCNTSW 

* * 
*********** 



*****Q4********** 

* MOVE NEXT * 

* INDEX ADDRESS * 
*T0 SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



.♦ NEXT * 
SEARCH 
ON TRACK 
.. INDEX 



IJHRSALT X 

**C; 5 ******* 

* TURN ON * 

* SEEK CHECK 
* SWITCH AT 

* JJHCNTSW 

* * 
*********** 



ERREXT 

=YES 
*A2 



**** 

* * 

* C5 * 

* * 
**** 



IJHREXSL 

*»***E4********** 

* GET F CODE * 

FROM SEARCH 



ERREXT 

=YES 

*A2 



*****g2*** ******* 



***************** 



*****H2#********* 

* SAVE RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ MASTER * 

* INDEX * 
***************** 



MASTER 

IT^OEX 

PRESENT 



*****{<2*** ******* 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ CYLINDER * 

* INDEX * 
***************** 



* SEARCH MASTER * 






* ADDRESS. * 


» OR CYLINDER * 






* SEE FIGURE ♦ 


* INDEX * 






* * 


***************** 






***************** 










F3 *. 






*****P4********** 


.* *. 






* GET ADDRESS * 


.* SEEK *. NO 




* OF ROUTINE * 


*. CHECK .*.., 




* PROCESS ENTRY * 


♦.REQUIRED .* 






* TYPE. SEE * 


*. ,* 






* TABLE *A4 * 


*. .* 




X 


***************** 


* YES 


**** 






* 


* 






* 


C4 * 






* 


* 


X 




**** 


***** 








*♦ * 



*****£ 5********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR * 

* TO READ * 

* TRACK INDEX * 
***************** 



*** **e3 * ******* ** 

* * 

* GET lOAREAR * 
♦COUNT FIELD FOR* 

* SEEK CHECK * 

* * 
***************** 



*****H3********»* 

*IJHSKERR EN* 
*_*_*_ *_*_*^*_*_* 

* TEST FOR * 

* OVER/UNDER * 

* SEEK * 
***************** 



.*. 

F5 *. 

.* TRACK *. 

.* INDEX REQ * 

*. WHOLE TRACK 

*. OR MORE .* 



*****G5********** 
♦IJHC6LD2 FJ* 
*_*_*_*_*_♦-*_*_* 

♦BUILD CCW CHAIN* 

* TO SEARCH * 

♦ TRACK INDEX * 
******** ********* 



J3 *. 






.♦ *, 






.* ^ *. YES 




*. SEEK ERROR .* 






*. .* 






*. .* 


, 




*. .* 


X 




* NO 


»** 


e 




♦ 


* 




* Fl 


* 




* 


* 




**»* 


X 






♦♦K3******* 






* TURN OFF * 






* SEEK CHECK * 






* SWITCH AT * 






♦ IJHCNTSW * 







TRACK 

HOLD 

=Y£S 

*A2 



* NO ***** 

*FH * 

.IJHRESCH* F4* 

X * * 

***** * 

*fH * 

* G3* 



*********** 

X 
**** 

* * 

* C4 * 

* * 
**** 
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Chart FD. IShM RETRVE, R?^NDOM: WAITF Macro CI cf 4) 



* ISAM RETRVE * 

* WAITF MACRO * 

* * 



*FG * 

* F5 '■ 



*A2 
ISMOD MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* * 

* A3 * 

* * 



* * 

* B3 * 



ERREXT 

= YES 

*A2 



RDONLY 

= YES 
*A2 



* * 

* B4 * 

* * 



* SAVE USER * 

* REGISTERS * 

* 2-14 * 

* » 



IJHCWATF 

* STORE USER * 

* REGISTERS * 
...X* 2-14 IN * 

* SAVE AREA * 



* SAVE *■ 
♦POINTER TO SAVE* 

* AREA IN * 

* REGISTER * 

* * 



* * 
SET FROM 
WAITF RTN 

SWITCH 

* ♦ 



MEEB 
SEEK 
CHECK 



***** 
*FG * 
« 64* 



IJHSER2 

IJHCwATF X 



***:ii********^**** 



♦****C4********** 

* ESTABLISH * 

* REGISTER 14 ♦ 
*AS SECOND BASE * 

* REGISTER * 

* * 

^*ii:*^f**:lf^s***,lf**** 



:****:*!^littiii******:^* 

* ESTABLISH * 

* REGISTER * 

* 14 AS SECOND ♦ 

* BASE REG * 

* * 



*FH * 

* H3 *.X, 



IJHCWATB X 

:i^***^fl*i^Hl*:***i|^:|^3is 

*IJHCINIT EG* 

*INITLZE POINT- * 

* ERS TO PARTS * 

* OF DTF TABLE * 
Hi**************** 



*^f2******* 

* RESET * 
SEEK 

CHECK SW TO 
ZERO 

* * 



* * 

* GET * 

* COUNT * 

* AREA * 

* * 
***************** 



*****£^********** 

♦IJKSKERR EN* 

* TEST FOR * 
« OVER/ UNDER * 

* SEEK * 

*************3t!*** 



• * *. 

♦ SEEK * 

GOOD 



IJHCMATB .*. 



***** 
*FE * 
* Bl* 



Gl *. 




#!(^2******* 


,* ♦, 




* RESET ^ 


.* CONDITION *. NO 


* WAITF 


*- NORMAL .* 




* SEEK CHECK 


#, .* 




* SWITCH TO 


*, .* 




* ZERO 


*. ,* 


X 


**********!>„ 


* YES 


***** 




**** 


*FG * 




» * , 


* B4* 




* HI *.X. 


* * 




* * . 


* 




*#** 


IJHSER2 


X 


X 




.*. 


*****^l********** 




H2 ♦• 


♦IJHCINIT EG* 




.* *. 


*_*_*_#_:(£_*_♦_*_*■ 




. ♦ HOLD 


*INITLZE POINT- * 




*. =YES 


* ERS TO PARTS * 




*. *A2 


* OF DTF TABLE * 




*. .* 


««««««#«:Jt«4c:«c«4c4c«« 




*. .* 



HOLD *, 


NO 


=YES 


*.... 


*A2 .* 




*, ,* 




*. ,* 


X 


* YES 


***** 




*f£ * 




* El* 


X 


* * 


*n)cm** 


* 


*FC * 


IJHRREAO 


* CI* 




* * 




♦ 




lJHRREAD-6 





*IJHCWAIT EE* 

* WAIT AND TEST * 

* FOR ERRORS ♦ 

* * 



♦♦***jr2********** 



***********:****** 



RDONLY 

=YES 

*A2 



IJHECONT X 

*****64********** 

* SAVE USER * 

* REGISTERS * 

* 2-13 IN * 

* SAVE AREA * 

* * 
*iiiiiif*****4i******** 



:«e:4e:«e :tc«H4***** *** ** 

*SAVE POINTER TO* 

* SAVE ARfcA IN * 

* REGISTER * 

* * 

^:lf****:ii*:(f:1f******:t^ 



**** 

* * 

* HI * 

* * 
**** 



****:^**:^**:i[**:(f^:if:ilL:ff 



***** 

*FE * 

* A3* 



HOLD 

= YES 

*A2 



***** 
*EF * 

* A1*IJHSER2H 
* * 
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***** 

*FD * 

* J2* 

* * 



***** 

*FD * 

* E4* 

* * 



*B2 
ISMOD MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN ASSEMBLER 
LISTING. 



NO 


* 


RDONLY 


*, 


. . .*. 




= YES 




• 


* 


*B2 
*. .* 


.* 


X 




*. .* 




**** 




* YES 




* * 








* F2 * 




, 




* * 








***« 




X 

.*. 
CI *. 

* * 






* 


HOLD 


* , 


* 




= YES 


, 




* 


*B2 


,* 



ERREXT 

OTF 



*. NO 
.*.«.. 



X 

.*. 



NO .* ERREXT 
...*. OTF 



***** 

*EF * 

* Al* 

* * 



***** 
*FG * 

* B4* 



* MOVE TRACK * 

* INDEX POINTER * 
♦TO SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



*****B3 #******♦** 

* * 

* GET POINTER * 

* TO * 

* KEYARG * 

* * 
***************** 



*****C3 ********** 

* GET RELATIVE * 

* KEY LOCATION * 
*AND KEY LENGTH * 

* DECREASE EACH * 

* BY ONE * 
***************** 



*5S«E1 ******* 

* * 
SET WAITF 
SWITCH TO 

X'80« 

* * 
*********** 



***** 

*EF * 

* Jl* 

* * 



**** 

* * 

* F2 * 

* * 
**** 



HOLD 

=YES 

*B2 



IJHREXSL 

*****D 3 ********** 

* GET INDEX * 

* ENTRY TABLE * 

* IF CODE) FROM * 
*SEARCH ADDRESS * 

* * 
***************** 



*****E3 ********** 
*GET ADDRESS OF * 

* ROUTINE TO * 

* PROCESS ENTRY * 

* TYPE. SEE * 

* TABLE AT *Jl * 
***************** 



****Q1 ********* 

* ISAM RETRVE * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
*************** 



IJHCXWTH X 

*****H1 ********** 
*IJHCXCPH FH* 

*_*_*_*_*_*_*_*_* 

* GO TO * 

* EXCP/HOLD * 

* ROUTINE * 
***************** 



***** 
*EE * 
* C4* 



**** 

* * 

* G2 * 

* * 
**** 

X 
*****G2*** ******* 

* * * * 



***************** 



**H2******* 

RESET DATA 

TRK HELD SW 

TO ZERO 

* * 

*********** 



.X.. 
X 
**** 

* * 

* A4 * 

* * 
**** 



*_*_*_*_*_*_*_*_* 

* EXCP, READ * 

* RECORD, AND * 

* WAIT * 
***************** 





F CODE 


', TYPE OF INDEX ENTRY 


! ROUTINE 


. CHART . 
.LOCATION . 




00000000 


. NORMAL ENTRY-UNSHARED 


. IJHRNORM 






OOOOIOOO 


. NORMAL EMTRY-SHAREO 


. IJHRSHRD 






00010000 


. OVERFLOW ENTRY-END 


. IJHROVFO 






00011000 


. OVERFLOW ENTRY-CHAINED 


. IJHROVFO 






00100000 


. DUMMY ENTRY-END 


. IJHRERRR 


........... 




00110000 


. INACTIVE ENTRY 


. IJHRERRR 


FF 



IJHRNORM X 

*****A4********** 
*IJHCBLD2 FJ* 

*_*_*_*_♦_*_*_*_* 

*BUILD CCW CHAIN* 
*T0 FIND RECORD * 
*<UNSHARED TRK) * 
***************** 



**B4******* 

* * 

*TURN ON SEEK * 

*CHECK SWITCH AT* 

* IJHCNTSW * 



*********** 



BLOCKED 
RECORDS 

*. ,*' 
*, ,* 
* YES 



**D4******* 

* MODIFY * 

♦SECOND SEARCH* 

* CCW COMMAND * 

♦CODE TU SRCH * 

♦EQUAL/HIGH * 

*********** 



**** 
*FF * 

* E5 



*♦** X 
IJHRSLTT .*. 

E4 *. 
.* *. 
NO .* ERREXT 
.*. =YES 
*. *B2 
*. ,* 
*, ,* 
* YES 



*****F4********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ DATA * 

* * 
***************** 



*****G4********** 



***************** 



HOLD 

= YES 

*B2 



**J4******* 

* SET * 
DATA 

TRACK HELD 
SW ON 

* * 
*********** 



*****K4********** 
*IJHCXWTH FE* 
*_*_*_*_*_*_ *_ *«* 

* EXCP, WAIT * 

* AND TEST FOR * 

* ERRORS * 
***************** 



*****A5********** 

* * 

* GET * 

* lOAREAR * 

* ADDRESS * 

* * 
***************** 



X 




• *. 




B5 *. 




«* *. 




.♦ SEEK *. NO 


♦. CHECK 


•*.... 


*.REQUIRtD .-' 


*, ,* 




*. .* 


X 


* YES 


***** 




*FF * 




* CI* 




* * 




* 


. 


JHSKBKT 


X 




♦****C 5********** 


* GET lOARfcAR 


* 


* COUNT FIELD 


* 


* FOR SEEK 


* 


* CHECK 


* 



***************** 



*****Q 5 ********** 

♦IJHSKERR EN* 

*_*_*-.*_*-*_*-*_* 

* TEST FOR * 

* OVER/UNDER * 

* SEEK * 
***************** 



X 

.*. 

E5 *. 

* * 

SEEK 

ERROK 



***** 
*FF * 

* Bl* 



.* HOLD 

= YES 

*. *62 



**** 

* * 

* G2 * 

* * 
**** 



**** 

* * 

* A4* 

* * 
**** 
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Chart FF. ISAM RETRVE, RANDOM: WAITF Macro C3 of 4) 



***** 

*FE * 
* E5* 



**B1******* 

* TURN OFF * 

* SEEK CHECK 
* SWITCH AT 

* IJHCNTSW 

* * 

**4c******** 



**** 

*FE * 

* B5 *.X 



**** 
IJHSKBKT 

*****Cl ********** 

* MOVE RECORD * 

* ID (CCHHR * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
******#***«****** 



****A3********* 

* ISAM RETRVE * 

* OVERFLOW * 

* SUBROUTINE * 
*************** 



IJHROVFO X 

*****B3********** 
*IJH€BLD2 FJ* 
♦_*^ ♦_♦_*_*_*_*_« 

*BUILD CCW CHAIN* 
* TO SEARCH * 
♦OVERFLOW CHAIN * 
*4t** ************* 



**C3******* 

* SET FLAG * 
♦FIELD IN READ* 

*CCW TO SUPPRESS* 
* INCORRECT * 

* LENGTH * 
*********** 

**** 



* 03 *.X 



****«B4****:(c***** 



***************** 



***** 

*FG * 

* Bl* 

* * 



****A5********* 

* ISAM RETRVE * 

* SHARED TRACK * 

* SUBROUTINE * 

***********:»*** 



IJHRSHRD 

*****b5********** 

* DECREASE * 

* RECORD NUMBER * 

* IN SEARCH * 

* ADDRESS BY * 

* * 



***j|>«C5t*****X>**** 

♦IJHCBLD2 FJ* 

♦BUILD CCW CHAIN* 
*T0 SHARED TRACK* 
* * 

****«*:»(********** 



*:* ^^ea^Bi *:.™.. 










*, ,» 








*. ,* 








*, ,* 


X 






* YES 


***** 
*FG * 

* HI* 

* * 

* 






r IJHREGOT 






*****E1********** 








* GET POINTER * 








♦ TO KEY IN * 








* FIRST LOGICAL * 








* RECORD * 








* * 






***** 


***************** 






*FH * 
* Gl* 


*♦** * 






* * 


* * . 








* Fl *.X. 






X. 


* * , 








**♦* X 








IJHRSLPP .*. 


IJHRERRR 


X 


Fl *. 




**F2******* 


,* *, 




♦TURN ON NO ♦ 


.♦KEYARG LESS*. YES 


♦RECORD FOUND * 


*. Than key inj .♦ 




X* BIT 


r IN OTF 1 


♦. RECORD .* 


....... 


TABLE ♦ 



*********** 



**** 
JHRSQTT 

*****D3 ********** 

* SET M NUMBER * 

* OF ADDRESS * 

* IN WORK AREA * 

* TO X'FF* * 

* * 
***************** 



ERREXT 

=YES 

*K1 

*, ,* 

*« .* 

* YES 



*****P3********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ DATA * 

* * 
***************** 



*4c***Q3**4c ******* 



.* KEYARG * 


. YES 


.* HOLD *. YES 


* SAVE ADDRESS 


*. EQUAL KEY IN 


.* 




*. =YES .*.... 


* OF lOAREAR 


*. RECORD .* 






*. *K1 .* 


* 


*. .* 






*. .* 


* 


*. .* 




X 


♦. .* X 


************** 


* NO 




***** 
*FG * 


* NO ***** 
*EF ♦ 








* HI* 


* Al* 








* * 


X * * 








* 


***** # 






IJHREGOT 


*FG * IJHSER2H 


X 


X 






* 84* 


• *• 


;(c#4'**HI********** 




* * 


H3 *. 


* GET POINTER 


* 




* 


.* *, 


♦ TO KEY IN 


♦ 




IJHSER2 


.* HOLD 


* NEXT LOGICAL 


* 






*. =YES 


* RECORD 


* 






*. *KI 



HOLD 

=YES 

*K1 



*>tc4:**F4********** 



***************** 



**E5******« 
* MODIFY * 

* SECOND SRCH * 
*CCW CMD CODE TO* 

* SEARCH KEY * 
*EQUAL/HIbH * 

*********** 



***** 
*FE * 
* E4* 



*****G4********** 

* MOVE * 

* MBBCCHHR FROM * 

* SEQUENCE LINK * 
*FIELD TO SEARCH* 

* ADDRESS * 
***************** 



***************** 

X 
**** 

* * 

* Fl * 

* * 
**** 



*K1 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



**J3******* 

* * 
SET DATA 

TRACK HELD 
SWITCH ON 

* * 

******:<<**** 



*«***K,3********** 
*IJHCXWTH FE* 

* EXCP, WAIT * 

* AWD TEST FOR * 

* ERRORS * 
***************** 



*****j4********** 
*IJHCEXWT EE* 

*_*_*_*_*_*_*_*_* 

* EXCP, READ * 

* RECORD AND * 

* WAIT * 

*«:jc************** 
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***** 

*FF * 
* C4* 



IJHRFND X 

**Ql******4e 

* TURN ON * 
♦OVERFLOW BIT 

* IN RETRIEVAL 
* BYTE IN DTP 

* TABLE * 
*********** 



*SET BIT IN * 

*DTF TABLE TO * 

♦INDICATE RECORD^ 

♦ RTRVED FRO^ ♦ 

♦ OVRFLW AREA^ 

*********** 



*****ox********** 

♦ ADD ONE TO * 

♦ NON-FIRST ♦ 
♦OVERFLOW RECORD* 

♦ COUNT * 

♦ * 
***************** 



*****E1***+^^**** 

♦ INITIALIZE ♦ 

♦ POINTER TO ♦ 

♦ DATA FIELD ♦ 

♦ OF OVERFLOW ♦ 

♦ RECORD ♦ 

**************«:** 



IJHRRGOT 

*****F 1********** 

♦ ADD RELATIVE ♦ 

♦ KEY LOCATION * 

♦ TO I/O AREA ♦ 

♦ POINTER ♦ 

♦ * 
***************** 



*****Gi********** 

♦ SUBTRACT ♦ 

♦ RELATIVE KEY ♦ 

♦ LOCATION FROM * 

♦ POINTER TO ♦ 

♦ I/O AREA ♦ 
***************** 



♦ A2 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*****A3*******>j<** 

♦IJHRWRKA FJ* 

*_*_*_*_*_*_*_* ^* 

* MOVE LOGICAL * 

* RECORD TO * 

* WORKR ♦ 
*^**** *********** 



HOLD 

=yES 

*A2 



REFERENCES 
TO FGB4: 
FDA3» FDGl 
FEC2f FFG2 
FHH3, FKFl 



RDONLY ♦. YES 
=YES .*.... 
♦A2 •♦ 



*****C2 **♦♦♦*♦♦♦♦ 

* ♦ 

* SAVE ID OF * 

* RECORD ♦ 

* READ ♦ 

* * 
***************** 



*♦** 



♦ ♦.X 



REFERENCES 
TO FGHl: 
FFDl, FFGl 



**** 
IJHREGOT 

*****|Hi ********** 

♦ SAVE POINTER ♦ 

♦ TO LOGICAL * 

♦ RECORD FOR ♦ 

♦ WRITE ROUTINE * 

♦ * 
***************** 



*****C3********** 

* MOVE INDEX ♦ 

* ADDR AND ♦ 

* SAVE READ * 

* ADDR * 

* * 
***************** 



*_*_*-*-.*_*_*_*».* 



***************** 



*****E3* ********* 

♦IJHCMCAL EH* 

*_*_ *_*_*_*_ *_*_* 

* GET LOG UNIT * 

* NUM USING M * 

* NUMBER * 
***************** 



***«*P3* ********* 

* * * * 

* * SVC 36 * * 

* *FREE INDEX * * 

* * TRACK * * 

* * « * 
***************** 



**Q3******* 

♦RESET INDEX* 

* TRACK * 
HELD SW TO 

* ZERO * 
* * 

*********** 



***************** 



.♦FROM WAI1 F *. 
ROUTINE 

*, ,* 



****P4********* 
* RETURN TO * 
♦PROBLEM PROGRAM* 

*************** 



IJHSfcR2 

*****e5 ********** 

* LOAD POINTER * 

* TO SAVE * 
,,.X* ARfcA INTO * 

* REGISTER 13 * 

* * 
***************** 



♦ RESTORE USER * 

♦ REGISTERS * 

♦ 2-12,14 * 

♦ * 
***************** 



****[) 5********* 

* RETURN TO ♦ 

* PROBLEM * 

* PROGRAM * 
*************** 



**E5******* 

* * 
* TURN OFF * 

.X^WAITF INDICATOR* 
♦IN DTF TABLE * 

* * 
*********** 



**F5******* 
* RESET * 

* STATUS BYTE 
AND UNRECOV 

* ERROR BYTE 
♦IN DTF TBL ♦ 

*****a!<***** 



***** 
♦FO ♦ 

♦ Bl* 



RDONLY 

=YES 

♦ A2 



*****H4********** 

* LOAD USER ♦ 

♦ REGISTERS ♦ 
X* 2-14 FROM ♦ 

♦ SAVE AREA * 

* * 
***************** 



RDONLY ♦. YES 
=YES .*.... 
♦ A2 .♦ 



*****J2********** 

* * 

* GET POINTER ♦ 
X* TO SAVE ♦ 

* AREA ♦ 

* * 
***************** 



*****J3*** ******* 



***************** 



*****K1 ********** 

* SET UP TO ♦ 

* MOVE LOGICAL * 

* RECORD TO * 

* WORKR ♦ 

* * 
***************** 



*****K3********** 

* ♦ 
♦LOAD USER lOREG* 

* WITH ADDRESS *. 

* OF RECORD * 

* * 
********** ***** ** 



****K4*****^^^^ 

* RETURN TO * 
.X*CALL1NG ROUTINE* 

* * 
*************** 
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Chart FH. ISAM RETRVE, RANDOM: WRITE MACRO KEY 



* ISAM RETRVE * 

* WRITE MACRO * 

* KFY * 



ROONLY 

= YES 

*A2 



*A2 
ISMOD MACRO PARAHETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* SAVE USER * 

* REGISTERS * 

* 2-14 * 

* * 

^^t :e(4< ** :(c:«:# * #:«c«4(](c « 3«< 



«*#«*0I =«'««=««***«*=«< 

* ESTABLISH * 

* REGISTER 14 * 

* AS SECOND * 

* BASE REGISTER * 

* * 



* STORE USER * 
♦REGISTERS 2-14 * 

* IN SAVE AREA * 

* * 

3^«4< «4e* *« 4>* *«< If « #«* 



* GET POINTER * 

* TO WORKR AND * 

* POINTER TO * 
♦LOGICAL RECORD * 

* * 



♦#♦#♦03*** ♦*#**** 

*IJHRWRKA FJ* 

* MOVE LOGICAL * 

* RECORD TO * 

* WORKR * 



♦IJHCBLD2 FJ* 

*_ ♦_ #_ *_ *_ *_ *_* _* 

* BUILD CCW * 

* CHAIN TO * 

* WRITE RECORD * 



****A5********* 

* ISAM RETRVE * 

* INPUT/OUTPUT * 

* SUBROUTINE * 



IJHCXCPH 

*IJHCMCAL EH* 

* GET LOGICAL * 

* UNIT NUMBER * 
♦USING M NUMBER * 
««]((«««««#♦«♦♦♦♦*♦ 



»****C 5********** 

* * * * 

* * SVC 35 * * 

* * HOLD * * 

* * TRACK * * 

* * * * 



* RETURN TO * 

* CALLING ♦ 

* ROUTINE * 



ROONLY 

=YES 

*A2 



* ♦ 

* SAVE POINTER * 
.X* TO SAVE AREA * 

* IN REGISTER * 

* * 

««» «4(4c 4::«i ♦♦♦♦♦♦ ♦♦♦ 



*TURN ON WRITE* 

* BIT IN OTF * 

* TABLE * 

* * 



#*#«3KF3»**«««4<««« 

* SET COUNT * 
♦FIELD IN WRITE * 

* AND VERIFY * 

* CCW'S TO * 

* BLOCK SIZE * 



.♦UNCORR *. 




.♦DASD ERROR,*. 


YES 


, WLR OR NO , 


*. .. . 


*. RECORD .* 




♦.FOUND.* 




*. .* 


X 


* NO 


*♦♦** 




♦FF * 




* F2* 




* * 




* 


X 
**H1**^*^** 


IJHRERRR 




* * 




♦RESET STATUS * 


BYTE IN DTFIS 


* 


♦ TABLE * 





♦**♦ 
IJHRESCO 

:#itf***Q,3********** 

♦IJHCEXCP EH* 



:((«#:{(*«#« Jie 4s :«(j^#9j(#:«uic 



REFERENCES 
TO FHF4: 
FCH5, JGK5 



IJHRESCH X 

j(( «:ic «# F 4^ ♦♦♦♦♦♦♦ ♦♦ 

♦ IJHCXCPH FH^ 



9(c:jc:tc«4(#s(c*4e«4e3«(4(4c«3(t« 



* ♦ 

SET INDEX 

TRACK HELD 

SWITCH 

* * 



###4e«4:4c«itC3tc4: 



♦INITLZE POINT- * 

* ERS TO PARTS ♦ 

♦ OF DTF TABLE ♦ 
5iC*^**** ********** 



*****Kl*=Se******** 

* * 

* GET IDENTIFIER ♦ 

* SAVED BY ♦ 

* READ ROUTINE * 

* * 
***************** 



* * 

* B3 ♦ 

* * 



NO 


♦ WAITF 


* 


... ♦ 


SEEK C4ECK 




• 


♦. ROUTINE . 

*. .* 


* 


X 


♦ . .* 




***** 


* YES 




♦FG ♦ 






♦ B4^ 






* * 


X 




* 


***** 




I JHSER2 


*FD ♦ 
* FI^ 
* * 

IJHCWATB 
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****A1 ********** 

* ISAM RETRVE * 

* BUILD * 

* SUBROUTINE * 



****A2********* 

* ISAM RETRVE * 

* WORKAREA * 

* SUBROUTINE * 
*************** 



IJHCBLD2 X 

♦****B1 ********** 

* GET ADDRESS * 

* OF CCW * 

* BUILD AREA * 

* IN DTF TABLE * 

* * 
***************** 



IJHCLOPX 

*****Cl ********** 

* GET DATA OR * 

* TIC POINTER * 

* FROM BUILDER * 

* CONTROL CODE * 

* * 
***************** 



X... 



IJHCTICR X 

*****0i********** 

* DETERMINE * 

* ADDRESS FIELD * 

* FOR TIC * 

* INSTRUCTION * 

* * 
***************** 



IJHCSTRE 

*****E1 ********** 

* MOVE CCW OP * 

* CODE, FLAG * 

* BITS, AND * 

* DATA LENGTH * 

* IN CCW * 
***************** 



IJHCBH9B X 

**P1******* 

* TURN OFF * 

# CHAINING * 
* BITS IN DTF * 

* IF REQUIRED * 

* * 
*********** 



IJHCE99 

*****G1 ********** 

* UPDATE TO * 

* NEXT BUILDER * 

* CONTROL CODE * 

* FIELD * 

* * 
***************** 



.* END *. NO 
OF CCW .*... 
*. STRING .* 



*****C 2*** ******* 

* * 

* GET LENGTH * 

* OF RECORD * 

* TO BE MOVED * 

* * 
***************** 



*****|}2********** 
*IJHCMOVE EH* 
*_*_*_*_*_*_*_*_* 

* MOVE RECORD * 

* TO DESIGNATED * 

* LOCATION * 
***************** 



****E2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****J1 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart FK, ISAM RETRVE, RANDOM: FREE Macro 



****A1********* 

* ISAM RETRVE * 

* FREE MACRO * 

* * 
***««*********« 



*A2 
I SHOD MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



.* HOLD 

= YES 

*. *A2 



«:f**B2**<t ****** 

* * 

* SVC 5 * 

* * 
4c*4c****** ****** 



.* RDONLY 
*. =YES 

*. *A2 



* SAVE * 

* USER * 

* REGS * 

* * 

«««:(c*3|c***«*****4>« 



* SAVE * 
X* USER * 

* REGS * 

* * 



4c****D2*** ******* 

* * 

* SAVE ADDR * 

* OF * 

* SAVE AREA * 

* * 
****** **4e* 4****** 



***«:te5X**^**«**#« 



***************** 



.* READ * 




y-ES 


*. ERROR 


I* 




*. .♦ 






*. .* 






*. .* 




X 


* NO 




***** 

*FG * 

* B4* 
* * 

IJHSER2 


4c****61********** 




*UHCINIT . EG* 




♦_*_*_*-*_*_•*_*. 


.* 




* INITIALIZE 


* 




♦TABLE POINTERS 


« 





«:(c 4c:ic «:*:((« *:((4c##« 4t # <( 



**3|c«*Hl********** 



#* «*«****««****#« 



*****J £**«*****«* 

♦IJHCMCAL EH* 

*_*_*_*-*^*_*-*_* 

* GET LOG UNIT * 

* ADDR USING * 

* M NUMBER * 



***** 
*EF * 
* Al* 
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Chart GA. ISAM RETRVE^ SEgNTL: ESETL Macro 



****A1 ********* 

* ISAM RETRVE * 

* ESETL MACRO * 

* * 
*************** 



RDONLY 

=YES 

*A2 



*A2 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***************** 



* STORE USER * 
♦REGISTERS 2-14 * 

* IN SAVE AREA * 

* * 
***************** 





* 


HOLD 


* 


. NO 


* 




=YES 




.*... . 




*. 


*A2 
*. ,* 
*. .* 
* YES 

X 


.* 




*****C3*** ******* 


* 


* 




* 


* 


* 


* 


SVC 36 


* 


* . 


* 


* 


FREE HELD 


* 


* • 


* 


* 


TRACK 


* 


* . 


* 


* 




* 


* 


***************** 


*♦** 








*fiF 




.X... 







*****Di********** 

* ESTABLISH * 

* REGISTER 14- * 

* AS SECOND * 

* BASE REGISTER * 

* * 
***************** 



IJHSESTL 

*****E1 ********** 
*IJHSBHIN HA* 

*_*_*_*_*_*_*_*_* 

*INITLZE POINT- * 

* ERS TO PARTS * 

* OF DTP PARTS * 
***************** 



**F1******* 

* * 

* SET STATUS * 

* BYTE IN DTP * 

*TABLE TO ZERO* 

* * 
*********** 



**Gi******* 

* * 
TURN OFF 

GET ISSUED 
SWITCH 

* * 
*********** 



*****Hl ********** 
*IJHSINT HA* 

*_*_*_*_*_*_*_*_* 

* CHECK IF * 

* PUT ISSUED * 

* * 
***************** 



.* I0AREA2 *. YES 
=YES .*.... 

*. *A2 .* 



RDONLY 

-YES 
*A2 



***************** 



* RESTORE USER * 

* REGISTERS * 

* 2-l2» 14 * 

* * 
***************** 



****P3********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



.X... 
X 
**** 

* * 

* B3 * 

* * 
**** 



♦*J2******* 

*SET BIT IN * 

*DTF TABLE TO * 

.X*INDICATE FIRST ■ 

*RECOR0 BEING * 

* PROCESSED * 

*********** 



**K2******* 
* * 

* RESET I/O * 
.*AREA BIT IN OTF* 

* TABLE * 



*********** 
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Chart GB. ISAM RETRVE, SE^NTL: GET iVlacro (1 cf 4> 



♦ ISAM RETRVE * 

♦ GET MACRO * 

♦ * 



RDONLY 

= YES 

*A2 



*A2 
ISMOO MACRO PARAMETER 
OPTION. -THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



♦*** 








**«* 






**** 


* * 








* * 






* * 


* A3 * 








* A4 * 






* A5 * 


* * 








* * 






* * 


***♦ 








**♦* 






**** 


X 








X 








• *. 








• *• 






X 


A3 *. 








A4 *. 






*****Afj ********** 


.* ALL * 








.♦ FIRST * 






* MOVE CURRENT * 


RECORDS 


* 


. NO 


.* 


RECORD 


* 


. YES 


*R£CURD ADDRESS * 


IN BLOCK 




,*,,,. 


*. 


BElNto 




.*.... 


* TO SEtK/ * 


.PROCESSED 


* 




* 


.PROCESSED 


* 




♦SEARCH ADDRESS * 


*. .* 








*. .♦ 






* * 


*. .* 




X 




♦ . .* 




X 


:4c :(c :(c «:«(*«# :tc :«c :je « 3)c:(c # :(c :(c 


* YES 




***** 
*GE * 
* B4* 
* * 

IJHSBril2 




* NO 




**** 

* * 

* D4 * 

* ♦ 
***♦ 





*« :tc4i ](c*««:(c****« * <( :(< 



IJHSGETB X 

*****C 2*** ******* 

* STORE USER * 

* REGISTERS * 

* 2-14 IN * 

* SAVE AREA * 

* * 
***************** 



4(4e«**Dl******^*** 

* ESTABLISH * 

* REGISTER 14 ♦ 

* AS SECOND * 

* BASE REGISTER * 

* * 
***************** 



RDONLY 

= YES 

*A2 



* REFERENCES 
TO GBE4: 
6DG1, GEK3 



*««**£ 2*** ******* 

* INTERCHANGE * 

* POINTER TO * 
.X* SAVE AREA AND * 

* CONTENTS OF * 

* REGISTER 13 * 

****:**«*«* *4c***** 



4c****B3*** ******* 
*IJHSINT HA* 

* CHECK IF * 

* PUT ISSUED * 

* * 

«***«*4!********** 



I0AREA2 

=YES 
*A2 



PREVIOUS *. 
RECORD IN .-■ 
.OVERFLOW .* 
*.AREA .* 



3jc« :«c :(( i(c g4 « ^c ****** ** 

*IJHCWAIT EE* 

#_*_♦_*_♦_♦_*_*_♦ 

* WAIT FOR I/O * 

* COMPLETE AND * 
*TEST FOR ERRORS* 

:jc:«c:4t:t(:tc************ 



* SAVE RECORD * 
*AODRESS (CHHR) * 

* FOR PUT * 

* * 

:jc**4(************* 



*****Bb********** 
*IJHSGET2 HA* 

* READ NEXT * 

* RECORD * 

* * 
***************** 



**** 

*HB * 

* H2 *.X 



I0AREA2 

=YES 

*A2 



D5 *i« 

.*RECORD *. 

.* RETRIEVED *. 

FROM 

*. OVERFLOW .* 

*.AREA .* 



***** 
*GE * 
* Bl* 



* *.X 



***** 
*GC * 
* A3* 



* YES 



IJHS6ET1 X 

4c****F 1********** 
*IJHSBHIN HA* 

* INITLZE PTR * 

* TO PARTS OF * 

* DTF TABLE * 
**«**«*:(( 4t******** 



I0AREA2 

=YES 

*A2 



* HI *.X. 

* * 
**** 

X 
**H1 ******* 

* SET SW TO 

* INDICATE GET 

* ISSUED 

♦ * 

*********** 



I0AREA2 

= YES 

*A2 



Kl *. 

.* *. 

* PREVIOUS *. 

RECORD IN . 

♦.OVERFLOW .* 

*.AREA .* 

*• .* 

* NO 

X 
*♦** 

* * 

* A3 * 

* ' * 
»♦** 



*4>***H2*** ******* 



.IJHCER 
. **♦* 
. *EE * 
..X* G4 * 
♦ * 
**** 



.* PREVIOUS *. NO 
. RECORD IN .*... 
*. OVERFLOW .* 
*.AREA .* 



K2 *. 
,* ♦ 

* USER 
RECORD 

♦ .OVERFLOW 

♦RECORD.* 



* YE S *♦** 

* * 

X.IJHSOTR * A3 * 
X * * 

**** 



* PRIME * 

DATA DEVICE 
*. 2321 .* 



*ite***F3********** 

* * 

* INITIALIZE * 

* STRIP UPPER * 

* LIMIT TO 9 * 

* * 

«**«3(t***«*****-**« 



.* CURRENT *. NO 
♦RECORD IN LAST.*..X 

*. SUBCELL .* 



***««H3********** 



«««*4t«4t«**]((**«4t«;j( 



**** 

iJHSRETB 

*****£ 4** ****«*«* 
*IJHSEOT HA* 

* UPDATE * 

* CURRENT RCD * 

* ADDRESS * 

««*^#«***:«t*****#:(c 



HOLD 

=YES 

*A2 



***** 

*GE * 
* B5* 



*««4<*E5*:(c**«:tt««#4 

* ADD 10 TO * 

* CURRENT * 

* I/O AREA * 

* ADDRESS * 

* * 

«««:(( 4e************ 



***** 

*GE * 
* C5* 



I0AREA2 

=YES 

*A2 



2 I/O *. 
AREAS 
PRESENT .* 



***** 

*GE * 

* Bl* 

* « 



**** 

* * 

* D4 * 

* * 
**** 



*****H4«********* 

* IJHCXWTH HA* 

* HOLD INDEX * 

* TRACK * 

* * 
***************** 



*****J4********** 
*IJHCXWTH HA* 
*_*_*_*_*_*_*_*_* 

* HOLD DATA * 

* TRACK * 

* * 
***************** 



*****K4********** 

* * * * 

* * SVC 36 * * 

* *FREE INDEX * * 

* * TRACK * * 

* * « * 
***************** 



.X... 
X 
**** 



****G5********* 

* ISAM RETRVE * 

* GET * 

* SUBROUTINE * 
**^************* 



IJHSGETH 

*****H5********** 

* ESTABLISH * 

* RETURN FROM * 

* CCW BUILDER * 

* AND SET UP * 

* FOR GET * 
***************** 



*_*_*_*_*_*_*_*_* 



***************** 



****K5 ********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart GC. ISAM RETRVE, SEQNTL: GET Macro (2 cf 4) 



*A2 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*GE * 
* C5* 



IJHSBH13 X 

<e* * « i(( g 1 * >(c:(c ;(c :«c * * » * ;«( 

♦IJHSWORK HA* 

* MOVE RECORD * 

* TO WORK AREA * 

* * 
#***4<*********«** 



***** 




***** 


*GB * 




*GE * 


* D4* 




* Fl* 


* * 




* * 


* 




* 

xl 


X 






IJHSEOTR .*, 




IJH$2E0T X 


A3 *- 




***»«A4*«««****** 


, * * 




* * * * 


NO .* HOLD 

,..*. =YES 


*. 


* * SVC 36 * * 


.* 


* * FREE HELD * * 


*. *A2 


* 


♦ * TRACK * * 


. *• .* 




* * * * 


X *. .* 




, *«**«**]{(****»**** 


♦*** * YES 






* * 




**** , 


* B4 * 




* * , 


* * , 




* 64 *,X. 


♦*** 




* * . 






♦*** , 






X 


B3 *. 




*«4t **B4«**:<c;tc «*«3|c« 


.* * 




* * 


.* I0AREA2 


*. NO 


* GET TRACK ♦ 


*. =YES 


.*... .. 


* INDEX ADDR * 


*. *A2 


* X 


♦ * 



* *.x 



REFERENCES 
TO GCCl: 
GEF5t GFD3 



**** 
IJHSBH17 X 

* STORE RECORD * 

* COUNT AND * 

* CURRENT 1/3 * 
*AREA ADDRESS IN* 

* DTF TABLE * 
***************** 



«***««*«**«*«**** 



*****Q4***««***** 

♦ IJHSBILD HB* 
♦_*-*-.*_*-♦_*_♦_* 

♦ BUILD CCW CHAIN* 
*T0 SEARCH TRACK* 

♦ INDEX * 
*»***««********«* 



****« El ********** 

* RESTORE * 
♦REGISTER 13 TO * 

* POINT TO SAVE * 

* AREA * 

* * 
***************** 



*****F1 ********* 



***************** 



*****Gl ********** 

* LOAD USER n * 

* REG WITH * 

* ADDRESS OF * 

* RECORD * 

* * 
***************** 



****t-)l******* * 

* RETURN TO * 
♦PROBLEM PROGRAM* 

* * 
*************** 



*****02********** 



***************** 



*****E2***^*«**** 

* * 

* LOAD USER 10 * 

* REG WITH * 

* ADDRESS OF * 

* RECORD * 
***************** 



****F2********* 

* RETURN TO * 
*PROBLEM PROGRAM* 

* * 
*************** 



**D3******* 

* * 

* SET SWITCH 
* TO INDICATE 

* I0AREA2 

* * 
*********** 



**E3****»** 

* SET SW * 

♦ TO INDICATE * 
♦ NEXT REC IS * 

* OVERFLOW * 

* RECORD * 
*********** 



CORRECT 
lOAREA 
ADDR 



ERREXT 

= YES 
*A2 



*****E4********** 



***************** 



*****P4********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ TRACK ♦ 

* INDEX * 
***************** 



***************** 



*****G3********** 

* * 

* SET UP * 

* TO USE * 

* WORK AREA « 

* * 
***************** 



*****H3****#***** 

* * 

* GET CORRECT * 

* lOAREA * 

* ADDRESS * 

* * 
***************** 



HOLD *. YES 
=YES .*.... 
*A2 .* 
.* 



*****H4********** 
*IJHCEXWT HA* 
*_*_*_*_*_*_*_*_* 

* EXCP. SEARCH * 

* TRACK INDEX * 

* * 
***************** 



*****G5********** 
*IJHCXWTH HA* 
*_*_♦_*_*_*_*-.*_* 

.X* EXCPi SEARCH * 

* TRACK INDEX * 

* * 
***************** 



IJHSCNGl .*. 



*****K3********** 

* * 
*ADD KEY LENGTH * 

* TO lOAREA * 

* ADDRESS * 

* * 
***************** 



*UPDATE CURRENT * 

* TRACK INDEX * 

* RECORD NUMBER * 

* * 
***************** 



***** 
*GE * 
* B5* 



*, ,* 

*. .* X 

* YES ***** 

*GD * 
. IJHSBH5 ♦ D1*IJHSBH6 
X * * 

***** * 

*GD * 
* Bl* 
* * 
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Chart GD. ISAM RETRVE, SEQNTL: GET Macro (3 cf 4) 



***** 

*GC ♦ 
* K4* 



*A2 
ISMOD MACRO PARAMETER 
OPTION, DECISION DOES 
NOT APPEAR IN 
ASSEMBLER LISTING. 



* GET STARTING ♦ 

* RECORD NUMBER * 

* ON NEXT TRACK * 

* ♦ 



m****ci********** 



* ADO 


ONE 


TO 


* TRACH 


NUMBER 


* 






* 

*:tf***ilfi 


It**** 


**♦ 


**** 






*GC * 






* K4 * 


xl 




* * 






**** 


X 




IJHSBH6 


.*, 




Dl 


* 




.* 




*. 


NO .* HOLD 




...*. = 


YES 




*m 


*A2 


• 



*****£l*:iim******* 

* * * * 

* * SVC 36 * * 

* *FREE INDEX * * 

* * TRACK * * 

* * * * 



* * 

* RESET FIRST 
* OVFL RECORD 

* INDICATOR 

* * 

**:|c«4t4i4c*«** 



REFERENCES 
TO GDC2: 
GEF4, GEG2 



♦*♦* 
IJHSBH3 X 

««Q2******* 

* ♦ 
♦SET OVERFLOW 

* INDICATORS 
*IN DTP TABLE 

* * 



HOLD 
= yES 

*A2 



***** 
*6B * 
* E4* 



****«E 2********** 
♦IJHSGET2 HA* 

*_#_♦_*_*_:»;_«_#_* 

* READ OVERFLOW * 

* RECORD * 

* * 

««4:4E4E#:4c«4:«:3t<****** 



*****£ 3 *#«««««;(t«# 

*IJHS6ETH GB* 

* READ OVERFLOW * 

* RECORD * 

* * 

«« )((:«c «3tc «:«(«* :j(4c «4(* ** 



«jt>4c*«p2**« ******* 

* * 

* SAVE CURRENT * 
♦RECORD ADDRESS * 

* IN OTF TABLE * 

* * 

««4e****«********* 



*****G2********** 

* * 

* ADD 10 TO * 

* CURRENT I/O » 

* AREA ADDRESS * 

* * 

«***««** sjc^t ** ** *** 



X 

***** 
*GE * 
* C5* 



**#«*04********** 

* * 

* SET RECORD * 

* COUNTER TO * 

* ONE * 

* * 

«c*#:4c««:ic:ic«:t:4'****** 



IJHSBCKT 

]Cc**«4'E4********** 

* MOVE QVERFLOk» * 
♦RECORD ADDRESS * 
*T0 SEEK/SEARCH * 

* ADDRESS ♦ 

* * 

«*4c3«(#:(c:(c*;tc*«:(t «:«(*** 



**F4#*«***# 

♦TURN ON BIT* 

* TO INDICATE * 

* RCD RETRIEVEQ * 

♦FROM OVERFLOW* 

* AREA * 



♦**»*Q4*«*#*****# 



## ;«e :«(:{( :(c «:((« 4t 4> 4! *** ** 



♦♦***D5********** 

* * 

* SAVE RECORD * 
*ADDRESS (ChHR) * 

* FOR PUT * 

* « 

:«c«:«c:j(«:ic «:*******;{(«:«( 



.« WAS * 

.I0AREA2 LAST 

*. USED .* 



* * 

* GET ADDRESS * 

* OF I0AREA2 * 

* (lOAREARi ♦ 

* * 

;{c «:************:((*« 



IJHSADKY .*. 




G5 *. 




.* *, 




.* FIRST *. 


YES 


♦ .RECORD tJElNb . 


*. ... 


*. PROCESSED.* 




*. .* 




*. ,* 


X. 


* NO 


**** 




* * 




* C2* 


X 


* * 


***** 


**** 



I0AREA2 

= YES 

*A2 



HOLD 

= YES 

*A2 



**** 

* * 

* B4 * 

* * 
**** 
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Chart GE. IS?VM RETRVE, SEgNTL: GET Macro (4 cf 4) 



*A2 
ISMOO MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



REFERENCES 
TO GEB5: 
GB05, GCK3 



***** 

*GD * 

* G5* 

* * 



***** 
*GB * 
* A3* 



HOLD 

= YES 

*A2 



I0AREA2 

= YES 

*A2 



REFERENCES 
TO GEBls 
GBD3, GBK2 



.* FIRST *. NO 
.OVFL REC FOR .*... 
*. I0AREA2 .* 



:«c ********** 



***** 

*GC * 

* A4* 

* * 



* * SVC 36 * * 
X* * FREE LAST * * 

* ♦TRACK HELD * * 

* * * * 
***************** 

*♦** 

* * 

* 02 *.X. 

* ♦ 
**** 

X 
♦****D2********** 



***************** 



*****£ 2********** 

* GET ADDRESS * 

* OF SEQUENCE * 

* LINK FIELD * 

* IN RECORD * 

* * 
********♦*♦♦*♦*** 



*****p 2* ********* 

* MOVE ADDRESS * 

* OF NEXT * 

* RECORD TO * 

* SEEK/SEARCH * 

* ADDRESS * 
***************** 

**** I 

* * , 

* G2 *.X. 

* * . 
**** X 



*****C3********** 

* GET ADDRESS * 

* OF SEQUENCE * 

* LINK FIELD * 

* * 

**4(3)c:^«.*:(c********* 



IJHSNEXT 

***;«e*p3*** ******* 

* MOVE ADDRESS * 

* OF NEXT * 

* OVERFLOW RCD * 
*T0 SEEK/SEARCH * 

* ADDRESS * 
***************** 



**** 

* * 

* 02 * 

* * 
**** 



IJHSBH12 X 


IJHSBHll X 


*****B4********** 




*****B5********** 


* ADD LENGTH * 




* * 


* OF LOGICAL * 




* SET RECORD * 


* RECORD TO * 




* COUNTER TO * 


* POINTER TO ♦ 




* ONE * 


* I/O AREA * 




* * 


***************** 




4c******«********* 

**** * 


I * REFERENCES 


* * 


TO 


GEC5: 


* ♦ *.x. 


GBE5 


GDG2 


♦ * . 

**** x 


X 




.*. 


*****Cii.********** 




C5 *. 






,* *, 


* ADD ONE TO * 




.* RDONLY *. NO 


* RECORD * 




*. =YES .*.... 


* COUNTER * 




*. *A2 .* 






*, ,* , 


***************** 




*. ,♦ X 

* YES ***** 

I * Bl* 
, * * 

• * 
iJHSBHl^ 


X 


1JHSBH13 X 


*****04*4<](t******4t 




*****05**;4c«****** 


* ADD POINTER * 




* INTERCHANGE * 


* TO KEY AND * 




* POINTER TO * 


♦ KEY LENGTH ♦ 




* SAVE AREA AND * 


* I/O AREA * 




* CONTENTS OF * 


* POINTER * 




* REGISTER 13 * 


*****4(:t(********** 




#**************** 



*«**«g4««*******« 

* UPDATE I/O * 

* AREA POINTER * 

* TO LAST BYTE ♦ 

* OF EMBEDDED * 

* KEY * 
***************** 



*****E5**3«c******* 
♦IJHSWORK HA* 

♦MOVE RECORD TO * 

* WORK AREA * 

* « 

#«****«4<**«#3|c**;!|c« 



G2 ♦. 

.* *, 

♦ END OF *. NO 

OVERFLOW .*.., 

*. CHAIN .* 

*, .* 



IJHSBH30 .*. 




X 


F4 *. 




««***P5*********« 


.* *. 




* SAVE POINTER * 


.* IS THIS * 


. NO 


* TO SAVE AREA * 


*. A PADDING 


...... 


* IN REGISTER * 


*, RECORD .* 




♦ * 


*, ,* 




* ♦ 


*« .* 


X 


***************** 


* YES 


***** 

*GD * 
* 62* 


I 




* * 


X 




* 


****« 




IJHSBH3 


*GC * 


X 




* CI* 


**G4******* 




* * 


* * 




* 


* TURN ON EOF * 


IJHSBH17 


* INDICATOR IN 


* 




* DTF TABLE 


» 





***** 
*GD ♦ 

* 82* 



*********** 



X 
***** 

*GA * 
* D3* 



I0AREA2 

=YES 

*A2 



HOLD *. YES 

=YES .*.... 

*A2 .* 



**K3******* 
* TURN OFF * 
.*2 I/O AREAS*. NO X * OVERFLOW 

*. PRESENT .* X* INDICATORS 

*. .* * DTF TABLE 

*. .* * * 

*, .* *«*:(c3jt ****** 



. .X. IJHSRETB 

X 

***** 

*GB * 

* E4* 

* * 



264 DOS/VS LIOCS Volume 3 DAM and ISAM 



Chart GF. ISA.M RETRVE, SEgNTL: PUT ^dacro 



* ISAM RETRVE * 

* PUT MACRO * 

* * 



#A2 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* * 

* A3 * 

* * 



**A3******* 

* RESET * 
♦ OUTPUT BIT * 

♦RETRIEVAL BYTE 
♦IN DTP TABLE * 

* * 



ROONLY 

= YES 

♦ A2 



4(*«4i *«#«#« :|t:t<««*it<« 



* ESTABLISH * 
♦REGISTER 14. AS * 

* SECOND BASE * 

* REGISTER * 

* ♦ 



IJHSPUT 

♦IJHSBHIN HA* 

* INITLZE PTR * 

* TO PARTS OF * 

* DTF TABLE * 



* STORE USER * 
♦REGISTERS 2-14 * 

* IN SAVE AREA * 

* * 



RECORD IN 
OVERFLOW 
. AREA 



IJHSBH19 

4t4c«««C4»*««***««^ 

♦IJHSPUT2 HE* 

*_♦_«_ ♦_ *_ *_ 3j«_ * _« 

..X* WRITE * 

* RECORD * 

* * 



♦*D3 ******* 

*TURN ON BIT* 

*IN DTF TABLE * 

*T0 INDICATE PUT* 

♦MACRO ISSUED * 

* * 



***** 

*GC « 
* Cl« 



WAS 

A GET 
ISSUED 



****F2********* 

* SVC 50 * 

* ERROR * 

* * 

*;jc ******* 3ii3tc«:«(*4 



*♦♦******»* 



««H1******* 

* TURN ON * 
* OUTPUT BIT * 

♦RETRIEVAL BYTE 
*IN DTF TABLE ♦ 

* * 



**4e««JX********** 
*IJHSWORK HA* 
*_*-*_*_*-♦_♦-*-♦ 

* MOVE RECORD * 

* TO I/O AREA * 

* * 

«««4c«***#****4:«*:* 



4i«**«Kl ********** 

* * 

*SAVE POINTER TO* 

* SAVE AREA IN * 

* REGISTER * 

* * 
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Chart GG. ISAiVl RETRVE, SEi>NTL : SETL Macro, $$BSE'IL (1 of 5) 



* * 

* A3 * 

* * 
♦ *** 



****A1********* 

* ISAM RETRVE * 

* SETL MACRO * 

* $$BSETL * 



* GET ADDRESS * 

* OF DTFIS * 

* TABLE * 

* * 
***************** 



.* G KEY *. 
* SPECIFIED *. 

IN SETL 
*. MACRO .* 



* MODIFY CCW * 

* CHAIN TO SRCH * 
.X* KEY EQ OR HI * 

♦AND MOO COMPARE* 

* BR INST * 



VALIDATE 

* GET FILE * 

* START TYPE * 

* INDICATOR * 

* FROM SETL * 

* MACRO * 



«:tc*«*El ********** 

* * SVC 26 * * 

* * VALIDATE * * 

* * lOAREAS * * 

* * ADDRESS * * 

* * LIMITS * * 

:«t3(c^:((:(c#««4(******** 



♦♦♦♦*F 1********** 

* * SVC 26 * * 

* * VALIDATE * * 

* *DTFIS TABLE* * 

* * ADDRESS * * 

* * LIMITS * * 



* SET UP END OF * 

* VOLUME LIMITS * 

* FOR REQUIRED * 

* DEVICE * 

* * 



R21R 

:(c4:*:(c«H I ********** 

* MOVE LAST * 

* PRIME DATA * 

* IN CYLINDER * 

* TO END OF ♦ 

* VOLUME LIMIT * 

««(*«:<( sic^E*^'******** 



♦♦♦♦♦J 1 ********** 

* * 

*GET LOWER LIMIT* 

* OF PRIME * 

* DATA AREA * 

* * 
***************** 



*****Q2********** 

* * 

* MOVE USER * 
.X*RETURN ADDRESS * 

*INTO OTF TABLE * 

* * 
***************** 



*****02* ********* 

* * 
*MOVE ADDRESS OF* 

* IIP-SETL RTN. * 

* INTO PSW * 

* * 
***************** 



«***E2********* 

* SVC II * 

* GO TO * 

* IIPPROC * 
*************** 



* KEY * 






SPECIFIED 


* 


. YES 


IN SETL 




.*....X. 


MACRO 


* 




*, .* 






*. .* 




X 


* NO 




***** 

*GH * 

* 84* 

* * 

* 


X 




KEYROUT 


• *. 






C3 *. 






* BOF * 






SPECIFIED 


* 


. YES 


IN SETL 




.♦. .. • 


MACRO 


* 




*, .* 






*, ,♦ 




X 


* NO 




**** 
* 

* F5 



VALID *. 
STARTING 
ID SPEC .* 



*. .* 












**** 


*. ,* 






X 




* * 


* YES 




**** 




* E5 * 






* 


* 




* * 






* 


J3 * 




**** 






* 












**** 




xl 
























Igetid X 


E3 *. 








*****E4********** 


*****E5********** 


* RCO * 








* * 


* * 


ID IN TRK 


* 


. YES 




*M0VE FIRST DATA* 


* MOVE STARTING * 


INDEX 


* 


.*• •< 




X* RCD ADDR TO *.«. 


... * RECORD ID * 


AREA 




.... 


*STARTIN6 RCD ID* 


* TO SAVE AREA * 


*, ,* 








* * 


* * 


*, , * 








***************** 


***************** 


* NO 










*♦♦* ! 










* REFERENCES * * 










TO 


GGF5: * * ♦.X. 










GJG3, 


GJJ5 ♦ * 


X 










**** X 


. *. 










COMMON .*. 


F3 *. 










F5 *. 


* * 










• * *. 


SHARED 


* 


NO 






.♦PRIME DATA *. r 


TRACK ON 
FILE 


* 


.*• •• 








..X*. ON 3330 .*. 








. *. .* 


*, ,* 












*. .* 


*. .* 












*. .* 


* YES 












**** * YES 

* * • 

* F5 * 

* * 
**** 


X 












X 


.*• 








'testnorm .*. 


.*. 


G3 *. 










G4 *. 


G5 *. 


* ROD * 










.* RCD *. 


.* *. 


ID ON 


* 


. NO 


X 


.* ID ON *. NO 


.* STARTING *. \ 


SHARED 


* 


,♦, ,, 




X*. PRIME DATA .*.., 
*. TRACK .* 


. ♦. CYLINDER .*. 


TRACK . 








*. GT 256 .♦ 



.* RCD 


*. NUMBER ON 


*. TRACK . 


*. ,* 


*. .* 


* NO 


**** 


*GH * 




* J2 *.X 




* * 




**** 




LLEGID X 


**j3******* 


* TURN ON 


* INVALID 


.X* RECORD ID 


* swr 


rcH 



.*RECORD NO. *. NO 
. ON PRIME .*..) 
*. DATA .* 
*. TRACK.* 



TRACK 

HOLD 

SPEC. 



****K2*** ****** 

* SVC 2 * 

* FETCH * 

* $$BSETLI * 
*************** 



*********** 



****K3********* 

* SVC II * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



*****H5«********* 

* * 

* SET UPPER * 

* LIMIT OF * 

* CC TO X«FF« * 

* * 
***************** 



*****J5********** 



***************** 



*****K5********** 

* ADD ONE TO * 

* TRK. NO. AND * 
*GET TRK. NO. OF * 

* FIRST DATA RCD* 

* IN CYLINDER * 
***************** 



***** 
*GH * 
* Al* 
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Chart GH. ISAM RETRVE, SEgNTL: SETL Macro, $$BSETL (2 of 5) 



***** 

*GG * 
* K5* 



**♦♦ 

* * 

* A2 * 

* * 
**** 



♦SUB NO. OF 1ST * 

* DATA RCD TRK * 

♦ FROM STARTING * 

* RCD 1. DOUBLE * 

♦ RESULT * 



* * 

* GET HIGH * 

* RECORD NO, * 

* TRACK INDEX * 

* TRACK * 



:tt****£l********** 

* DIVIDE RESULT ♦ 
♦BY HIGH RCD NO.* 

* ON TI TRK AND * 

* STORE QUOT * 
♦TI OVFL TRK NO.^ 

4c* ^'♦♦♦♦♦♦♦♦♦♦♦♦♦« 



rta*illim*Ol********** 

♦STORE REMAINDER* 
♦AS TRACK INDEX * 

♦ OVERFLOW RCD * 

♦ NO. FOR * 
♦STARTING RCO ID+ 



♦ B2 ♦.X. 

♦ * , 
♦*** 

NORMAL X 

*«*4e*B2^^^ ♦♦♦♦♦♦♦ 

♦ MOVE HIGH RCD * 

♦ NO. ON PRIME * 

♦ DATA TRK TO * 
♦SAVE ADDR AREA * 

♦ IN DTFIS TBL * 

***:t:************^t 



41««3|(*PX«*# ***#«:*« 



«««**«)|e*********3(( 



* STARTING 

RCD NO. EQ 
*. ZERO 



««*«*:£ £♦♦♦ ♦♦♦♦♦♦♦ 

* SUBTRACT ONE ♦ 

* FROM RECORD * 

* NUMBER * 

* * 

****iti***********:ti 



^l!tl***f2********** 

♦ * 

♦ MOVE BLOCKING * 

♦ FACTOR TO ♦ 

♦ BLOCK COUNT ♦ 

♦ * 

«4c« **#*«** ♦♦♦♦*** 



***** 

♦GG ♦ 
♦ B3* 



KEYROUT X 

**4t:tft*Q^1f^f:tf****** 

♦ MOVE MASTER ♦ 

♦ INDEX START ♦ 

♦ ID TO SEEK/ . ♦ 
♦SEARCH ADDRESS ♦ 
♦AREA IN DTF TBL^ 
****m*^t********** 



»«3tc«4eC4*^^**^**^* 

♦ SET RECORD ♦ 

♦ NUMBER IN ♦ 

♦ SEEK/SEARCH ♦ 

♦ ADDRESS TO ♦ 

♦ ZERO ♦ 
*:f *************** 



MASTER *. YES 
INDEX ON ,♦... 
. FILE .♦ 



*:1li:lfit:*£/t********** 

♦ MOVE CYLINDER ♦ 

♦ INDEX START * 

♦ ID TO SEEK/ ♦ 
♦SEARCH ADDRESS * 
♦AREA IN DTF TBL+ 



**;tc*«*:(c«4c4c:tc«*3tc*4<:(c 



♦ *.X 



REFERENCES 
TO GHG4: 
GKC5, GPE2 



ZERO X 


EXIT .*. 


*****Ql********** 


G2 *. 


* SUBTRACT. ONE ♦ 


.♦ 


♦ FROM TRACK ♦ 


NO .♦ RCD ID 


♦INDEX OVERFLOW ♦ 


...*. ON 2321 


♦ TRACK NUMBER ♦ 


. *. 



4(# ♦♦♦♦«♦♦♦♦*♦♦♦♦♦ 



**««*H1 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET RCD NO ♦ 

♦ OF TI OVFL ♦ 

♦ ENTRY EQ TO ♦ 

♦ HIGH RCD NO. ♦ 

♦ * 

it^e*************** 



**#*«H2^*^ ♦♦♦♦♦♦♦ 

♦ SET STRIP NO ♦ 

♦ FOR END OF * 

♦ VOLUME LIMIT * 



****ilit************ 



**** 
60T0EXCP X 

*i:i*^*Qdt.********** 

♦EXCPROUT GL* 

♦ EXCP, SEARCH ♦ 

♦ MI, CI * 

♦ AND TI * 

««*#«**«3«C*«**«*4(* 



♦ MOVE SEEK/ * 

♦ SEARCH TRACK ♦ 
♦AND RCD NO. TO * 

♦ TRACK INDEX * 

♦ OVFL ADDRESS * 



***♦ 












♦GK ♦ 












♦ D4 *.X. 












♦ * . 












*♦♦* X 








X 




OFLOEXIT .♦. 








.♦. 




Jl .♦. 








J2 ♦. 




. START ING^. 








.♦ RCD ♦. 




.♦ RCO ID ON ♦. NO 






.♦ ID GT END ♦. YES 


*. FIRST DATA .♦ 








♦. OF VOLUME .* 




♦.RCD TRACK. ♦ 








♦ . ,♦ 




♦ . .♦ 








♦ , .♦ 




*. .♦ 




X 




♦, .* 


X 


♦ YES 


**** 


♦ NO 


***** 




* 




* 


**** 


*GG ♦ 




* 


B2 


* 


♦ ♦ . 


♦ J3* 




* 




* 


♦ K2 *.X. 


* * 




**** 


♦ ♦ . 


* 










♦♦♦* 




X 






EXITOUT 




«*«**K1^^^*^^*^*^ 








X 




♦ MOVE HIGH ♦ 








«««4cK2*^^ ♦♦♦♦♦♦ 




♦ RCD NO. ON ♦ 








♦ SVC 11 ♦ 




♦ SHARED TRK ♦ 








♦ TO PROBLEM ♦ 




♦SAVE ADDR AREA * 








♦ PROGRAM ♦ 




♦IN DTFIS TABLE ♦ 








«******:(E« **««*:)( 




ifAi*************** 












X 
**♦* 












♦ * 












♦ A2 ♦ 












♦ * 












**** 













***♦* 
♦GJ * 
* Bl* 
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***** 

*6H * 
* H4* 



FINDMXT X 

***** 01 ********** 

* MOVE NEXT * 

* SEARCH ID * 

* TO SEEK/ * 
♦SEARCH ADDRESS * 

* AREA * 

*****:{(*********** 


*B2 








. F CODE 


TYPE OF INDEX ENTRY 


ROUTINE 


. CHART LOCATION . 


. 00000000 


NORMAL ENTRY-UNSHARED . 


NORMLTRK 


GJ 


. OOOOOONN 


NORMAL ENTRY-UNSHARED . 


INDEX 


GK 




, 00001000 


NORMAL ENTRY-SHARED 


SHRDTRK 


GK 




. OOOIOOOO 


OVERFLOW ENTRY-END 


OFLORODT 


GK 




. 0001 I 000 


OVERFLOW ENTRY-CHAINED . 


OFLOROUT 


GK 


X 

*****ci ********** 

* GET F * 

* CODE FROM * 

* NEXT SEARCH * 

* ID * 

* * 


. 00100000 


DUMMY ENTRY-END (TIJ 


MORECFND 


GJ 


. OOIOOONN 


DUMMy ENTRY-END 


NORECFND 


GJ 


. OOIOIONN 


DUMMY ENTRY-CHAINED 


INDEX 


GK 


. 00110000 


, INACTIVE ENTRY CTI ) 


NORECFND 


GJ 




. OOllOONN 


► INACTIVE ENTRY 


NORECFND 


GJ 




NN— 10 = MASTER INDEX, 01 = CYLINDER 


INDEX 





*****Q ]_********** 

* DET INDEX * 

* ENTRY TYPE * 
♦FROM F CODE OF * 

* NEXT ID. SEE * 
*TBL AT LOC *B2 * 
***************** 



****F1********* 

* ISAM RETRVE * 

* NORMAL TRACK * 

* SUBROUTINE * 

«:**:«(*********** 



* 81 *.X 



**** 
NORMLTRK 

*****Q1 ********** 

*BLDER &L* 
*_*_*_*_*_*_*_*_* 

♦BUILD CCW CHAIN* 

* TO READ RCO ♦ 

* * 
***************** 



**J1 ******* 

♦ MODIFY * 

CCH 
COMMAND TO 
SEARCH KEY 

* EQ OR HI * 
*********** 



BLKREAD 

*****K.l ********** 
♦EXCPROUT GL* 
*_♦_*_*-*-*_*_*_* 

* * 

* READ RECORD * 

* * 
***************** 



* G2 ♦ 


♦ G3 ♦ 


* * 


* * 


**** 


**** 


X 


X 

COMPARE .*. 


*****G2* ********* 


G3 *. 


* SAVE ADDRESS * 




* OF STARTING * 


EQ .* KEY IN *. 


* RECORD, * 


...*. BLOCK EQ .* 


* MBBCCHHR * 


*. KEYARG .♦ 


* * 


*. .♦ 


***************** 


X ♦. .♦ 




***** * L0 




♦GG * 




♦ F5^ 




* * 
* 




COMMON 


X 


X 


*****H2*** ******* 


*****H3*** ******* 


♦ GET ADDR OF * 


* STORE DATA * 


* lOAREAS * 


* PORTION OF * 


♦WHICH CONTAINS ♦ 


* STARTING RCO * 


♦ DATA PORTION ♦ 


* IN DTF TBL * 


♦OF STARTING RCD^ 


♦FOR DEBLOCKING ♦ 


***************** 


***************** 



♦***F4********* 

♦ ISAM RETRVE * 

♦ NO RCD FOUND * 

♦ SUBROUTINE * 
*************** 



*****j2*** ******* 
♦GET LOC. OF KEY^ 

* IN RECORD BY * 

* ADDING KEYLOC ♦ 

♦ -1 TO ADDRESS ♦ 

♦ OF lOAREAS ♦ 
***************** 



*****K2********** 

♦ GET ADDRESS * 

♦ OF KEYARG, ♦ 

♦ KEY SUPPLIED ♦ 

♦ BY USER ♦ 

♦ * 
******** ********* 



*****J3 ********** 

* * 

* POINT TO * 

* NEXT RECORD * 

* IN BLOCK * 

* * 
***************** 



*****K3*** ******* 

♦ POINT TO * 

♦ KEY FIELD OF ♦ 

♦ NEXT RECORD ♦. 

♦ IN BLOCK * 

♦ * 
***************** 



♦ *.X 



UNBLREAD X 

*****G5««:«**«««)f» 
♦EXCPROUT GL* 
*-*_*_*_*_*_*_*-* 

* EXCP, READ * 

* RECORD * 

* * 
***************** 



REFERENCES 
TO GJH4: 
GKJ4, GLJ5 



♦*** 
NORECFND 

**H4******* 

* TURN ON ♦ 

♦ NO RECORD 
♦ FOUND 

♦ INDOCATOR 

* * 
*********** 



****J4********* 

♦ SVC ii * 

♦ TO PROBLEM ♦ 

♦ PROGRAM ♦ 
*************** 



*****K4*********^ 

* * 

♦ ADD ONE ♦ 
X+ TO BLOCK ♦ 

♦ COUNT ♦ 

* * 
***************** 



*****H5*********« 

♦ SAVE ♦ 

♦ STARTING * 
♦RECORD ADDRESS,* 

♦ MBBCCHHR * 

♦ * 
***************** 



***** 

*6G * 
* F5* 



*****K3*** ******* 

* * 

* GET ADDR * 

* OF lOAREA * 

* AND KEY * 

* ♦ 
***************** 
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Chart GK. ISAM RETRVE , SEQNTL: SETL Macro, $$ESETL (4 of 5) 



* ISAM RETRVE ♦ 

* SHARED TRACK * 

* SUBROUTINE * 



* ISAM RETRVE * 

* OVERFLOW * 

* SUBROUTINE * 



SHRDTR^ X 




OFLOROUT X 


Ht^ii^4i*Bl********** 


**B2******* 


* SUBTRACT ONE 


* 


* « 


* FROM FIRST 




* TURN ON * 


* DATA RECORD 


* 


* OVERFLOW * 


* NUMBER FOR 


* 


* SWITCH * 


* SEARCH 


* 


♦ * 


«4<*«4<*4>*4c««****»4< 


«*«4i«:(t*«««4< 


X 
*♦♦♦* 




I 


*GJ * 






* GI* 




X 


* ♦ 




:tii^illi:ffiti£2********** 


* 




* GET ADDR OF * 


NORMLTRK 




* lOAREAS WHICH * 
♦CONTAINS NORMAL* 
♦ENTRY ASS. WITH* 

♦ OVFLOW RECORD * 
^^^■♦^♦♦♦♦♦O^i'^**** 



«3((«4C«02*** ♦♦♦♦♦♦♦ 

* * 
♦GET MBBCCHHR OF* 

* TRACK INDEX * 

* NORMAL ENTRY * 

* * 



««:tc«*E 2********** 
♦SET RECORD NO. ♦ 
♦TO HIGH RCD NO.* 

* ON PRIME DATA * 

* TRACK * 

* ♦ 



F2 



♦ . 



.♦CURRENT*. 

.♦PRIME DATA * 

. TRK 1ST IN 

*. CYL .* 

*. .♦ 

*. .* 

* YES 



«««3l<«H2^^* ♦♦♦♦*♦* 

* SET CURRENT * 

* PRIME DATA * 
♦NO. TO HIGH RCD* 
♦ON SHARED TRACK* 

* * 



1NIT4 

♦♦*♦* J 2* ********* 

* ADD 2 TO CURR * 
*TI OVFL RCD NO.* 

* TO PT TO NEXT * 

* OVFL ENTRY * 

* TI * 

«:(: 4:*** *********** 



*4c***K2***^^^*^^* 

* * 

♦GET HIGH RECORD* 
♦NUMBER ON TRACK* 

* INDEX TRACK * 

* * 

:{c:|c:t=3i(«:tc **** ** ***** 



*♦** 

* * 

* B3 ♦ 

* * 
**** 



B3 *. 

.*HIGH TI*. 

.♦TRK RCD NO.*. NO 

.LT NEXT OVFL .*.. 

*. RCD NO. .* 

*. .* 



IJHSBH5 

*4t«««C3 ♦♦**♦***** 

* SUBTRACT HIGH * 

* RCD NO. ON TI * 

* TRK FROM NEXT * 
«TI OVFL RCD NO.* 

* * 



«4(***03**^^*^^*** 

* * 

♦STORE RESULT AS* 

* NEXT TI OVFL * 

* ENTRY RCD NO. * 

* * 
****** ** ** ** *** ** 



«4<***E3*** ******* 
♦ADD ONE TO NEXT* 

♦ TRACK INDEX * 
♦OVERFLOW ENTRY * 

♦ TRACK NUMBER * 

♦ * 

:«c«*««**********«« 



IJHSBH6 

***««F3,*«****:(c4e** 

♦OLDER GL* 

* * 

♦BUILD CCW CHAIN* 

* * 

** Jtcje «:(c «« ***««***:(t 



**** 

OFLOOP X 



:4c 4e******** ******* 



««:tc**H3*********^ 

♦EXCPROUT GL* 

♦ _*_«_*_*_*_*_ :(( 

♦ EXCP, READ ♦ 

♦ OVERFLOW ♦ 

♦ RECORD ♦ 
««*4c ************* 



****A5 ********* 

* ISAM RETRVE * 

* INDEX * 

* SUBROUTINE ♦ 

4c************** 



FOUNDOF X 

*****B4********** 

* GET ID OF * 

* CURRENT * 

* OVERFLOW * 

* RECORD * 

* * 

4e#4c«««4E********** 



«4c#«*C4*** ******* 

* POINT TO DATA * 
♦PORTION OF OVFL* 

* RCD, BYPASS * 

* SEQUENCE LINK * 

* FIELD * 

*******«:*«******* 



*****D4********** 

* * 

* MOVE BLOCKING * 
♦FACTOR TO BLOCK* 

* COUNT * 

* * 

4::(c4:************** 



X 
***** 

*GH * 
* Jl* 



:Cc****C5********** 

*BLDER GL* 
♦_*_♦_*_ ♦_*_x«-*-* 
*BUILD CCW CHAIN* 

* TO SEARCH TI * 

* * 
4i4«*************** 



***** 
*GH * 
* G4* 



OVERFLOW 


* 


. NO 




.* 


END ♦ 


YES 


RECORD 




* 


...X* 




OF OVERFLOW 


*.... 


FOUND 


* 






'* 


. CHAIN .♦ 




*. .* 










*. .* 




*. .* 










*. .* 


X 


* YES 










* NO 


***** 
*GJ * 
* H4* 


X 












* * 


**** 












* 


* * 












NORECFND 



**:***K4*^******** 

* MOVE NEXT RCD * 

* ID TO SEKADR, * 

* COMMON * 
♦SEEK/SRCH ADDR * 

* AREA * 

4:4::tc4c************* 
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Chart GL. IS?IM RETRVE, SEgNTL: SETL Macro, $$ESETL (5 cf 5) 



* * 

* A3 * 



****Ai ********* 

* ISAM RETRVE * 

* BUILD ROUTINE * 

* * 
*************** 



***************** 

**** 

* * 

* CI * 

* ♦ 
**** 

X 
*****ci ********** 

* * 

* GET OP CODE * 

* BYTE FROM * 
♦BUILDER CONTROL* 

* CODE * 
***************** 



*****A3 ********** 



***************** 



*****B3 ********** 
♦DETERMINE DATA * 

* LENGTH USING * 
♦BUILDER CONTROL* 

* CODE * 

* * 
***************** 



*****C3*** ******* 

* * 
♦STORE LENGTH IN* 
*CCW BYTE COUNT * 

* FIELD * 

* * 
***************** 



.*. 
Dl *. 

TIC '*. YES 
OP CODE .*....• 


TICRTS 

♦****02****^***** 

* DETERMINE * 

* ADDRESS FIELD ♦ 
...X* FOR TIC * 


X 
*****03 ********** 
* * 
♦UPDATE TO NEXT * 
♦BUILDER CONTROL* 


.* 


* INSTRUCTION * 


♦ CODE FIELD * 



*****E1********** 

* GET ADDR * 

* OF I/O AREA * 

* FROM BUILDER * 

* CTL CODE * 

* * 
***************** 



Fl ♦. 

.* READ *. 
* COUNT OP *. YES 

CODE IN CTL .*.... 
*. CODE .* 



* STORE ADDR * 
♦I/O AREA IN CCW* 

* DATA ADDR FIELDS 

* * 
***************** 



*****H1 ********** 

* DETERMINE CCW * 

* OP CODE FROM * 
♦BUILDER CONTROL* 

* CODE * 

* * 
***************** 



***'**ji ********** 



***************** 



*****KI********** 

♦ GET FLAG ♦ 

♦ CHAR FROM ♦ 

♦ BUILDER * 

♦ CTL CODE * 

♦ * 
***************** 



***************** 



***************** 



.* END OF 
COMMAND 
*. CHAINING 



*****p 2*** ♦*♦**♦* 

* * 

* GET ADDRESS * 
X* OF READ * 

* COUNT AREA * 

* * 
***************** 



***«*P3 ********** 

* * 

* GET NEXT CCW * 

* ADDRESS * 

* * 

* * 
***************** 

X 
♦ *** 

* * 

* CI ♦ 

* * 
**** 



♦***A 5********* 

* ISAM RETRVE * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
«»******«****** 



EXCPROUT X 

*****g5********»* 

* MOVE LOGICAL * 

* UNIT FROM ♦ 
*DSKXTN TABLE TO* 

* CCB * 

* ♦ 
***************** 



*****QCi********** 

* MOVE BB FROM * 
*DSKXTN TABLE TO* 

* SEEK AOORf * 

* SEKADR * 

* * 
***************** 



***D5*********** 



***************** 



*****g4********** 



***************** 



*, 
♦ 
_ 
COMPLETE 



.*. 
*****P4****«***** p5 *, 

* RESTORE * .* *. 

* SEEK/SEARCH * YES .* WAS *. 

* BUCKET WITH *X *. COUNT FIELD .* 

* SAVED COUNT * *. SAVED .* 

* * *, , * 
***************** *, ,* . 

* NO 

I xl 

X 
TSTDASD .*. 
**G4******* G5 *« 

♦ * .* *. 

* TURN ON * YES .* DASD *. 
.* DASD ERROR *X... *. ERROR .* 

* INDICATOR * *. .* 

* * *. .* 
*********** *, ,* 

* * NO 



WRONG *. 
LENGTH 
RCD .* 



♦*J4******* 

* * 
*TURN ON WRONG* 

* LENGTH * 
* INDICATOR * 

* * 
*********** 



* KA *.X 

* * 
**** 



****K4********* 

* SVC 11 ♦ 

* TO PROBLEM * 

* PROGRAM * 
*************** 



NO 

RECORD 

FOUND 



***** 
*GJ * 
* H4* 



♦*»*K5********* 

* RETURN TO ♦ 

* CALLING * 

* ROUTINE * 
*************** 



**** 

* * 

* A3 ♦ 

* * 
**** 
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Chart GM. ISAM RETRVE, SEQNTL: SETL Macro, $$ESE'IL1 (1 of 5) 



**** 

* * 

* A3 * 

* * 



♦***A1»******** 

* ISAM RETRVE * 

* SETL MACRO * 

* $$BSETL1 * 



Bl 



«♦ 



*. 



KEY 

.SPECIFIED IN . 

*. SETL .* 

*, MACRO.* 

*. .* 

* NO 



.♦ KEY * 

♦.SPECIFIED IM 
*. SETL .* 
♦.MACRO.* 



DI *, 

.* *. 

.* BOF ». 

♦.SPECIFIED IM . 

*. SETL .* 

♦.MACRO.* 

*. .* 

♦ NO 



VALID 
STARTING 
. ID SPEC 



♦ MODIFY CCW ♦ 

♦ CHAIN TO SRCH * 
.X^ KEY EQ OR HI * 

♦AND MOO COMPARE* 

♦ BR INST * 



***** 

♦GN * 

* B4* 

* * 



* MOVE STARTING * 

* RECORD TO * 

* SAVE AREA * 
« * 
*««****««««««<(««* 



4c****B3 ********** 
♦ELDER GQ^ 
♦_♦_*_«_♦_♦_»_♦_* 

♦ BUILD CCW ♦ 

♦ CHAIN ♦ 

♦ * 
«4i«*4t***** ******* 



**C3******* 

* SET SWITCH 
* FOR SVC 35 

* HOLD TRACK 

* * 

«**««««**** 



«*«**D3 ********** 
*EXCPROUT GR* 

* HOLD TRACK * 

* * 

* * 

*:jt«4(«4'** ********* 



* REFERENCES 
TO GME3: 
GPEI, GPHl 



* ** COMMON 





Fl *. 




«**«4cF2********** 




.* RCD * 




♦ MOVE FIRST * 


* 


ID IN 


*. YES 


* DATA RCD ADDR * 




TRK INDEX 
. AREA 




«.,.X* TO STARTING * 


* 


* 


* RCD ID * 




*. ,* 




* * 




*. .* 




*« * Ke*« ** «* «« 4^* *♦* 




* NO 




* **** 
, * * 

..X* A3 * 
* * 








**** 








TESTNORM . *. 




Gl *. 




G2 *. 




.♦SHARED * 




.* RCD *. 


* 


TRACK ON 


♦ . NO 


.♦ ID ON ♦. 




FILE 


•*• • • • 


....X*. PRIME DATA .♦ 


* 


* 


X *. TRACK .♦ 



.♦. 


RZEROR X 


F3 ♦. 


«4'F4^^***** 


.♦ *. 


* 


.♦ STARTING ♦. YES) 


( * RESET 


*. CYLINDER GT .♦... 


♦ RZERO 


♦. 256 .♦ 


♦ SWITCH 



.♦, 

HI ♦. 

♦ RCD *. 

ID ON 

SHARED 

TRACK . 

*, ,* 

*. .♦ 

♦ YES 



RCD 
NUMBER ON 
. TRACK . 



H2 ♦. 

.* RCD ♦. 

.♦ NO. ON ♦. NO 

♦. PRIME DATA .♦.., 

*. TRACK .♦ 

*. .♦ 



♦ YES 

..xl 

X 
**** 

* * 

* A3 * 

* * 
**** 



**** 

*GN * 

♦ D2 ♦.X 



**** 

X 

*«K^1 «««:((«*« 
* * 

* TURN ON ♦ 
.X^INVALID RECORD ♦. 

* ID SWITCH * 



**** 

* ♦ 

* Kl * 

* ♦ 
**♦* 



««*««*««*** 



««*«K2^^* *♦♦♦♦♦ 

♦ SVC 11 ♦ 

♦ TO PROBLEM ♦ 

♦ PROGRAM ♦ 

**«3(C)^ «« 4c*** ** ** 



**:«t4t*G3********** 

* * 

* SET UPPER * 

* LIMIT OF * 

* CC TO X'FF» * 

* * 
*#«#**«**«*****«* 



*«**«H3********** 

* GET TRACK * 

* NUMBER FROM * 

* STARTING RCD * 

* ID * 

* * 

«4e*************** 



*****J3«**«»*«««« 

* ADO ONE TO * 

* TRK NO. AND * 
*GET TRK NO. OF * 

* 1ST DATA RCD * 

* IN CYLINDER * 
««««** «« ** ** *** ** 



*««:ic «K3********** 
*SUB NO. OF 1ST * 

* DATA RCD TRK * 

* FROM STARTING * 



«****A4********** 

* GET HIGH * 

* RECORD NO ♦ 

* ON TRACK ♦ 

* INDEX TRACK ♦ 

* * 



«* 4! «4t B 4* * * ** *** ** 

♦ DIVIDE RESULT ♦ 
♦BY HIGH RCD NO .♦ 

♦ ON TI TRK AND ♦ 

♦ STORE QUOT AS ♦ 
♦TI OVFL TRK NO.^ 
«««(*** *********** 



***««C4********** 
♦STORE REMAINDER* 
♦AS TRACK INDEX ♦ 

♦ OVERFLOW RCD ♦ 

♦ NO. FOR ♦ 

♦ STARTING RCC I D^ 

^^c^c************** 



.♦ OVERFLOW *. NO 
RECORD .♦... 

♦. RZERO .♦ 



«****E4*********« 



4::(c#3tt*«4t*«**««**4i* 



««3|c««4t««*«« 



***** 

*GN * 
* Bl^ 
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Chart GN. ISAM RETRVE, SEgNTL: SETL Macro, $$ESETL1 (2 of 5) 



REFERENCES 
TO GNBl: 
C-MF4, GPF4 



*GM ♦ 
* CI* 



* B5 * 

* ♦ 



.STARTING*. 
MO .* ROD ID ON 
...*. FIRST DATA 
*.RCD TRACK. ^ 



***♦*£! ********** 

* MOVE HIGH * 

* ROD NO. ON * 

* SHARED TRK * 
*SAVE ADDR AREA * 
*TN DTFIS TABLE * 
***************** 



NORMAL 

*****£!*****♦*♦** 

* MOVE HIGH ROD * 

* NO. ON PRIME * 

* DATA TRK TO * 
*SAVE ADDR AREA * 

* IN DTFIS TBL * 
***************** 



*****C2********** 

* * 

* SET STRIP NO. * 

* FOR END OF * 

* VOLUME LIMIT * 

* TO 5 * 
***************** 



RCD ID *. 


YES 


GT END OF , 


*.... 


VOLUME .* 




*. ,* 




*, ,* 


X 


* NO 


***** 




*GM * 


...X. 


* Kl* 



* INDEX * 

TRACK STILL 
*. HELD .* 



***** 
*GQ * 
* D4* 



****p 2*** ****** 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



**** 

* * 

* 82 * 

* * 
**** 



KEY ROUT X 

*****{i4«********* 

* MOVE MASTER * 
♦INDEX START ID * 
*T0 SEEK/SEARCH * 

* ADDRESS AREA * 

* IN DTF TBL * 
***************** 



***♦*£; 4***** ***** 

* SET RECORD * 

* NUMBER IN * 

* SEEK/SEARCH * 

* ADDRESS TO * 

* ZERO * 
***************** 



MASTER *. YES 
INDEX ON .*.., 
. FILE .* 



*****£4.********** 

* MOVE CYLINDER ♦ 
*INDEX START ID * 
*T0 SEEK/SEARCH * 

* ADDRESS IN * 

* DTF TBL * 
***************** 



*****F4********** 
*BLOER GQ* 

*_*_*_*_*-.*-*_*-.* 

* BUILD CCK * 

* CHAIN * 

* * 
***************** 



FINDNXT X 

*****B5«*******«* 

* MOVE NEXT * 

* SEARCH ID TO * 

* SEEK/SEARCH * 

* ADDRESS AREA * 

* * 
***************** 



*****C5********** 

* * 

* GET F CODE * 

* FROM NEXT ♦ 

* SEARCH ID * 

* * 
***************** 



*****D5***«****** 

* GET INDEX * 

* ENTRY TYPE * 
*FR0M F CODE OF * 

* NEXT ID. SEE * 
♦TBL AT LOC *J2 * 
***************** 



.* STARTING • 
. RCO NO. EQ 
*. ZERO 



*****H1 ********** 

* * 

* SUBTRACT ONE * 

* FROM RECORD * 

* NUMBER * 

* * 
***************** 



*****jl********** 

* * 

* MOVE BLOCKING * 

* FACTOR TO * 

* BLOCK COUNT * 

* * 
***************** 



I F CODE 


TYPE OF INDEX ENTRY 


ROUTINE I 


CHART . 
LOCATION. 


.00000000 


NORMAL ENTRY-UNSHARED ' 


NORMLTRK . 


GP 


.OOOOOONN 


NORMAL ENTRY-UNSHARED . INDEX 


GP 


.00001000 


NORMAL ENTRY-SHARED 


SHRDTRK . 


GP 


.00010000 


OVERFLOW ENTRY-END 


OFLORQUT . 


GP 


.00011000 


OVERFLOW ENTRY-CHAINED 


OFLOROUT . 


...^..... 


.00100000 


. DUMMY ENTRY-END ( TI ) 


NORECFND . 


......... 


.OOIOOONN 


DUMMY ENTRY-END 


. NORECFND . 


GP 


.OOIOIONN 


DUMMY ENTRY-CHAINED 


. INDEX 


bP 


.00110000 


. INACTIVE ENTRY (TI) 


. NORECFND - 


GP 


.OOllOONN 


. INACTIVE ENTRY 


. NORECFND . 


GP 



**G4******* 

* SET SW * 
FOR SVC 35 

TO HOLD 
TRACK 

* * 
*********** 



GOTOEXCP X 

*****H4*****«**** 
*EXCPROUT GR* 

*_*_*_*_*_*_*_*_* 

* EXCPf SEARCH * 
*MI, CI, AND TI * 

* * 
***************** 



*****J4********** 



***************** 



*****K4********** 

* MOVE SEEK/ * 

* SEARCH TRACK * 
*AND RCD NO. TO * 

* TRACK INDEX * 

* OVFL ADDRESS * 
***************** 



NN-10 = MASTER INDEX, 01 = CYLINDER INDEX 
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Chart GP. ISAM RETRVE^ SEQNTL: SETL Macro, $$BSE'IL1 C3 of 5) 



****A1********* 

* ISAM RETRVE * 
*GET TR. RECORD * 

* SUBROUTINE * 



NORMLTRK X 

*BLOER GO* 

* BUILD CCW ♦ 

* CHAIN TO READ * 

* RCD * 



**C1******» 
* SET * 

♦ SWITCH FOR * 
♦SVC 35 TO HOLD 

* TRACK * 



****A2*** ****** 

* ISAM RETRVE * 

* SHARED TRACK * 

* SUBROUTINE * 
«4< ******* ****** 



SHROTRK X 

«4(***B2********** 

* SUB ONE FROM ♦ 

* FIRST DATA * 
,...* RECORD NUMBER * 

* FOR SEARCH * 



:«(*«««:(• 4<*** ******* 



****A3 ********* 

* ISAM RETRVE * 

* OVERFLOW * 

* SUBROUTINE * 

«]t<********4!**** 



OFLOROUT X 

itc^^^^cBB*** ******* 

* GET ADDR OF * 

* lOAREAS WHICH * 
*CONTAINS NORMAL* 
*ENTY ASSOC WITH* 

* OVFL RECORD * 

Hc«]|t«#*##:(!3^4i«4:** ** 



«:)::((« «C3 ********** 



**** 

* * 

* B4 * 



OFLOOP X 

«>«««:(cB44c«:(c*«4<**** 

*EXCPROUT GR* 

*-♦-♦_*_*-*_♦-*-* 

* EXCPf READ * 

* OVERFLOW * 

* RECORD * 

«:tc:«c**4^«4i:********* 



:((«:|i«4t:|e««4>** 



JNBLREAD 

«**««oi ********** 
*EXCPRDUT GR* 

* READ * 

* RECORD * 

* * 
^ti**^^'***** ******* 



***** 
*6M * 
* E3* 



4[«««Q 2********* 

* ISAM RETRVE * 

* READ INDEX * 

* SUBROUTINE * 
iHfitatiitt***** ****** 



INDEX 

#:«(:«<#:(<£ 2********** 

*BLDER 6Q* 

*BUILD CCW CHAIN* 

* TO SEARCH TI * 

* IF REQUIRED * 



*GET MBBCCHHR OF* 

* TRACK INDEX * 

* NORMAL ENTRY * 

* * 
#«*************** 


.* OVERFLOW *, NO 
*. RECORD .*..... 
*. FOUND -* 
*. ,* 
*. .* 
* YES 


.* END OF *. YfcS 
...X*. OVERFLOW .*.... 
*. CHAIN .* 

*. .* 

*. .* X 

* HU **** 

. * * 

* H^* 

« * * 

**** 


X 

«*:***03********** 

* SET CURRENT * 

* PRIME DATA * 
*N0. TO HIGH RCD* 
*0N SHARED TRACK* 

* IF REQUIRED * 

««3t:*** *********** 


FOUNDOF X 

:«c«««*D4********** 

* GET ID OF * 

* CURRENT * 

* OVERFLOW * 

* RECORD * 

* * 

;)c«««:je:tc:tc#»4e***** ** 


X 

4::«c*«4c05********** 

* * * * 

* * SVC 36 * * 

* *FREE TRACK * * 

* * * * 

* * * * 

4!*:(:#3tt«:(t« «:******«* 



COMMON 

*****f I ********** 

* GET ADDR OF * 

* lOAREAS * 
♦WHICH CONTAINS * 
*DATA PORTION OF* 

* STARTING RCD * 



***** 

♦GH * 
* G4* 

* * 



INIT4 

#4= >{t«#E3 ********** 

* ADD 2 TO CURR * 
*TI OVFL RCD NO.* 

* TO PT TO NEXT * 

* OVFL ENTRY * 

* IN TI * 

«:ic:«c:|c«:»:4c* ««*i«e4:**** 



*****f^*****:if,^*i^* 

* * 

*GET HIGH RECORD* 
*NUMBER ON TRACK* 

* INDEX TRACK * 

* * 



* POINT TU DATA * 

* PORTION OF * 

* OVFL RECORD * 
*BYPASS SEQUENCE* 

* LINK FIELD * 

«c*:«::4c«##4!********* 



* MOVE * 

* BLOCKING * 

* FACTOR TO * 

* BLOCK COUNT * 

* * 



*****E5********** 

* MOVE NEXT RCD * 

* ID TO SEKADR, * 

* COMMON SEEK/ * 

* SEARCH ADDR * 

* AREA * 

:«<:»: :^«««4c******:ec««:«c 



X 




IJHSBH5 X 


♦****(;i ««#«*«**** 




«««««63«««#«:(c««4c:(i 


♦GET LOC OF KEY * 


****G2********* 


*ADD ONE TO NEXT* 


* IN RCD BY * 


* ISAM RETRVE * 


* TRACK INDEX * 


♦ADDING KEYLOC-l* 


* RECORD SEARCH * 


*OVERFLOW ENTRY * 


* TO ADDR OF * 


* SUBROUTINE * 


* TRACK NUMBER * 


* lOAREAS * 


#*««:4:*«3Mc** ♦**# 


* IF REQUIRED * 


*#«*:************* 




«:(t:^* «« «« «:^:tt**** ** 


**** * 


**** I 




* * , 


*GR * 




♦ HI *.X. 


* K2 *.X. 




* * , 


* * , 




**** X 


**** , 




COMPARE .*. 


NORECFND X 


1JHSBH6 X 


HI *. 


**H2******* 


«#4c**H3 ********** 


,* *, 


* * 


*BLDER GQ* 


EQ .* KEY IN *. HI 


* TURN ON NO * 


♦_*_ ♦_*_ ♦_*_*«♦ _* 


.••*. BLOCK EQ .*... 


.....X* RECORD FOUND * 


* BUILD CCW * 


*. KEYARG .* 


X * INDICATOR * 


* CHAIN * 


*. .* 


* * 


* * 


X *. .* 


«4«»««*4:4c*** 


«««««««*«:((«« 4c«««« 


**** * LO 


**** 




GM * 


* * 




E3* 


* H2 * 




» « 


* * X 




* • 


4c4c«« itf**** 

*GQ * 




X 


* B4* 


X 


4c««««Jl** :((«««*««« 


* * 


**J3******* 


* STORE DATA * 


* 


*SET SWITCH * 


* PORTION OF * 


FREEXIT 


* FOR SVC * 


* STARTING RCD * 




* 35 TO HOLD * 


* IN DTF TBL * 




* TRK * 



***** 

*GN * 
* 81* 



* UPDATE RECORD * 
*PTR, KEY FIELD * 

* PTR, AND * 

* BLOCK COUNT ♦ 

* * 

««#«4c************ 



if:i^itf******** 

X 

**** 

* * 

* B4 * 

* * 
**** 



**** 

* * 

* HI * 

* * 
**** 
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Chart GQ. ISAM RETRVE, SE^NTL : SETL Macro, $$BSETL1 (4 of 5) 



* * 

* A3 * 

* * 



* ISAM RETRVE * 

* BUILD ROUTINE * 

* * 



4t« «««:«<«**«««♦#**« 



**** 

X 

* GET OP CODE * 

* BYTE FROM * 
♦BUILDER CONTROL* 

* CODE * 

* * 



* ***ji«0 2* ********* 

* DETERMINE * 

* ADDRESS FIELD * 
FOR TIC * 

INSTRUCTION * 

* * 



.X* 



#«»««E1********** 

* GET ADDR * 

* OF I/O AREA * 

* FROM BUILDER * 

* CTL CODE * 

* * 



.* READ *. 
.* COUNT OP * 
. CODE IN CTL 
*. CODE .* 



****£ 2********* 

* RETURN TO * 
♦CALLING ROUTINE*X. 

* * 
«4<««4c ♦«♦♦«««♦«« 



»%«4c«p 2* ********* 

* GET ADDRESS * 
X* OF READ * 

* COUNT AREA * 

* * 



««««:((A3 ********** 



*9|ci((«««4t* ♦«*«*♦♦ ♦it' 



*iliiHf*Q3A' ********* 

*DETERMINE DATA * 

* LENGTH USING * 
*BUILDER CONTROL* 

* CODE * 

* * 
**4t*****t********* 



***i)t*CS********** 

* STORE LENGTH IN* 
*CCW BYTE COUNT * 

* FIELD * 

* * 

**7ti#:tfitf*i)i**7H****** 



* * 
♦UPDATE TO NEXT * 
*BUILDER CONTROL* 

* CODE FIELD * 

* * 
**ilf**********iti**i)c 



.* END OF 
COMMAND 
*. CHAINING 



REFERENCES 
TO GQ'B4: 
"GPH2,GSRJ'^ 



FRfcEXIT .*. 




B4 * 




.* HOW 


*. 


ONE .* MANY 


* 


...*. TRACKS 




*. HELD 


.* 


*. 


.* 


*, ,♦ 




*GT 


ONE 



* * SVC 36 * * 

* * FREE * * 

* * CURRENT * * 
TRACK 



♦ * 



♦ ♦ 



***7|^ 

*GN * 

* E2 *,X 

* ♦ 
♦*♦* 

FREEXITl 

***:ttittQ/^***tt:*****ilf 

* * 

♦GET TRACK INDEX* 

* ADDRESS AND * 

* VOL. NO. * 

* * 



* * SVC 36 * * 

* * FREE HELD * * 

* * TRACK * * 

* * * ♦ 

:tl^^:,t'************** 



*****f3********ic:t: 



*^ilf:f ************* 



;^# * »Q 5 ]«( «3t< *« * « « « 

* SVC 11 ♦ 

* RETURN TO * 

* USER * 



♦ STORE ADDR ♦ 
♦I/O AREA IN CCW* 
*DATA ADDR FIELD* 

* « 



««;«4(:(cHI*******^** 

* DETERMINE CCW * 

♦ OP CODE FROM * 
♦BUILDER CONTROL^ 

♦ CODE ♦ 

* * 

:^***i)::t'*********** 



**#**J1 *♦**♦*♦♦** 



i)i*if*itc:tf:^^i)iif ******* 



«:tc:«c4<*K !♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ GET FLAG CHAR ♦ 

♦ FROM BUILDER ♦ 

♦ CTL CODE * 

♦ * 

i!,,:i:7lfif:ti:t:4:********** 



«««:(> 4(G4********** 

* ♦ 

* RESTORE OVFL * 

* ID AND SYS * 

* NUMBER * 

* * 



«:«c:«c4'H4********* 

* SVC 11 * 

* RETURN TO * 

* USER * 
4i ;«(♦«♦♦«**«♦♦«♦* 
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Chart GR, ISAM RETRVE, SEQNTL : SETL Macro, $$BSETL1 ( 5 of 5) 



♦***A2********* 

* ISAM RETRVE * 

* INPUT/OUTPUT * 

* SUBROUTINE * 



EXCPROUT 

♦****B2*** ^****** 

* MOVE LOGICAL * 

* UNIT FROM * 

* DSKXTN TABLE * 

* TO CCB * 

* * 



* MOVE 38 FROM * 

* DSKXTN TABLE * 

* TO SEEK ADDR, * 

* SEKADR * 

* * 
4t* *Ke4t4( 3»i* *« 4<« Xt* «♦« 



♦♦*D3************ 



.* SVC 35 ♦. NO 
*. SWITCH .♦... 

*. ON .* 



^:ti1tt****t********* 



«4t«4c«E 2*** ♦*♦*♦** 

* * ♦ * 

* * SVC 35 * * 

* * HOLD * * 

* * TRACK ♦ * 

* * * * 



««4i4t *F 3**'4< =(<«*♦*«« 



4c««4t««44'*«*««#4c«« 



.*. 

G2 *. ♦♦♦**G3********** 

.* *. * RESTORE * 

.* WAS *. YES * SEEK/SEARCH * 

*. COUNT FIELD .* X* BUCKET WITH * 

*. SAVED .* * SAVED COUNT * 

*, ,* * * 

* NO 

*.X.. ........I 

X 
TSTDASD .*. 

HZ *. **H3******* 

,* ♦, ♦ * 

.* DASD *. YES * TURN ON * 

*. ERROR .*........X* DASD ERROR *. 

*, .* * INDICATOR * 

*, ,* * * 

♦, .* ♦*♦♦**♦**** 

* NO 



J2 *. 


J3 *. 


♦*J4*#***#* 






« *. 


,* *. 


* ♦ 






WRONG *. YES 


.* *. NO 


* TURN ON * 






LENGTH .* 


..X*. CAUSED BY EOF.* 


...X* WRONG LENGTH * 


..X 




RCD .* 


♦ . .* 


* INDICATOR * 






K, ,♦ 


*. .* 


* « 






*. .* 


♦ . .* 


«4c:tc:((««««:tc4::je 


X 


* NO 


♦ YES 




«♦««* 








*GQ * 








* B4* 








* * 


*x ,. 






* 


K2* '*. 




FREEXIT 








It *, 


****K3********* 






NO *. 


* RETURN TO * 






RECORD .*..... 


..X* CALLING * 






FOUND .* 


* ROUTINE » 






k. .* 


1tf**:filf********** 






*. •* 








* YES 








Tnorecfnd 

X 














*GP * 








* H2* 








* * 
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Chart HA. ISAM RETRVE, SEQNTL and ADDRTR: Subroutines (1 of 2) 



* * 

* A4 ♦ 

* * 



♦*«*A1********* 

* ISAM RETRVE * 

* WORK AREA * 

* SUBROUTINE * 



«4<«#««4t4e««s«(««4<**# 



* GET ADDRESS ♦ 

* OF I0AREA2 * 

* tlOAREAR) * 

* IF REQUIRED * 

* * 



IJHSWKAD 

* GET ADDRESS * 

* OF WORK AREA ♦ 

* AND LOGICAL * 

* RECORD LENGTH * 

* * 



* MOVE KEY TO ♦ 

* WORK AREA AMD *' 
♦UPDATE I/O AREA* 

* POINTER BY KL * 

* IF REQUIRED * 



» ANY *. NO 
BYTES TO BE .*... 
*. MOVED .* 



IJHCREST X 

* HOVE 256 * 

* BYTES TO * 

* DESIGNATED * 

* LOCATION * 

* * 



IJHCTSER 

««4c««Hl*4c*****4<** 

* CALCULATE * 

* THE NUMBER * 
*0F BYTES TO BE * 

* MOVED MINUS * 

* ONE ♦ 



♦MOVE REMAINING ♦ 

♦ PORTION OF ♦ 

♦ FIELD TO ♦ 

♦ DESIGNATED ♦ 

♦ LOCATION * 



«4c**Kl ♦♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLING * 

♦ ROUTINE ♦ 



♦♦♦*A2+** *♦♦**♦ 

* ISAM RETRVE * 

* SET DTF PTRS ♦ 

* SUBROUTINE ♦ 



IJHSBHIN 

♦♦♦♦j»:B2 **♦ ******* 

* UHCINIT EG* 

*_, *_ :J6-. *_ *- *- *- *-* 

* INITLZE PTRS * 

* TO PARTS * 

* OF DTF TABLE ♦ 
*4c**** *********** 



*****C 2********** 

* GET * 

* SEQUENTIAL * 

* RECORD * 

* COUNTER FROM * 

* DTF TABLE ♦ 
«*«******««***«*)([ 



*****D2********** 

* GET ADDRESS * 

* OF CURRENT * 

* SEQUENTIAL * 

* I/O AREA * 

* ♦ 
4(***** *********** 



****E 2********* 

* RETURN TO ♦ 

* CALLING * 

* ROUTINE * 
*«**«»********* 



*:jc**F:2******«** 

* ISAM RETRVE * 

* CHECK FOR PUT * 

* SUBROUTINE * 

>tC!t<4<************ 



IJHSINT X 

*****G2********** 
♦IJHSPUT2 HB* 

#_ #_ *_ #_ *- *_ *_ #_ Iff 

* WRITE ♦ 

* RECORD * 

* IF REQUIRED * 
***************** 



**H2******* 

* TURN OFF * 

* BIT IN DTF 
* FOR PUT 

* MACRO 

* ISSUED ♦ 
*********** 



****J2*** ****** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
««*«^4'* ******** 



****A3********* 

* ISAM RETRVE * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
*************** 



IJHCXWTH 

*****B3 ********** 
*IJHCXCPH EG* 



***************** 



***** 

*EE * 
* C4* 



♦***03 ********* 

* ISAM RETRVE * 

* UPD. RCD ADDR * 

* SUBROUTINE * 
*********«)(<*i((*4< 



«***4cA4********** 

* INITIALIZE * 

* CYLINDER * 

* NUMBER FOR * 

* NEW VOLUME * 

* TO 1 * 

*«««;«( «t:te«;4e*«****#« 



*****B4********** 

* SET SECOND * 

* C-BYTE TO * 

* UPPER LIMITS * 

* GET CURRENT * 

* M-NUMBER * 

«!*:4c :<(#***«*** ***** 

**** 



**** 
IJHSEXl X 

*****(;;4********** 

* * 
♦UPDATE CURRENT * 

* BYTE VALUE * 

* BY ONE ♦ 



*****04*****#**** 

* SET HR OF * 

* CURRENT TRACK * 

* INDEX ENTRY * 

* TO X'0002» * 

* IF REQUIRED * 

4<*#«3)c«:4(********** 



****A 5 ********* 

* ISAM RETRVE * 

* INPUT ♦ 

* SUBROUTINE * 

:tc**3tc*********** 



***************** 



♦****C 5 ********** 

* * 

* GET ADDRESS * 

* OF I0AREA2 * 

* (lOAREAR) * 

* IF REQUIRED * 



*ADD KEY LENGTH * 

* TO I/O AREA * 

* ADDRESS * 

* * 



IJHSEOT X 


X 


IJHSBH29 .*. 


♦*#**E3 ***♦*****♦ 


4t***:^E4**]|c4(**3(c**« 


E5 *- 


* * 


* MOVE RECORD * 


,* *, 


* INITIALIZE * 


♦ NUMBER LIMIT * 


.* HOLD *. YES 


* POINTERS AND * 


* TO CURRENT * 


*. =YES .*.... 


* COUNTERS * 


* DASD ADDRESS * 


*. *H4 •* 


* * 


* IF REQUIRED * 


*. . * . 


*************** ** 


***4(***«********* 


*. .* X 
* NO ***** 








*HB * 








* Bl* 
* * 


...X^ 






• * 

IJHSBILD 


IJHSNXT X 






X 


:t<««*4<f:3***«!«c3|(«*** 


X 


***>{t3J«P3********#* 


* GET BYTE * 


*«;(( 3»c p 4* * :te :ic ««*:«( * 


*IJHSBILD HB* 


* FROM CURRENT * 


* RETURN TO * 


*_*_*_*_♦_*_#-«_♦ 


* DASD ADDRESS * 


* CALLING * 


* BUILD CCW * 


* AND ITS LIMIT * 


« ROUT 


FINE * 


* CHAIN TO READ * 



***************** 



* HAS 

LIMIT BEEN 
*. REACHED . 



***««H3 ********** 

* * 

* SUBTRACT * 

* ONE FROM * 

* COUNTER * 

* * 
***************** 



*****♦♦**♦♦**♦ 



*H4 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*****G5 ********** 

*IJHCEXWT Efc* 
*_*_*_*_*_*_*_*_* 

* EXCP, READ * 

* RECORD * 

* * 
***************** 



**H5******* 

* TURN OFF * 
♦BIT FOR FIRST* 

* RECORD BEING * 
* PROCESSED * 

* * 
*********** 



****J5********* 

* RETURN TO * 
*CALLING ROUTINE* 

* ♦ 
*************** 



IJHSMOV 

*****K3********** 

* MOVE * 

* CORRESPONDING * 
...* INITIAL VALUE * 

* FOR BYTE TO * 
*CURRENT ADDRESS* 
***************** 
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Chart HB. ISAM RETRVE, SEQNTL and ADDRTR: Subroutines (2 of 2) 



ISMOD MACRO PARAMETER 
OPTAIN. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



****Al********* 


■ 


* ISAM RETRVE * 




* BUILD * 




* SUBROUTINE * 




iin^A'************ 




♦*** ', 




*HA * 




* E5 *.X. 




♦ * . 




**** X 




JHSBILD .*. 




81 *. 


^^'^^^BZ********** 


.* *. 


* SET UP TO * 


.* I0AREA2 *. YES 


* RETURN TO * 


*. =YES .*..... 


..X* CALLING * 


*. *A2 .* 


* ROUTINE * 



*****ci ********** 

* INITIALIZE * 

* SEEK/SEARCH * 

* ADDRESS AND * 

* READ/WRITE ♦ 

:tc :«c :f * 4: :«c ite 3j( 4(:jc ^ « « « :(c 4c 4c 



4:4c:jc«4=Dl ********** 

* DUPLICATE * 

* SEARCH, TIC * 
*AND READ/WRITE * 

* CCWS FOR * 

* VER OPERATION * 

4c:^:i<»«:«(«4'*ai<«4!4e««4c:(c 



*»***E1********** 

* INSERT * 

* COMMAND CODE * 

* AND FLAG * 

* BYTE IN CCW * 

* * 



* SET DATA * 

* ADDRESS FIELD * 

* IN TIC CCWS * 

* TO *-8 * 

* * 
***************** 



UHSBLTI 

* SET BYTE * 

* COUNT FIELD * 

* OF READ * 

* CCW TO 10 * 

* IF REQUIRED * 
***************** 



*****H1*******»** 
♦MOVE ADDRESS OF* 

* WORK AREA TO * 

* DATA ADDRESS * 

* FIELD OF * 

* READ CCW * 



Its :ii4t ******* ******* 



IJHSHERE 

*«#*#C2********** 

* SET UP * 

* POINTERS TO * 

* BUILD CCW * 

* CHAIN * 

* * 
***************** 



****#02* ********* 
*INSERT ADDRESS * 
*0F SEEK/SEARCH * 

* ADDRESS IN * 

* SEARCH CCW * 

* * 
***************** 



IJHCCWS X 

*if**:lli[^^it, ********* 

*INSERT ADDRESS ♦ 

* OF I0AREA2 * 

* OR I DARE AS IN * 

* READ/WRITE * 

* CCW * 
***************** 



4c4c*«*B3 ********** 

* * 

* GET ADDRESS * 

* OF I/O AREA * 

* TO BE USED * 

* * 
***************** 



* CALCULATE * 

* CCW DATA * 

* FIELD LENGTH * 

* ♦ 
***************** 



* ADD 2 TO CCW * 

* DATA LENGTH * 

* FIELD * 

* IF REQUIRED * 
***************** 



* MOVE DATA * 
.* LENGTH TO * 

* READ/WRITE * 

* * 
***************** 



****fi^fy********* 

* ISAM RETRVE * 

* OUTPUT * 

* SUBROUTINE * 
*************** 



*****Q^********** 

* MOVE CURRENT ♦ 

* ADDRESS TO ♦ 
SEEK/SEARCH ♦ 

* ADDREi>S * 

4c * 

***************** 



.X* 



*****f 2********** 
*IJHCEXCP EH* 

*-*-*-*-*-*-*-*-* 

X* EXCP, READ * 

* RECORD * 

* * 
***************** 



*****G2* ********* 

* * 

* SAVE I/O * 

* AREA ADDRESS * 

* IF REQUIRED * 

* * 
***************** 



.* FIRST * 

.RECORD BEING 
*. PROCESSED.* 



***** 
*GB * 
* C5* 



**Qi^******* 

* * 

SET EOF 

SWITCH 

IF REQUIRED 

* * 
*********** 



*****^^********** 
*IJHCWAIT EE* 

* WAIT FOR I/O * 

* COMPLETE AND * 
♦TEST FOR ERRORS* 
***************** 



*****fif********** 

* MOVE CURRENT * 

* ADDRESS TO * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



IJHSOVFL 

*****Q4lt********** 

* MOVE REQUIRED * 
♦RECORD ADDRESS * 
*T0 SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



IvJHS210P 

**H4******* 
*MODIFY I/O * 

* AREA BIT IN 
* DTF TABLE 

* IF REQUIRED 
* * 

*********** 



**J2******* 

* TURN OFF * 
*FIRST RECORD * 

*BEING PROCESSED* 
* BIT IN * 

* DTF TABLE * 
*********** 



X 
***** 
*GB * 
* D3* 



****Kl********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



«****C 5********** 

* MOVE CURRENT * 

* OVERFLOW * 
♦RECORD ADDRESS * 
♦TO SEEK/SEARCH ♦ 

* ADDRESS ♦ 
***************** 



*****0 £»*****♦♦♦♦♦ 
♦IJHSBILD HB^ 
*_*-*-♦-*_♦_♦_*_♦ 

♦BUILD CCW CHAIN* 

♦ TO WRITE DATA ♦ 

♦ ♦ 
***************** 



*****E5********** 

* ♦ 

* SAVE ADDRESS ♦ 

* OF I/O AREA ♦ 

* IF REQUIRED * 

* ♦ 
***************** 



*****P5********** 

* SET RCD TYPE * 

* AND OPERATION ♦ 

* INDICATOR TO * 

* WRITE DATA * 

* * 
***************** 



**Q5 ******* 

* MODIFY I/O * 
AREA BIT IN 

* DTF TABLE ♦ 
*IF REQUIRED* 

*********** 



****4^5********** 

♦IJHCEXWT ££♦ 
*_*_*_*_*_*_*-.*_* 

* EXCP, WRITE ♦ 

* RECORD ♦ 

* * 
***************** 



*****J5********** 

♦ MOVE CURRENT ♦ 

♦ OVERFLOW ♦ 
♦RECORD ADDRESS ♦ 
♦TO SEEK/SEARCH * 

♦ ADDRESS * 
***************** 



****K5 ********* 

* RETURN TO * 
♦CALLING ROUTINE^ 

♦ * 
*************** 
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Chart J?^. 



ISAM ADDRTR: ESETL Kacro 



****A1 ********* 

* ISAM AODRTR * 

* ESETL MACRO * 

* * 

^r^e^^^c********** 



RDONLY *. YES 
=YES .*.... 

*A2 .* 



ISMOO MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN 
AN ASSEMBLY LISTING 



* SAVE USER * 

* REGISTERS * 

* 2-14 * 

* * 
***************** 



♦****D1 ********** 

* ESTABLISH * 

* REGISTER 14 * 

* AS SECOND * 

* BASE REGISTER * 

* * 
***************** 



IJHSESTL 

*****£ X ********** 
*IJHSBHIN HA* 
*_*_*_*_*_*_*_*_* 

* INITIALIZE * 

* POINTERS TO * 

* PARTS OF DTP * 
***************** 



♦*F1******* 

* TURN * 
OFF GET 
ISSUED 
SWITCH 

* * 
*********** 



*_*_*_*_*_*_*_*_* 



***************** 



IJHESTLB 

*****Q2*** ******* 

* STORE USER ♦ 

* REGISTERS * 

* 2-14 IN * 

* SAVE AREA * 

* * 
***************** 



I0AREA2 

=YES 

*A2 



**C3*****«* 

* SET FIRST * 
♦RECORD BEING * 

* PROCESSED BIT 
*1N DTF TABLE * 

* * 
*********** 



**03 ******* 

* * 
RESET I/O 

AREA BIT IN 
DTF TABLE 

* * 
*********** 



.X 



HOLD 

=YES 

*A2 



*****P3 ********** 

* * * * 

* * SVC 36 * * 

* * FREE HELD * * 

* * TRACK * * 

* * * * 
***************** 



.* WAS *. 

PUT 

*. ISSUED .* 



.X* 



**** 

* * 

* B3 * 

* * 
**** 



*****H2********** 
*IJHSPUT2 HB* 
*_*_*_*_*_*_*_*_* 

PUT * 
ROUTINE * 
* * 

***************** 



**j2******* 



*********** 



* RESTORE USER * 

* REGISTERS * 

* 2-14 * 

* * 
**** ****** ** *** ** 



****j3********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



* RESTORE USER * 

* REGISTERS ♦ 

* 2-12, 14 * 

* « 
***************** 
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Chart JB. ISAM ADDRTR: SET Macro (1 of 4) 



****A1 ********* 

* ISAM ADDRTR * 

* GET MACRO * 

* * 



.* RDONLY 
*. =YES 
*. *A2 



*A2 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* ALL ♦ 






.* FIRST ♦ 


RECORDS 


♦ 


NO 


.* RECORD 


IN BLOCK 






*. BEING 


PROCESSED 


* 




♦.PROCESSED 


*. .* 






*. .* 


*, ,* 




X 


*. .* 


* YES 




***** 

*JE * 

* B4* 

* * 

* 


* NO 




UriSbHl2 





* SAVE USER * 

* REGISTERS * 

* 2-14 * 

* ♦ 
*«4<*****«*****4(** 



IJHSGETB 

*ilf***C2********** 

* STORE USER * 

* REGISTERS * 

* 2-14 IN * 

* SAVE AREA * 

* * 

iii*:^**i^f;tt********** 



:4c4c«4<*01********** 

* ESTABLISH * 

* REGISTER 14 * 

* AS SECOND * 

* BASE REGISTER * 

* * 
**^4'************* 



IS 


3ET 


.*. 
El * 

* 




* 


RDONLY 


* 




=YES 




*. 


*A2 



* REFERENCES 
TO JBE4: 
JDGl, JEK2 



4c#«3et«E2********** 

* INTERCHANGE * 

* POINTER TO * 
.X* SAVE AREA AND * 

* CONTENTS OF * 

* REGISTER 13 * 

*^l^*:f************ 



itc4c#««B3********** 
*IJHSINT HA* 

#_*-*_♦_*_*_*_♦_» 

* CHECK IF * 

* PUT ISSUED * 

* * 

#4= :»**«****«****«« 



I0AREA2 

=YES 

*A2 



:(c4c«4c4cB4********** 

*IJHCWAIT EE* 

* WAIT FOR I/O * 

* COMPLETE AND * 
♦TEST FOR ERRORS* 

*,lli:l^:f************* 



IJHSWOR 

* SAVE RECORD * 

* ADDRESS ♦ 

* (CHHR) ♦ 

* FOR PUT * 

:tc * 
**:t:************** 



«:^:ic:««Ab********** 

* MOVE CURKtNT * 
♦RECORD ADDRESS * 
*TU SEEK/SEARCH * 

* ADDRESS * 

* * 

^:t,^ilf!7i:**********^f3l^ 



4c**««B5********** 

♦IJHSGET2 HA* 

* READ NEXT ♦ 

* RECORD * 

* * 



IJHSREDO .*. 








03 *. 








.* *. 








.* PREVIOUS 


* 


. yES 




*. RECORD IN 




*.... 




*. OVERFLOW . 


* 






*.AREA .* 








*. .* 




X 




* NO 




***** 






*JE 


* 



* *.x 



X 
***** 
*JC * 
* A3* 



I0AREA2 *. NO 
=YES .*... 

*A2 .* 



D5 *. 

.*RECORD *. 

.* RETRIEVED *. 

FROM 

♦.OVERFLOW .♦ 

♦.AREA .* 

♦ . .* 

* YES 



IJHSGETl 

«)»C#3i(«Fl ********** 

♦IJHSBHIN HA* 

* INITL2E PTRS * 

* TO PART OF * 

* DTF TABLE * 

*4c*4(*****«***«**« 



**G1 ******* 

* SET * 

* SWITCH * 
*T0 INDICATE GET* 

* ISSUED * 

♦ * 

i)C********** 



I0AREA2 

=YES 

*A2 



.* PREVIOUS *• 

*. RECORD IN . 

♦.OVERFLOW .* 

*.AREA .* 



**** 

* * 

* Kl *.X 

* * 
**** 

X 

* * 

* GET * 

* BLOCKING * 

* FACTOR * 

* * 



* * 

* A3 * 

* * 
**** 



.* PREVIOUS *. NO 
*. RECORD IN .*.., 
♦.OVERFLOW .* 
*.AREA .* 



* PRIME * 

DATA DEVICE 

*. 2321 .* 

*. .* 



* INITIALIZE * 

* STRIP * 

* UPPER LIMIT * 

* TO 9 * 

* * 

3tt«**************« 



.* CURRENT *. yES 
. RCD IN LAST .*..X 
*. SUBCELL .* 



««#««H3 ********** 



««;{( 4e «4: «« «« 3ei:(c :((«« «4c 



**** 

IJHSRETB 

3(t3te«4c:t(E4********** 

*iJHSEOT HA* 
♦_♦_*_*_*_*_*_*_* 
*UPDATE CURRENT * 
♦RECORD ADDRESS * 
* * 

******7lf****^,t:1lf^:tii)i 



HOLD 

= YES 

*A2 



***** 
*JE * 
* Bb* 



«««:(c«E 5 ********** 

* * 

* ADD 10 TO * 

* CURRENT I/O * 

* AREA ADDRESS * 

* * 



***** 
*JE * 
* D5* 



. *. 


. IJHSNO .*. 


J2 *. 


J3 *. 


.* USER *. 


. * = 


RECORD *. NO 


.* I0AREA2 


OVERFLOW .*..X 


*. =YES 


. RECORD .* 


*. ♦A2 



2 I/O 
AREAS 

PRESENT 



***♦ 

* * 

* D4 ♦ 

* * 
**** 



_♦_*_*_*_*_*-*_« 



4c:jc:ic«:et«:it4c:tc««:Cc***** 



4c :«( « «:ic J 4* « :j( * * ** * ** 

♦IJHCXWTH HA^ 

*_*_*_:((_*_#_*_*_* 

* HOLD INDEX * 

* TRACK * 

* * 
***************** 



*****K4********** 

* * * * 

* ♦ SVC 36 ♦ ♦ 

* ♦FREE INDEX * * 

* * TRACK * * 

* * * * 
***************** 



****G5********* 

♦ ISAM ADDRTR ♦ 

♦ INPUT * 

♦ SUBROUTINE * 
*************** 



IJHSGETH 

*****H5********** 

* ESTABLISH * 

* RETURN FROM * 

* CCW BUILDER * 

* AND SET UP * 

* FOR GET * 
***************** 



*****j5********** 

♦IJHCXWTH HA^ 
*_*_*_*_*_*_*_*_* 

♦ EXCP, HOLD ♦ 

♦ WAIT ♦ 

♦ * 
***************** 



****K5********* 

♦ RETURN TO ♦ 
♦CALLING ROUTINE^ 

* * 
*************** 
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chart JC. ISAM ADDRTR: 



SET Macro (2 of 4) 



*A2 
ISMOD PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***** 

♦ JE * 

* C5* 



IJHSBH13 X 

*****PX********^** 
*IJHSWORK HA* 

*MOVE RECORD T3 * 

* WORK AREA * 

* * 
***************** 







*JB * 








* D4* 








* * 








* 








X 




IJHSEOTR 


,*. 








^3 *. 






.* 




*, 


NO 


.* 


HOLD 


*. 


. .. * 




=YES 






*, 


*A2 


.* 



***** 
*JE * 
* FI* 



**4:**A4«********* 

* * * * 

* * SVC 36 * * 

* * FREE HELD * * 
TRACK • • 



* * 



* * 



**** 

* * 

* 84 * 

* * 
**♦* 



* *,X 



REFERENCES 
TO JCCl: 
JEFS, JFD3 



**** 
IJHSBH17 

«****Cl********** 

* STORE RECORD * 

* COUNT AND * 

* CURRENT I/O * 
♦AREA ADDRESS IN* 

* DTF TABLE * 
***************** 



.* I0AREA2 *. NO 
=YES .*..., 

*. *A2 .* ; 



USING *. NO 

I0AREA2 .*... 
NOW .* 



*4c*************** 

**** I 

* * , 

* 84 *-X. 

* * , 
**♦* , 

X 

*****B4**«*4e****« 

* * 

* GET TRACK * 

* INDEX * 

* ADDRESS * 

* * 
***************** 



♦ BUILD CCW CHAIN* 
*T0 SEARCH TRACK* 

* INDEX * 
***************** 



RDONLY 

= YES 
*A2 



*****E1 ********** 

* RESTORE * 
« REGISTER 13 * 

* TO POINT TO * 

* SAVE AREA * 

* * 
***************** 



*****F1 ********** 



*************** *:^ 



*****Gi ********** 

* * 
♦LOAD USER lOREG* 

* WITH ADDRESS * 

* OF RECORD * 

* * 

******#*«***4c:^*«:t; 



4c***HI********* 

♦ RETURN TO * 
♦PROBLEM PROGRAM* 

* * 
*************** 



♦****02*** ******* 



***************** 



*****E2********** 

* LOAD USER * 

* lOREG WITH * 

* ADDRESS OF * 

* RECORD * 

* * 
***************** 



****p 2********* 

* RETURN TO * 
♦PROBLEM PROGRAM* 

* * 
*************** 



**D3******* 

* * 
SET SWITCH 
TO INDICATE 

I0AREA2 

* * 
*********** 



**E3******* 

* SET SW * 
TO INDICATE 
NEXT REC IS 

OVERFLOW 

* RECORD * 
*********** 



CORRECT 
lOAREA 
ADDR 



*****G2*********« 



***************** 



*****G3*******«** 

* * 

* SET UP * 

* TO USE * 

* WORK AREA * 

* * 
***************** 



*****H3***«****** 

* * 

* GET CORRECT * 

* lOAREA * 

* ADDRESS * 

* * 
***************** 



ERR EXT 

=YES 

*A2 



*****E4********** 



***************** 



*****P4*****«**** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ TRACK ♦ 

* INDEX * 

***********r****** 



HOLD 

=YES 

*A2 



*_*_*-.*_*_.*_*_*_* 



***^*** *********** 



.X* 



*****G5*** ******* 

*IJHCXWTH HA* 

*_*_*_*_*_*-*_*_* 

EXCP SEARCH * 

* TRACK ♦ 

* INDEX * 
***************** 



♦UPDATE CURRENT * 

* TRACK INDEX * 

* RECORD NUMBER * 

* * 
***************** 



*****K3 ********** 

* * 
*ADD KEY LENGTH * 

* TO lOAREA * 

* ADDRESS * 

* * 
***************** 



..X.IJHSBHll 

X 

***** 

*JE * 

* 65* 



X 
***** 
*JD * 
* D1*IJHSBH6 



***** 
*JD * 
* Bl* 
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Chart JD. ISAM ADDRTR: SET Macro (3 of «*) 



*A2 
ISMOD MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***♦♦ 
*JC * 
* K4* 



* 64 * 

* * 



* GET STARTING * 

* RECORD NUMBER * 
♦FOR NEXT TRACK * 

* * 



♦ REFERENCES 
TO JDC2: 
JEF4, JEG2 



.* *. 

.* 2 I/O *. 

AREAS 

♦.SPECIFIED.* 



X 


IJHSBH3 X 


«*«4c:«cCl ««#*««[*»«« 




**££♦♦♦*♦*♦ 


♦ * 




« * 


* ADD ONE TO * 


♦SET OVERFLOW * 


* TRACK NUMBER * 


..X+ 


INDICATORS 


♦ * 


♦IN DTF TABLE ♦ 


* # 




* * 


«««#«4c«*** *♦«*♦♦* 


**♦* 


^^^^^^ejc^^'** 


**** '. 


♦ ♦ 




*JC * 


♦ C2 ♦ 




* K4 *.X. 


♦ ♦ 




* * 


**** 




**** X 




X 


IJHSBH6 .*. 




.♦. 


Dl *. 




02 ♦. 


.* *. 




.♦ ♦, 


NO .* HOLD *. 




♦ HOLD ♦. 


...*. =YES .* 


* 


=YES .' 


*. *A2 .* 




*. *A2 .* 


*. .* 




*. .* 


*. .* 




♦. .♦ 


* YES 




♦ NO 



*#:ic*«gX ♦♦♦♦♦♦♦♦♦♦ 

* * * * 

* * SVC 36 ♦ * 

* *FREE INDEX * * 

* ♦ TRACK * * 

* * * * 



«4cFl ♦♦«♦♦♦* 

* * 

♦ RESET FIRST ♦ 
♦OVERFLOW RECORD* 

* INDICATOR * 

* * 



3|N«3t':|< #E 2 ♦ ♦♦ ♦♦ ♦♦♦♦♦ 

♦IJHSGET2 HA* 

*_#_♦_♦-.*_ 3it_ *_. ♦_♦ 

* READ OVERFLOW * 

* RECORD * 

* * 



♦IJHSGETH JB* 

* READ OVERFLOW * 

* RECORD * 

* * 



***** 
*JB * 

* E4* 
* ♦ 



****:tcF 2 ********** 

* SAVE CURRENT * 

* OVERFLOW * 
♦RECORD ADDRESS * 

* IN DTF TABLE * 

* * 

*3)C*****«*4C******* 



^***:(cG 2* ********* 

* * 

* ADD 10 TO * 

* CURRENT I/O * 

* AREA ADDRESS * 

* * 

************:«<***:«( 



***** 
*JE * 
* D5^ 



.♦ I0AREA2 ♦. 

= YES 

*. *A2 .* 



HOLD 

= YES 

*A2 



4c*4c**D4********** 

* * 

* SET RECORD * 

* COUNTER TO ♦ 

* ONE * 

* * 

:«c**************** 



IJHSBCKT X 

«i****£4*«»*****4(« 

* MOVE OVERFLOW ♦ 
♦RECORD ADDRESS ♦ 
♦TO SEEK/SEARCH * 

* ADDRESS * 

* * 

«*******:((******** 



**P4******« 

♦ TURN ON BIT+ 
♦ TO INDICATE * 

* RCD RETRIEVED * 
♦FROM OVERFLOW* 

* AREA ♦ 
*********** 



*****G4********** 

* * 

* GET ADDRESS * 

* OF lOAREAS ♦ 

* * 

* * 

*♦*********;< ***** 

X 
**** 

* * 

* C5 * 

* * 
**** 



2 I/O 
AREAS 
PRESENT 



*****03********** 

* * 

* SAVE RECORD * 
♦ADDRESS (CHHR* * 

* FOR PUT * 

* * 

***:(>**** ***4E***4e* 



.* WAS * 

.I0AREA2 LAST 
*. USED .* 



*****p5****3tc***4:* 

* ■ * 

* GET ADDRESS * 

* OF I0AREA2 ♦ 

* CIOAREARi ♦ 

* * 

«c**********:^***** 



.* FIRST * 

.RECORD BEING 
♦.PROCESSED.* 



***** 
*JE ♦ 

* b3* 



**** 

* * 

* C2* 

* * 
**** 
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Chart JE. ISAM ADDRTR: :iET Macro (4 of tt) 



*A2 
ISMDD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*JB * 
* A3* 



REFERENCES 
TO JEB5.* 
JBC5, JBD5 
JCK3 



HOLD 

= YES 
*A2 



REFERENCES 
TO JEBl: 
JBD3, JBJ2 



IJHSKEY ,*. 



0AREA2 


* 


NO 


* * SVC 36 * * 


= YES 


.*. .. 


....X* * FREE LAST * * 


*A2 


* 


X * *TRACK HELD * * 


.* 






* * * * 


*. .* 






4c * ;tc :tc :» :«c 4< *«*:<<:(< :{e« 4c*:ic 


* YES 






**** '. 

* * 

* D2 *cX= 

* * 


X 






**** 


.*. 






X 


1 *. 






♦***«D2********** 








* * 


S THIS 


"* 


NO 


* GET * 


0AREA2 




*..X 


* lOAREA * 




* 




* POINTER * 



,* FIRST *. NO 
.OVFL REC FOR .*... 
*. I0AREA2 .* 



*!ii1)i4'******* 



***** 
*JC * 
* A4* 



***^*v*********** 



*****E2********** 

* GET ADDRESS * 

* OF SEQUENCE * 

* LINK FIELD * 

* IN RECORD * 

* * 



**#**F 2*** ******* 

* MOVE ADDRESS * 

* OF NEXT * 

* RECORD TO * 

* SEEK/SEARCH * 

* ADDRESS * 
***************** 



*****C3 ********** 

* * 

* GET ADDRESS * 

* OF SEQUENCE * 

* LINK FIELD * 

* ♦ 



1JHSBH12 X 

;((4c3te3(c«Q4)t(:t(«**3«<**«« 

* ADD LENGTH * 

* OF LOGICAL * 

* RECORD TO * 

* POINTER TO ■* 

* I/O AREA * 
***************** 



*****C4**********- 



*******♦**♦**♦♦** 



* SET RECORD * 

* COUNTER * 

* TO ONE * 

* * 
4:«««««4(*««**»#*«« 



RDONLY 

=YES 

*A2 



IJHSNEXT 

***#*03 ********** 

* MOVE ADDRESS * 

* OF NEXT * 

* OVERFLOW RCD * 
*T0 SEEK/SEARCH * 

* ADDRESS * 
«<(** >«(«*:«' ««««***** 



*. .* X 

* YES ***** 

:^*** , *jc * 

* RErtRENCES * * , * bl* 

TO JED5: * * *.X, 

JBE5, JDG2 * * 
**** 
IJHSBH13 
♦♦♦♦♦04********** :«****05#«***#**#* 



ADD POINTER 

* TO KEY AND * 

* KEY LENGTH * 

* I/O AREA * 

* POINTER * 



1t:ilf3ti**^/t********lti* 

* UPDATE I/O * 

* AREA POINTER * 

* TO LAST BYTE ♦ 
*0F EMBEDDED KEY* 

* * 



INTERCHANGE 

* POINTER TO * 

* SAVE AREA AND * 

* CONTENTS OF * 

* REGISTER 13 * 
**♦♦♦**********♦* 



:ii***^^c^^:*:tt******* 

*IJHSWORK HA* 

*_jjc_j(c_ *_*_♦_♦_♦-♦ 

* MOVE RECORD * 

* TO WORK AREA * 

* ♦ 

7lf****if:«f:*4li**iti***** 



END OF 


*. NO 


OVERFLOW 


.*... . 


CHAIN 


* 


*, ,* 




♦ . .* 


X 


* YES 


***** 




*JD * 




* C2* 




* * 




* 


X 


IJHSBH3 


.*. 




H2 *. 




* * 




I0AREA2 


*. NO 


=YES 


,* 


*A2 


* 



JHSBH30 .*. 






X 


F4 ♦. 




l(t««««P5**3tc««j|t«««JjC 


.* IS *. 




* 


SAVE POINTER * 


.* THIS A *. NO 


* 


TO SAVE AREA * 


*. PADDING 


.*... . 


« 


IN REGISTER * 


*. RECORD .« 




* 


* 


*. ,* 




* 


* 


*, ,* 


X 


3te«««4!3tc**«******** 


* YES 


***** 
*JD * 
* C2* 




] 




* ♦ 




X 




* 




***** 




IJHSBH3 




♦ JC * 


X 






* CI* 


**G4******* 






* * 


* 4 






♦ 


* TURN ON EOF 


* 




IJHSBH17 


* INDICATOR IN 


* 






* DTF TABLE 


* 







««4e******** 



****3( 

*JA * 

* G3* 



.* HOLD 

=YES 

*. *A2 



K2 *. 
.* *. 
.* 2 I/O 
*. AREAS 


*. 
*' 


NO 
*. . . . 


:IHtf\(^2 ******* 

* TURN OFF 
X * OVERFLOW 
»...X* INDICATORS 


*. PRESENT . 
*. .* 
*. .* 
* YES 

IJHSRETB Ix.... 




* DTF TABLES 
* 

:^^i^:iii|^t'****** 


X 
***** 
*JB * 
* E4* 
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Chart JB\ 



ISAM ADDRTR: 



PUT Macro 



* ISAM ADDRTR * 

* PUT MACRO * 

* in 



*A2 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



♦♦A3******* 

* RESET ♦ 
* OUTPUT BIT * 

*RETRIEVAL BYTE 
♦IN OTF TABLE ♦ 

* ♦ 
«♦♦♦♦♦♦♦♦♦♦ 



.* RDONLY 
=YES 
*. *A2 
*« .* 



♦♦«♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



IJHSPUTB 

♦♦♦♦♦(;;2* ********* 

* STORE USER * 

* REGISTERS * 

* 2-14 IN * 

* SAVE AREA * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



IJHSBHI8 .*. 



* RECORD * 

IN OVERFLOW 
*. AREA .* 



. IJHSBH19 X 

♦♦♦♦♦(;;4««««:«««««« 

♦IJHSPUT2 HB* 
, ♦_*_♦_♦_♦_♦_♦_♦_♦ 

* WRITE RECORD * 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦01 ♦♦♦♦♦♦♦♦♦♦ 

* ESTABLISH * 

* REGISTER 14 * 

* AS SECOND * 

* BASE REGISTER * 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



IJHSPUT 

♦♦♦♦♦£!♦♦♦♦♦♦♦♦♦♦ 
♦IJHSBHIN HA* 
♦- ♦-♦-♦ -♦-♦_♦_♦_♦ 

* INITLZE PTRS * 

* TO PARTS OF * 

* DTF TABLE * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦Q3+^^^+^^ 

♦TURN ON BIT* 

*IN DTF TABLE ♦ 

♦TO INDICATE PUT* 

*MACRO ISSUED * 

♦ ♦ 

♦♦♦♦♦♦♦♦♦♦♦ 



X 
♦♦♦♦♦ 
*JC * 
* CI* 



WAS 

A GET 

ISSUED 



♦♦♦♦P2********* 

* SVC 50 ♦ 

* ERROR ♦ 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



RESET GET 

ISSUED 

SWITCH 

♦ * 

♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦^♦♦♦♦♦♦^ 

* TURN ON ♦ 

* OUTPUT BIT * 
*RETRIEVAL BYTE 

♦ IN DTF TABLE * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦**JI+^******^^ 
*IJHSWORK HA* 
♦_♦_♦_♦_♦_♦_♦_♦_* 

♦ MOVE RECORD * 

♦ TO I/O AREA * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦KX******^^** 

* SAVE POINTER * 

* TO SAVE * 

* AREA IN * 

* REGISTER * 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦ 

* ♦ 

* A3 * 

* ♦ 
♦♦♦♦ 
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Chart JG. IS?^M ADDRTR: HEAD Macro, KEY 



* ISAM ADDRTR * 

* READ MACRO * 

* * 



*A2 
ISMOD MACRO PARAMETER 
OPTIOM. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* f CODE 




TYPE OF INDEX ENTRY I 


ROUTINE 


. CHART . 
.LOCATION. 


.OOOOOONN 




NORMAL ENTRY 


IJHRCERC 


JG 


.OOIOOONN 




DUMMY ENTRY- END 


IJHRERR 


KB 


.OOIOIONN 




DUMMY ENTRY-CHAINED . 


IJHRCERC 


JG 


. 001100 NN 




INACTIVE ENTRY 


IJHRERR 


KB 



X 

* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 

* * * * 



**Dl******* 



*♦**♦****♦* 



RDONLY 

= YES 

*A2 



* * 

*SAVE POINTER TO* 

* SAVE AREA IM * 

* REGISTER * 

* * 



X 

*****G1********** 
♦IJHCINIT EG* 

♦INITIALIZE PRTS* 

* TO PARTS OF * 

* DTF TABLE * 

3ic:4c 9tc**«:4c««:tc«««*4c*:» 



**H1******* 

* * 

* TU<RN OFF 

* OVERFLOW AND 

* WAIT BITS 

* * 

:0c 3C********* 



**J1 ******* 

* * 

*TURN ON READ * 

KEY BIT IN * 
* DTF TABLE * 

* * 

««:(:«4!**«*«4: 



ju)c «:«cjtc K X ********* * 

*IJHCBL02 FJ* 

*6UILD C€« CHAIN* 

* TO SEARCH MI * 

* OR CI * 



**** 

* * 

* 02 * 

* * 
**** 



IJHRSRCH X 

♦♦***02* ********* 

*IJHCERCA EG* 

* MOVE INDEX * 

* START ADDRESS * 
*T0 SRCH ADDRESS* 
***************** 



***♦*£ 2********** 

* INITIALIZE * 

* POINTER TO * 

* KEYARG * 

* * 



ERREXT 

= YES 

*A2 



*****G2*** ******* 



«« #4c :4e« 4c« :{e3(> «« «« »*« 



*«*:«c«H2*** ******* 

* SAVE RCO TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ WASTER * 

* INDEX * 

9|(:(c4<«4<«««#4c«4c***4c« 



.* MASTER *. YES 

INDEX .*..X, 

*. PRESENT .* 



Jjt***5)^2*** ******* 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ CYLINDER * 

* INDEX * 
************ ***** 



♦***C3* ♦***♦♦** 

* ISAM ADDRTR * 

* SEEK * 

* SUBROUTINE * 

**:(c****:tc*«*«*)(t* 



IJHRCERC 

♦*03******* 

* TURN ON * 

* SEEK CHECK 
* SWITCH AT 

* IJHCNTSK 

* * 
*********** 



*****E3 ********** 
♦IJHCXCOR £E» 

* SEARCH MASTER * 

* OR CYLINDER * 

* INDEX * 

«*«««:»:** ««*:tc**#** 



**** 

* * 

* C4 * 

* * 
**** 



*«***Q4********** 

* MOVE NEXT * 

* INDEX ADDRESS * 
*I0 SEEK/SEARCH * 

* ADDRESS * 

* * 

:(c4c********«****** 



IJHRSALT X 

**C5******* 

* TURN ON * 

* SEEK CHECK * 
* SWITCH AT * 

* IJHCNTSW * 

* * 

**3(c*****)j<:*« 



,* NEXT *. YES 
♦SEARCH ON TRACK*.... 
*. INDEX .* 

*. .* • 
*. .* X 
* NO ***♦ 
, * * 


.* ERREXT *. NO 

*. = YES .*.. 
*. *A2 •* 

*• .* 
*. .* 

* YES 


* C5 * 
, * * 
, **** 




IJHREXSL X 

*****E4.********** 

* GET F CODE * 

* FROM SEARCH * 

* ADDRESS * 


X 
*****E.5*****«**** 

* AND OPERATION * 

* INDICATOR TO ♦ 

* READ TRACK * 



* SEEK * 


NO 


CHECK 


*.... 


*. REQUIRED ,* 




*. .* 




*, ,* 


X 


* YES 


<<*** 




* 




* C4 




* 




***♦ 



jgc**************** 



4c****f4********** 

* GET ADDRESS * 

* OF ROUTINE * 

* PROCESS ENTRY *, 

* TYPE. SEE * 

* TABLE *A4 * 
***************** 





.* HOLD 




*. = YES 




*. *A2 




*. 


X 


*. .* 


***** 


* N 


** ♦ 




* A4* 


. 



*«)«c**Q3********** 

* * 

* GET lOAREAR * 
*COUNT FIELD FOR* 

* SEEK CHECK * 

* * 
***************** 



*****H3 ********** 
*IJHSKERR EN* 

* TEST FOR * 

* OVER/UNDER * 

* SEEK * 

******** *******3tC](C 



.* TRACK *• 
YES .*INDEX REQ. * 
...*. WHOLE TRACK 
*. OR MORE .* 



***** 
*KF * 
* G3* 



H5 *. 

.* TRACK *. 
* INDEX REQ *. 

WHOLE TRACK . 
*. OR MORE 



*. 



• * 



*****J5 ********** 
*IJHCBLD2 FJ* 

*_*_*_*-♦-*_♦_*_♦ 
*BUILO CCW CHAIN* 
*T0 SEARCH TRACK* 
* INDEX * 

***************** 



**K3 ******* 

* TURN OFF * 
SEEK CHECK 

SWITCH AT 
IJHCNTSW 

* * 
*********** 



.* 


HOLD 


* 


YES 




*. 


= YES 




*. .X 




*. 


*A2 

*. .* 


.* 








*. .* 




X 




* NO 




***** 
*FH * 


JHRESCO .IJHRESCH* E4* 




X 




* * 




***** 




* 




*KF * 








* ,G3* 
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Chart JH. ISAM ADDRTR: SETL Macro, $$BSETL (1 of 3) 



*GET FILE START * 
♦TYPE INDICATOR * 
♦FROM SETL MACRO* 
* * 



««*:(< 4CC1 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ SVC 26 * ♦ 

* ♦ VALIDATE * * 

* ♦ 'lOAREAS* ♦ * 

* ♦ ADDRESS * * 

* ♦ LIMITS * * 



* * SVC 26 * ♦ 

* * VALIDATE * ♦ 

* ♦DTFIS TABLE* ♦ 

* * ADDRESS * * 

* ♦ LIMITS * * 



*«:0l»t3|eEX ****♦**♦** 

* SET UP END OF * 

* VOLUME LIMITS * 

* FOR REQUIRED * 

* DEVICE * 



R21R 

*MOVE LAST PRIME* 

* DATA TRACK * 
♦CYLINDER TO EMD* 
*0F VOLUME LIMIT* 

* * 
«4t#4c4c4c***3i(******* 



3tc4c4c«»Gl*****^***^ 

* * 
♦GET LOWER LIMITS 

* OF PRIME DATA ♦ 

* AREA * 

* * 

«* 4c 4c ♦«*«« «4c*4c* » 4c 4c 



.* G KEY ♦. 
SPECIFIED *. 
IN SETL 
. MACRO .* 



B3 *. 

.* KEY *. 

SPECIFIED ■■ 

IN SETL 

. MACRO .= 



C3 *. 

.♦ BOF *. 

SPECIFIED 

IN SETL 

. MACRO . 



4c4c«4cA4*^^^*^*^^ 

* SVC 2 ♦ 

* FETCH ♦ 

* $$BSETL1 ♦ 

4c4c4c4c«4c4c4c4c4c4>4(4c4c4c 



***** 
*JJ * 
* Al* 



VALID 


* 


. NO 


TARTING ID 


*• •• . 


SPEC 


4< 




*. .* 






♦. •* 




X 


* YES 




***4c 






* * 


I 




* J3 ♦ 

4c * 






**** 


X 






.*« 






E3 *. 






* RCD ♦ 






ID IN 


* 


. YES 


TRK INDEX 




*••««•••• 


AREA 


♦ 





4c* * 4c* E4* ♦♦♦*♦♦♦*♦ 

♦MOVE FIRST DATA* 

♦RECORD ADDRESS * 

X* TO STARTING *. 

♦ RCD ID * 

* * 
*« 4c 4c4c* *«♦♦♦♦♦♦*** 



* MOVE STARTING ♦ 

* RECORD ID TO * 

* SAVE AREA ♦ 

* * 
4c4c4c4c*4c4c* 4c*4c* ***** 



SHARED 
TRACK ON 
. FILE 



-*. .TESTNORM .♦. 

63 ♦, . G4 ♦. 

♦ RCD ♦. . .♦ RCD *. 

ID ON *. NO X .♦ ID ON ♦. NO 

SHARED .* ...X*. PRIME DATA .♦... 

TRACK .* *. TRACK .♦ 

*, ,* *, .* 

*. .* *, ,* 



RCD 
NUMBER ON 
. TRACK . 



***** 

*JJ * 

♦ J3^ 

* * 



**** 

* ♦ . 

* J3 ♦.X. 

* * . 
**** 

ILLEGID X 

**J3******* 

* * 

♦ TURN ON 
..X* INVALID RCD 

♦ ID SWITCH 

* * 
***4c******* 



****K3********* 

♦ SVC 11 ♦ 

♦ TO PROBLEM ♦ 

♦ PROGRAM ♦ 
*************** 



**** 

* * 

* E5 ♦ 

* * 
**** 



***4(*Q5********** 

♦BLDER JK* 

*-*_*_*_*-*-*-*-* 

* BUILD * 

* CCta CHAIN * 

* * 
***************** 



**H5******* 

* * 
SET 

TRACK HOLD 
BIT 

* * 
*********** 



*****J5********** 
♦EXCPROUT JK^ 

4i_*_ 4c_:j,_ 4,_4c- 4t_*_4c 

♦ EXCP, * 

* SEARCH TRACK ♦ 



***** 
*JJ * 
♦ Al* 
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Chart JJ. ISAM ADDRTR: SETL Macro ^ $$BSETL (2 cf 3) 



* REFERENCES 
TO JJAl: 
JHC3, JHJ5 



* STARTING * 

CYLINDER GT 
*. 256 .* 



* **3(.*C 1 ********** 

* * 

* SET UPPER * 

* LIMIT OF * 

* CC TO X'FF' * 

* * 
***************** 



4c****0]^«*3(c#*4t^:«e«« 



***************** 



«**««e !'('*«'«<=(' 'C*4<«4' 
*EXCPROUT JM* 

*_*_♦-*_*_*-*_!(<_* 

* EXCP, SEARCH * 

* TRACK HOLD * 

* . * 

3(c*4:4c**4:***4c*4c«)([«* 



*****Fl**:»**«4c*4c* 

* * 

* GET TRACK * 

* NUMBER FROM * 
♦STARTING RCD ID* 

* * 

***^«*:«t**:<e**4:***« 



*****Ql*****«:(c4c«:« 

♦ADD ONE TO TRK * 
*N0. AND GET TRK* 
*N0. OF 1ST DATA* 
*RCD IN CYLINDER* 
* * 

***************** 



*****H1********** 
*SUB NO. OF 1ST * 

* DATA RCD TRK * 
♦FROM STRTNG RCD* 
♦ID TRK NO. PLUS* 

* 1, DBL RESULT * 

**:tc***:ic**«*:iC3)c**** 



*#***J1 ********** 

* * 

*GET HIGH RECORD* 
*NUMBER ON TRACK* 

* INDEX TRACK * 

* * 
***************** 



****** 1********** 

* DIVIDE RESULT * 
♦BY HIGH RCD NO.* 

* ON TI TRK AND ♦ 

* STORE QUQT ♦ 
♦TI OVFL TRK MO.^ 
***************** 



*****A 2*** ******* 
♦STORE REMAINDERS 
♦AS TRACK INDEX * 

♦ OVERFLOW RCD * 
♦NO. FOR START- * 

* ING RECORD * 
***************** 



* TI OVFL 
RCD NUMBER 

♦ . EQ 



*****C2********** 



***************** 



* A3 ♦ 

* * 
♦*** 



*****A3********** 
♦SET RCD NO. OF * 

♦ TI OVFL ENTRY ♦ 

♦ EQ TO HIGH ♦ 

♦ NO. ♦ 

♦ * 
***************** 



OFLOEXIT .*. 

B3 *. 

.STARTING*. 

.* RCD ID ON 

♦ . FIRST DATA 

♦. RCD TRK . 



NORMAL X 

♦****C3 ********** 

* MOVE HIGH RCD * 

* NO. ON PRIME * 

♦ DATA TRK TO * 
♦SAVE ADDR AREA * 

♦ IN DTF IS TABLED 
***************** 



*****g4********** 

* MOVE HIGH RCD ♦ 

* NO ON SHARED ♦ 
X* TRK TO SAVE ♦ 

* ADDR AREA IN ♦ 

* DTF IS TABLE ♦ 
***************** 



NO .♦ SHARED 
...♦, TRACK ON 
*. FILE 



NEXT 
NO ,* 



BLOCK 

COUNT EQ 





♦ STARTING 

RCD NO. EQ 
♦. ZERO 



*****g4********** 

* * 

* SUBTRACT ONE * 
X^ FROM RECORD ♦ 

* NUMBER ♦ 

* * 
***************** 



*****P3********** 

* * 

* MOVE BLOCKING ♦ 
♦FACTOR TO BLOCK* 

* COUNT * 

* * 
***************** 



EXIT 






*. 






G3 


♦ . 






* 




NO . 


* 


RCD ID 


. ..♦ 




ON 


2321 



*****H3*** ******* 

* SET STRIP NO ♦ 

* FOR END OF * 

* VOLUME LIMIT ♦ 



***************** 



.♦ RCD ID 
. GT END OF 
♦. VOLUME . 
♦. ,* 



***** 

♦ JH ♦ 

* J3* 



****K3*** ****** 

♦ SVC 11 ♦ 

♦ TO PROBLEM ♦ 

♦ PROGRAM ♦ 
*************** 



286 DOS/VS LIOCS Volume 3 DAM and ISAM 



Chart JK. ISAM ADDRTR: SETL Macro, $$BSETL (3 cf 3) 



* ISAM ADDRTR * 

* BUILD ♦ 

* SUBROUTINE ♦ 



ELDER X 

4c4c4e*«Bl *******^*** 

* GET ADDRESS ♦ 

* OF CCW * 

* BUILD * 

* AREA * 

* * 



**** 

X 

«*#*«C 1 «**'('**4'4' «=(° 

* GET OP * 

* CODE BYTE * 

* FROM BUILDER * 

* CONTROL CODE * 

* * 



TICRTS 

* DETERMINE * 

* ADDR FIELD * 
...X* FOR TIC * 

* INSTRUCTION * 



«4'«««««!«(*«««4<«*** 



* GET ADDR * 

* OF I/O AREA * 

* FROM BUILDER * 

* CTL CODE * 

* # 



* STORE ADDR * 

* OF I/O AREA * 

* IN CCW DATA * 

* AOOR FIELD ♦ 

* * 



* DETERMINE * 

* CCW OP CODE * 

* FROM BUILDER * 

* CONTROL CODE ♦ 

* * 



♦♦#**H1*** ******* 

* * 

* STORE OP * 

* CODE IN * 

* CCW * 

* * 



* GET FLAG * 
♦CHARACTER FROM * 

* BUILDER * 

* CONTROL CODE * 

* * 



«4c«4e«K1********** 

* * 

* MOVE FLAG * 

* BITS TO ♦ 

* CCW * 

* * 



* * 

* B3 * 

* * 



**»* ♦BB*** ****»--. 
♦DETERMINE DATA ♦ 

* LENGTH USING * 

* BUILDER * 

* CONTROL CODE * 

* * 



♦♦*:*. 4«C3 ********** 

* STORE LENGTH * 

* IN CCW * 

* BYTE COUNT * 

* FIELD * 

* * 



«««*4iD3*** ******* 

* UPDATE * 

* TO NEXT * 

* BUILDER * 

* CONTROL CODE * 

* FIELD * 

«« ## ^4t 4(« :«<# :tt« ««X< «« 



.* END 

. OF COMMAND 
♦.CHAINING . 



****A5********* 

* ISAM ADDRTR * 

* INPUT/OUTPUT * 

* SUBROUTINE * 



EXCPROUT 

##««4tB5********** 

* MOVE LOGICAL * 

* UNIT FROM * 

* DSKXTN TABLE * 

* TO CCB * 

* * 



:|t4c:t<««C5********** 

* MOVE bB * 

* FROM DSKXTN * 

* TABLE TO SEEK * 

* ADDR, SEKADR * 

* ♦ 



4c«#D5************ 

* SVC 23 * 

READ 
* AND HOLD * 

***************** 



#«*««E4********** 



«:ic««4c«4:«««*4<4c«*«:(c 



««:((«(: 2********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 



» * 

* GET NEXT * 

* CCW * 

* ADDRESS * 

* * 



♦ CI * 

♦ * 





YES .* DASO * 




...*. ERROR 




*. .* 




*. .* 




X *. .* 




**** * NO 




♦ ♦ 




* J3 * 




* * 




***♦ 




X 




rSTWLR .*. 


♦G4##****# 


G5 *. 


TURN ON * 


.* *. 


WRONG * 


YES .* WRONG * 


LENGTH *X. 


.......*. LENGTH 


INDICATOR * 


*. RCD .* 



**** 

* * 

* J3 * 

* * 



* TURN ON * 

DASD 

ERROR 

INDICATOR 

* * 
*********** 



«:«(«;(( 4::«:#««3tc« 



♦♦♦♦H4********* 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 



* TURN ON NO 
RECORD FOUND 

* INDICATOR 

* * 



♦♦♦♦J5********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 



««3j(«K3*** ****** 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 
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Chart JL. ISAM ADDRTR: SETL I^acro, 



(1 of 5) 



****Ai ********* 

* ISAM ADDRTR * 

* SETL MACRO * 

* $$BSETL * 
*************** 



,* G KEY *. 
.* SPECIFIED *. NO 
*. IN SETL .*... 

*. MACRO .* 



*****Ci ********** 

* MOD CCW CHAIM * 
*T0 SRCH KEY EQ * 

* OR HI AND * 
*MODIFY COMPARE * 

* BR INST * 
***************** 



KEYROUT 

*****D1 ********** 

* MOVE MASTER * 
*INDEX START ID * 
*T0 SEEK/SEARCH * 
♦ADDRESS AREA IN* 

* DTF TABLE * 
***************** 



*****£!********** 

*SET RCD NO. IH * 

* SEEK/SEARCH * 

* ADDRESS AREA * 

* TO ZERO * 

* * 
***************** 



**** 

* * 

* A2 * 

* * 
**** 

X 
*****A2********** 

* ♦ 

* SAVE INDEX * 

* VOLUME * 

* NUMBER * 

* * 
***************** 



*****B 2* ********* 

* MOVE SEEK * 

* SEARCH TRACK * 
*AND RCD NO. TO ♦ 

* Tl OVERFLOW * 

* ADDRESS * 
***************** 



FINDNXT 

*****£2********** 

* MOVE NEXT * 

* SEARCH ID TO * 

* SEEK/SEARCH * 

* ADDRESS AREA * 

* * 
***************** 



*****02*** ******* 

* * 

* GET F CODE * 

* FROM NEXT * 

* SEARCH ID * 

* * 
******* }c** ******* 



*****E2********** 
*SET INDEX ENTRY* 

* TYPE FROM F * 

* CODE OF NEXT * 
*ID. SEE TBL AT * 

* LOC *J2 * 
***************** 



REFERENCES 
TO JLA3: 
JMJ3, JNF4 



.STARTING*. 
* RCD ID ON *. NO 

FIRST DATA .*... 
*. RCD TRK .* 



♦*** #63 ********** 

* MOVE HIGH RCD * 

* NO. ON SHARED * 

* TRACK TO SAVE * 

* ADDRESS AREA * 
*IN DTFIS TABLE * 
***♦**♦*«**♦*♦*** 



SHARED 
TRACK ON 
. FILE 



NORMAL X 

*****P3*********» 

* MOVE HIGH RCD * 

* NO. ON PRIME * 

* DATA TRK TO * 
*SAVE ADOR AREA * 
*IN DTF IS TABLE* 
***************** 



*****A4********** 

* MOVE BLOCKING * 

* FACTOR TO * 

* BLOCK COUNT * 

* * 
***************** 

**** I 

* * 

* B4 *.X. 

* * , 
**** X 



*****C4********** 

* SET STRIP NO * 

* FOR END OF * 

* VOLUME * 

* LIMIT TO 5 * 

* * 
***************** 



.♦ RCD ID *. YES * TURN ON * 

. GT END OF .* X*INVAHD RECORD * 

*. VOLUME .* * ID SWITCH ♦ 

*, ,* * * 

*. ,* ****♦♦**♦** 



.* INDEX * 
». TRACK STILL 
*. HELD .* 



****E5********* 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



***** 
*JP * 
♦ D4* 



MASTER 
INDEX ON 
. FILE 



*****G1 ********** 

* MOVE CYLINDER * 
*INDEX START ID * 
*T0 SEEK/SEARCH * 

* ADDRESS AREA * 

* IN DTF TABLE * 
***************** 



*****Hl ********** 
*BLDEP JP* 
*_*_*_*_*_*_*_*_* 

* BUILD CCW * 

* CHAIN * 

* * 
***************** 



**jl******* 

* * 
SET SW. FOR 

SVC 35 TO 
HOLD 

* TRACK * 
*********** 



* J5 *.X 



**** 
GOTOEXCP 

*****K1 ********** 
*EXCPROUT JQ* 
*_*_*_*_*_*_*_*_* 

EXCP, SEARCH * 
■■* CI, * 



MI, 
* AND _ _ 
***************** 





* STARTING * 


. YES 


*, 


RCD NO. EQ 

*. ZERO .* 

*, ,* 

*, .* 


.*... . 






»= NO 






) 


( 




*****G3********** 


* 




* 


* 


SUBTRACT ONE 


* 


* 


FROM RECORD 


* 


* 


NUMBER 


* 


♦ 




* 


***************** 






.X 





****P4********* 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



I F CODE 


I TYPE OF INDEX ENTRY 


Ilocation 


. CHART . 
.LOCATION . 


.00000000 


. NORMAL ENTRY-UNSHARED 


.NORMLTRK 


. JM 


.OOOOOONN 


. NORMAL ENTRY-UNSHARED 


.INDEX 


. JM 


.00001000 


. NORMAL ENTRY-SHARED 


.SHRDTRK 


. JM 


.00010000 


. OVERFLOW ENTRY-END 


.OFLOROUT 


. JN 


.00011000 


. OVERFLOW ENTRY-CHAINED 


.OFLOROUT 


. JN 


looiooooo* 


. DUMMY ENTRY-END (TI) 


:n6recfnd*' 


. JM 


.OOIOOONN 


. DUMMY ENTRY-END 


.NORECFND 


. JM 


.OOIOIONN 


. DUMMY ENTRY-CHAINED 


.INDEX 


. JM 


.00110000 


. INACTIVE ENTRY (TI) 


.NORECFND 


. JM 


. 001100 NN 


. INACTIVE ENTRY 


.NORECFND 


. JM 



288 DOS/VS LIOCS Volume 3 DAM and ISAM 



Chart JM- ISAM ADDRTR: SETL Macro, $$BSETL1 (2 of 5) 



* * 

* A3 * 



* ISAM ADORTR * 

* NORMAL TRACK * 

* SUBROUTINE * 



NORMLTRK 

♦BLDER JP* 

*-*-♦_*-*-*_♦-♦_* 

* BUILD CCW CHAIN* 

* TO READ * 

* RCD * 



♦♦CI******* 



****A2* ******** 

* ISAM ADDRTR * 

* SHARED TRACK * 

* SUBROUTINE * 

«♦«#♦♦♦♦««♦«♦:)(♦ 



* SUB ONE FROM * 
.* FIRST DATA * 

*N0. FOR SEARCH * 

* * 



SET SW FOR 

SVC 35 TO 

HOLD TRACK 

* * 

«««♦*»♦*«♦♦ 



*MODIFY CCW * 

* COMMAND TO 
SEARCH KEY 

* EQ OR HI 

* * 



UNBLREAD X 

♦EXCPROUT JQ* 
*_*-.*-*-.*-♦_*-.* ^* 

* EXCPi READ * 

* RECORD * 
« * 
♦«*«***«****«***« 



* * 

* SAVE STARTING * 
♦RECORD ADDRESS * 

* MBBCCHHR » 

* * 



.* 


BLOCKED 
RECORDS 


♦ 


. YES 


*. 


.*••.. 


*. 




,* 






*. .* 








*. .* 




X 




* NO 




**♦* 


**** , 




* * 




* • 




* A4 * 


* HI 


*.X. 




* * 


* 


* 




**** 


**** X 






COMMON 


.*. 
HI *. 

* * 






«*' 


PRIME 


** 


NO 


*. 


DATA ON 




.*«.•. 


*t 


3330 


.* 


• 



.* STARTING *. YESX 
, CYLINDER .*. 
*, GT 256 .* 



♦♦♦♦♦Ki «♦♦*#♦«#«« 



*♦***#**♦♦*#♦**«♦ 



♦♦#♦♦^3 «♦♦♦♦♦♦♦«♦ 

* * 

* GET TRACK * 

* NUMBER FROM * 
♦STARTING RCD ID* 

* * 
♦♦♦♦♦♦♦♦♦♦♦«♦♦♦♦♦ 



♦♦♦♦«e3«4<«#«#«#«iec 

* ADD ONE TRK * 
*N0. AND GET TRK* 
*N0. OF ISr DATA* 
*RCD IN CYLINDER* 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦«««3(t 



*****A4********** 

* GET ADDR OF * 

* lOAREAS WHICH * 

* CONTAINS DATA * 

* PORTIONS OF * 

* STARTING RCD * 
♦♦♦«♦♦♦♦♦♦♦♦♦♦«♦♦ 



♦♦♦«4:ti4********** 

♦GET LOC OF KEY * 

* IN RCD BY * 
♦ADDING KEYLOC-1* 

* TO ADDR OF * 

* lOAREAS * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



RfcFERENCfcS 
TU JMD5: 
JNC5, JQU 



:t,**1f^C3********** 


«g(c«3(c«C4********** 


*SU8 NO. OF 1ST * 


* GET ADDRESS 


* 


* DATA RCD TRK * 


* OF KEYARG, 

* SUPPLIED BY 


« 


*FROM STRTNG RCD* 


* 


*ID TRK NO. PTRS* 


♦ USER 


« 


* 1, DBL RESULT * 
♦«««♦♦««««♦♦♦«♦♦♦ 


* 


* 


♦♦♦♦♦♦♦♦«♦♦♦♦♦« 


4c« 




*♦** ' 






♦ ♦ . 






♦ D4 *.X, 






* * . 






**** X 




X 


COMPARE .*. 




*#***03 ********** 


D4 ♦. 




* ♦ 


.* KEY *. 




♦GET HIGH RECORD* 


Ey .♦ IN BLOCK * 


. 


♦NUMBER ON TRACK* 


,..*, EQUAL KEY 


.* 


* INDEX TRACK * 


♦ .ARGUMENT .* 




« * 


*. .* 




«♦♦♦#«««#«♦♦♦♦««♦ 


X *. .* 
**** * LO 






* * » 

* HI * 

* * 






*#** 





♦♦♦♦^^♦♦♦♦♦♦♦♦# 

* ISAM ADDRTR * 

* NO RCD FOUND * 

* SUBROUTINE ♦ 
«♦♦♦«♦«♦♦♦♦♦♦«♦ 



NORECFNO 

**D5^+^**++ 



«««4c«E3«^******** 

* DIVIDE RESULT * 
♦BY HIGH RCD NO.* 

* ON TI TRK AND * 

* STORE aUQT AS ♦ 
♦TI OVFL TRK NO.* 
*«♦««♦♦♦««»*««♦«« 



♦STORE REMAINDER* 
♦AS TRACK INDEX * 

* OVERFLOW RCD * 
♦NO. FOR START- ♦ 

♦ ING RECORD * 



♦ TI OVFL 

RCD NUMBER 
*. EQ 

*• .♦ 



♦««««H3********<** 

* * 

* DECREMENT * 

* HEAD NUMBER ♦ 

* * 
♦♦♦♦♦♦♦4( «««♦*«««♦ 



♦«««*E4********** 

* STORE DATA * 

* PORTION OF * 
♦STARTING RCD IN* 

* DTF TABLE FOR ♦ 

* DEBLOCKING * 
««♦♦♦«##♦«♦*♦♦♦♦♦ 



* * 

* POINT TO NEXT * 

* RECORD IN * 

* BLOCK * 

* * 



♦♦♦♦«Q4#«4c#«««««« 

♦ * 

* POINT TO KEY * 

* FIELD OF NEXT * 

♦ RCD IN BLOCK * 
» * 
♦♦♦♦♦♦♦#«♦♦♦♦«♦♦♦ 



♦♦♦♦♦fl4«««««««««# 



♦«♦♦*♦♦♦♦«♦««♦««« 



* TURN ON NO 
.X^ RECORD FOUND 

* INDICATOR 

* * 

$♦♦♦♦♦♦♦♦♦« 



***** 
*JP * 
* B4* 



RESET 

RZERO 

SWITCH 

* « 



X 
***** 
*^L * 
* A3* 



♦***65********* 

* ISAM ADDRTR * 

* I ND€X ♦ 

* SUBROUTINE ♦ 
«*«*««♦««♦«♦*#♦ 



» CYl *. 

INDEX JUi>T . 

*, SRCHED .* 

*. .* 



♦ ♦♦♦♦J5******;**** 

*BLOER JP* 

♦BUILD CCW CHAINS 

* TO SEARCH TI ♦ 

«♦**♦♦«««♦♦♦♦***« 



***** 
*JL * 
♦ Kl* 
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Chart JN. ISAM ADDRTR: SETL Macro, $$BSETLl (3 of 5) 



* ISAM ADDRTR * 

* OVERFLOW * 

* ROUTINE * 



TURN ON 

OVERFLOW 

SWITCH 

* * 



***#*C2********** 

* GET AODR OF * 

* lOAREAS WHICH * 
♦CONTAINS NORMAL* 

* ENTRY ASSOC * 

* WITH OVFL RCD * 
***************** 



*****Q 2* ********* 



***************** 



*****£ 2 ********** 
*SET RCD NO. TO * 

* HIGH RCD NO. * 

* ON PRIME DATA * 

* TRK * 

* * 
***************** 



F2 *. 

.♦CURRENT*. 
.♦PRIME DATA *. NO 
. TRK 1ST IN .*... 
*. CYL .* 



*****H2********** 

* SET CURRENT * 

* PRIME DATA * 
*N0. TO HIGH RCD* 

* ON SHARED * 

* TRACK * 
****** ** ** ******* 



IN1T4 

*****j2********** 

* ADD 2 TO CURR * 
*TI OVFL RCD NO.* 

* TO PT TO NEXT * 

* OVFL ENTRY * 

* TI * 
***************** 



*****K 2*** ******* 

* * 

* GET HIGH RCD * 

* NO. ON TRACK * 

* INDEX TRACK * 

* * 
********** ******* 



**** 

* * 

* B3 * 

* * 
**** 



.* HI TI *. 
.*TRK RCD NO.*. 
.LT NEXT OVFL . 
*. RCD NO. .* 



IJHSBH5 

*****C3 ********** 

* SUB HIGH RCD * 

* NO. ON TI TRK * 

* FROM NEXT TI * 

* OVERFLOW RCD ♦ 

* NO. * 
***************** 



*****03 ********** 
♦STORE RESULT AS* 

* NEXT TI * 
♦OVERFLOW ENTRY * 

* RCD NUMBER * 

* * 
***************** 



*****E3 ********** 

♦ ADD ONE TO ♦ 

♦ NEXT TI * 
♦OVERFLOW ENTRY ♦ 

♦ TRACK NUMBER ♦ 

♦ * 
***************** 



IJHSBH6 

*****F3*** ******* 

♦ELDER 4P* 
*_*_*_*_*_*_*_*_* 

* BUILD CCW ♦ 

* CHAIN * 

* * 
***************** 



**G3******* 

* * 

* SET SW FOR 
* SVC 35 TO 

* HOLD TRACK 

* * 
*********** 



***************** 



*****tJ4********** 
♦EXCPROUT JQ* 

*_*_*_*_*_*„ *_ *_* 

♦ EXCPt READ * 

♦ OVERFLOW * 

♦ RECORD ♦ 
***************** 



END OF 
OVERFLOW 
. CHAIN 
♦ , .* 



* GET ID OF * 

* CURRENT OVER- * 

* FLOW RECORD * 

* * 
***************** 



*****g4********** 

* POINT TO DATA * 

* PORTION OF ♦ 

* OVERFLOW RCD ♦ 

* BYPASS SEQUENCE* 

* LINK FIELD * 
***************** 



*****P4.********** 

* * 

* MOVE BLOCKING * 
♦FACTOR TO BLOCKS 

* COUNT ♦ 

* * 
***************** 



***** 
*JL * 
* A3^ 



vc**** 

*JM * 
♦ D5* 



NORECFND 
X 
*****[)5********** 



***************** 



*****£ 5 ********** 

* MOVE NEXT RCD * 

* ID TO SEKADR * 

* SEEK/SEARCH ♦ 

* ADOR AREA ♦ 

* * 
***************** 
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Chart JP. ISAM ADDRTR: SETL Macro, $$BSETL1 (4 of 5> 



4c 4: 4c =«t /^ ]^ lie ^4< !*: ^ « )(. «( 4. 

* ISAM ADDRTR * 

* BUILD * 

* ROUTINE * 



* GET ADDRESS * 

* OF CCW BUILD * 

* AREA * 

* ♦ 
4c4( 4c4(«« 4c«3(s**3k**«i * 4( 



* REFERENCES 
TO JPB4: 
JMD5, JQH3 



♦ * 

♦ B3 * 

♦ * 
**** 



♦DETERMINE DATA * 

* LENGTH USING * 

* BUILDER * 

* CONTROL CODE * 

* * 
«4c4(« «««««*««««««« 



«*4c*4cCl***«'4'«**** 

* GET OP * 

* CODE BYTE * 

* FROM BUILDER * 

* CONTROL CODE * 

* * 




«*»■«« ♦CB ********** 

* STORE LENGTH * 

* IN CCW * 

* BYTE COUNT * 

* FIELD * 

* * 

4c :4(:te 4c «*«* ««:*««** «3ji 


4c4e«**C4********** 

* * SVC 36 * * 

* * FREE * * 

* * CURRENT * * 

* * TRACK ♦ * 

* * * * 
4t 4c 3|< :»:************* 

*♦** ', 
*JL * 

* E4 *.X. 

* * . 


.* TIC *. YES 
*. OP CODE .*.... 


TICRTS 

♦****D2*** ******* 

* DETERMINE * 

♦ ADDR FIELD * 
• • .X* FOR TIC * 


X 
4<4c#4<4c03 ********** 

* UPDATE * 
*T0 NEXT BUILDER* 

* CONTROL CODE * 

* FIELD * 


**** 
FREEXITl X 

4c**4e*D4********** 

* GET TRACK * 

* INDEX ADDR * 

* AND VOLUME * 

* NUMBER * 




* INSTRUCTION * 



4c 4<*««4c«4c 4c 4c ******* 



4c4c4c4c4c4<**«**«***** 



4c4:***El********** 

* GET ADDR * 

* OF I/O AREA * 

* FROM BUILDER * 

* CTL CODE * 

* * 

4c«4<**«*4c***:f:|e*#*4c 



.* HOW 
ONE .* MANY 
...*. TRACKS 
*. HELD 



***«B5********* 

* SVC 11 * 

* RETURN TO * 

* USER * 
4c4:***«******4c4'4' 



STORESl 

4(4c***F l*:((*«****)tc4c 

* STORE ADDR * 

* OF I/O AREA * 

* IN CCW DATA * 

* ADDR FIELD * 

* * 

4c4<****«*****4:**4c« 



4c*4(«*Gl********** 

* DETERMINE * 

* CCW OP CODE * 

* FROM BUILDER * 

* CONTROL CODE * 

* * 
***************** 



4c4c«««Hl********** 

* * 

* STORE OP * 

* CODE IN * 

* CCW * 

* * 
4c4c «**«**** ******* 



4c4c***J !♦******♦** 

* GET FLAG * 
*CHARACTER FROM * 

* BUILDER * 

* CONTROL » 

* CODE * 
4c4c«**«*********** 



4c4c 4= 4i*Kl ********** 

* * 

* MOVE FLAG * 

* BITS TO * 

* CCW * 

* * 

4:4c***««4:*4c4c4e4c4c4e** 



YES .* END 
....*. OF COMMAND 
♦ .CHAINING .• 



****************** 



* * SVC 36 * 

* * FREE HELD * 

* * TRACK * 

* * 4c 
4c4(4c*4c4c4c***^*«*** 



4>4c«*F 2*** ****** 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
4t4(*******«***** 



4t4.*4<*F3********** 



4c4e4(****«********* 



4c**4c*G4********** 

* RESTORE * 

* OVFL ID * 

* AND SYSTEM * 

* NUMBER * 

* * 
4«*4c************** 



4c4c*4eH4********* 

* SVC 11 * 

* RETURN TO * 

* USER * 

4( :»:#«* ******♦♦*♦ 
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Chart JQ. ISAM ADDRTR: SETL Macrc, $$BSETLl (5 of 5) 



♦***A2*** ****** 

* ISAM ADDRTR * 

* INPUT/OUTPUT * 

* SUBROUTINE * 



EXCPROUT X 

*****g 2********** 

* MOVE LOGICAL * 

* UNIT FROM * 

* DSKXTN TABLE * 

* TO CCB * 

* * 



*****C2********** 

* MOVE BB * 

* FROM DSKXTN * 

* TABLE TO SEEK * 

* ADDR, SEKADR * 

* * 



***03*** ********* 



***************** 



:»:4e«**F2********** 

* * * * 

* * SVC 35 * * 

* * HOLD ♦ * 

* * TRACK * * 

* * ♦ * 
4c 4(«4<** *********** 



4(4c4(4<*F3*********« 



4c 4c*****4( ********* 



4c4«G3******* 

* * 
TURN ON 

DASO ERROR 
INDICATOR 

* * 
4c4(*******«* 



WRONG 

LENGTH 

RCD 



4c 4cH3 ******* 

* * 

* TURN ON 
,X* WRONG LENGTH 

* INDICATOR 

* * 
4( ********** 



***** 
*JP * 
* 64* 



.* NO *. 


YES 


RECORD 


*.... 


*. FOUND .* 




*. ,* 




*. .* 


X 


* NO 


***** 




*JM ♦ 




* D5* 




* * 




* 




NORECFND 


X 




****K2*** ****** 


RETURN TO 


* 


CAiLlNG 


* 


ROUTINE 


* 


*************** 
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Chart KA. ISAM ADDRTR: WAITF Macro (1 of 5) 



* ISAM ADORTR * 

* WAITF MACRO * 

* * 



♦KB * 
* K2 



ISMOD MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN ASSEMBLER 
LISTING. 



ERREXT 

= YES 

*A2 



IJHCWATF 

:i<4: «:te « C X ««:(c«*4:4< <t * :»: 

* ESTABLISH * 

* REGISTER 14 * 
*AS SECOND BASE * 

* REGISTER * 

* * 



IJHCWATB 

♦♦♦**0l ********** 

*IJHCINIT EG* 

♦INITIALIZE PRTS* 
♦. TO PARTS OF * 
* DTF TABLE * 

:(c4c *************** 



***** 

♦ EE * 

* H3* 



**»**F1«***#*«*** 
♦IJHCINIT EG* 

♦INITIALIZE PRTS* 

* TO PARTS OF * 

* DTF TABLE * 
***************** 



♦IJHCWAIT EE* 

* WAIT FOR I/O * 

* COMPLETE AND * 
♦TEST FOR ERRORS* 
***************** 



WRITE 

NEWKEY 

(ADD) 



IJHCWATF 

*****B2*** ******* 

* ESTABLISH * 

* REGISTER 14 * 
...X* AS SECOND * 

* BASE REGISTER ♦ 



«*«:tc*:(>*:(c**:|>:«:#3)e3i<«4: 



SEEK 


*. NO 


GOOD 


.*... . 




* 


*, ,* 




*. .* 


X 


* YES 


***** 




♦ JG * 




* Ci* 




* * 




* 


. lJriKk£AD-6 


X 




4e*B5******* 




* 


RESET SEEK 


* 


CHECK SW. 


* 


TO ZERO 


* 



* SAVE POINTER * 

* TO SAVE AREA * 

* IN REGISTER * 

* * 

*«:(c******* :«(:jt«**4:4c 



IJHAWTNK 

:ie«««3tcH 2*** ♦**♦**♦ 

* GET ADDRESSES * 

* OF lOAREAL* * 
...X* WORKL AND ♦ 

* ADD KEY * 

* AREA * 
«4c**** *********** 



YES .* 
...*. 
* 


WRITE * 
OPERATION 

.* 


.* 


YES .* EOF *. 
...*. ADD .* 
. *. .* 




*, ,* 




♦ . .♦ 


X 
**♦♦ 
EE ♦ 

♦ ♦ 
* 


*. .* 
* NO 




X *. .* 
^a^^*^* * NO 
*KD * 
♦ A3* 

* * 
♦ 


IJHSER2 
X X 
***#*K1********** *****K2*********^ 
*IJHSKERR EH* * MOVE TRACK * 
*_*_*_*_♦_*_*_*_* * INDEX POINTER * 
♦ TEST FOR ♦ *T0 SEEK/SEARCH * 
♦OVER/UNDER SEEK* * ADDRESS * 



:(c4::ic*:«c:jc:4(:4r:{c:(c:tt««:tc4::;c:jc 



***** 
*KC * 
* Al* 



.* RDONLY ♦. NO 
♦. =YES .*... 
*. *A2 .* 



4c :tc«:(<:(cQ44::f ******** 

* ♦ * * 

* ♦ SVC 2 * ♦ 

X# ♦ FREE * *, 

* ♦ TRACK ♦ * 

* ♦ * ♦ 

#«:4c:«c:«c:«c:t(4:********* 



HOLD 

=YES 

*A2 



***** 

KB * 

Bl* 



***** 
*EE * 
* H3* 



**E4* ****** 



*********** 



***** 

*EF * 
* Al* 
* * 



*********** 



*****C5******#*** 

* * 

* SAVE INDEX ♦ 

* ADDRESS * 

* IF REQUIRED * 

* * 
***************** 



*****D5********** 

* GET RELATIVE * 

* KEY LOCATION * 
♦AND KEY LENGTH.* 

* DECREASE EACH * 

* BY ONE * 
***************** 



*****£5********** • 

* GET INDEX ♦ 

* ENTRY TYPE * 

* (F CODE I * 

* FROM SEARCH * 

* ADDRESS * 
***************** 



*****F5********** 

* GET ADDRESSES * 

* OF ROUTINE * 

* PROCESS ENTRY * 

* TYPE, SEE * 

* TABLE AT *J3 * 
***************** 



*. F CODE 


TYPE OF INDEX ENTRY 


^ROUTINE 


. CHART 
.LOCATION . 


. 00000000 


NORMAL ENTRY-UNSHARED 


.IJHRNORM 


JT 


. 00001000 


NORMAL ENTRY-SHARED 


.IJHRSHRD 


JT 


. 00010000 


OVERFLOW ENTRY-END 


.IJHROVFO 


KC 


. OOOllOOO 


OVERFLOW ENTRY-CHAINED 


.iJHROVFO 


KC 


. 00100000 


DUMMY ENTRY-END 


.IJHRERRR 


KC 


. 00110000 


INACTIVE ENJTRY 


.IJHRERRR 


:"'*Kc : 
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Chart KB. ISAM ADDRTR: WAITF Macro ( 2 of 5) 



* ISAM AODRTR * 

* NORMAL TRACK * 

* ROUT WE * 

:«: :«c :»: :«c ;«c 4: 4c ;4< 9tc lie 4: * « * # 



**** 

*KA * 

* C4 *.X 

* * 
**** 

IJHRNORM : 

*****gl ******** 

*IJHCBL02 F 

*_*_*_*-,*_*_*„* 

*BUILD CCW CHAI 
*T0 FIND RECORD 
♦(UNSHARED TRK) 
*************** 



♦♦**A2*** ****** 

* ISAM ADDRTR * 

* SHARED TRACK * 

* ROUTINE * 
*************** 



IJHRSHRD X 

*****B24' *******«« 
*IJHCBLD2 FJ* 

*_*_*_*_*_*_*_*_* 

* BUILD CCW * 
*CHAIN TO SEARCH* 

* SHARED TRACK * 
***************** 



IJHRSLTT 

*****Q1 ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR T3 * 

* READ DATA * 

* IF REQUIRED * 
***************** 



**D1******* 



****A3 ********* 

* ISAM AODRTR * 

* OVERFLOW * 

* ROUTINE * 
********* ****** 



IJHROVFO 

*****B3 ********** 
*IJHCBLD2 FJ* 

*_*_*_*_*_ *_ *_ *_* 

*BUILD CCW CHAIN* 
♦ TO SEARCH * 
*OVERFLOW CHAIN * 
***************** 

**«* 



CCW TO SEARC 
* KEY EQUAL/ 
* HIGH * 
*********** 



* * 


****02********* 


*SET DATA TRK * 


* ISAM ADDRTR 


* HELD SW ON * 


* ERROR 


* IF REQUIRED * 


* ROUTINE 


* * 


*************** 


*********** 






**** ', 




*KF * 




* Gl *.X. 




* * , 




**** . 


X 


IJHRERRR X 


*****E]^ ********** 


**E2******* 


♦IJHCXWTH HA* 


* TURN ON * 


*_*_*_*_*_*_*_*_* 


* NO RECORD * 


* EXCP, WAIT * 

* TEST FOR * 


..X* FOUND BIT IN 


♦ DTF * 


* ERRORS * 


* TABLE * 


***************** 


, *********** 




**** 




* * 




* E2 * 




* * 




**** , 


X 


X 


.*. 


.*. 


Fl *. 


F2 *. 


.* *. 


.* *. 


) .* RECORDS *. 


.* HOLD *. 


*. BLOCKED .* 


*. = YES 


*. .* 


*. *K1 .* 



. .* 
* YES 



* NO 



**** 

REFERENCES ♦ * 
TO KBG2: * * *.X 
KFC4, KFH3 * * 
**** 

IJHSER2 :. 

****Gi ********** *****e 2 **««««***« 

GET POINTER * * LOAD POINTER * 

TO KEY IN * * TO SAVE * 

FIRST LOGICAL * * AREA INTO * 

RECORD * * REGISTER 13 * 



***** 

*EF * 
* AI* 



* C3 *.X 



**** 
IJHRSOTT X 

*****C3 ********** 

* SET M * 

* NUMBER OF * 

* ADDRESS IN * 

* WORK AREA * 

* TO X'FF' * 
***************** 



*****D3 ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ DATA * 

* IF REQUIRED * 
***************** 



**E3******* 

* * 

* TURN ON * 
* DATA TRK HELD 

* SWITCH * 

* * 
*********** 



*****P3 ********** 

♦IJHCXWTH HA* 

*_*_*_*«.*_*_*»*_* 

* EXCP, WAIT * 

* NO 'TEST' FOR * 

* ERRORS * 
***************** 



***************** 



KEYARG 
LT KEY IN 

. RECORD . 



*****jX********** 

* * 

* GET POINTER * 
.* TO KEY IN * 

* NEXT LOGICAL * 

* RECORD * 
***************** 



ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***************** 



FROM *. YES 

WAITF .*... 

ROUTINE .* 



****J2*** ****** 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



**K2******* 

* RESET * 
REQUIRED 

INDICATORS 
AND BYTES 

* * 
*********** 





* NO 




**** 

* * 

* A4 * 

* * 








**** 




X 








.*. 








H3 *. 








* *, 






.* 


OVERFLOW 




YES 




ENTRY 




*. . .. 


♦ 




* 


; 




*, ,* 




X 




* NO 




**** 



*****J3 ********** 

* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 

* * * * 
***************** 



*****K3******«*** 

* MOVE * 

* MBBCCHHR FROM * 

* SEQUENCE LINK * 
*FIELD TO SEARCH* 

* ADDRESS * 
***************** 



IJHRFND X 

**A4******* 

* TURN ON * 
♦OVERFLOW BIT 

* IN RETRIEVAL 
* BYTE IN DTF 

* TABLE * 
*********** 



*****B4********** 

* ADD ONE TO * 

* NON-FIRST * 

* OVERFLOW * 

* RECORD * 

* COUNT * 
**************^«* 



IJRRGOT X 

*****C4********** 

* ADD RELATIVE * 

* KEY LOCATION ♦ 

* TO I/O AREA * 

* POINTER * 

* * 
***************** 



*♦** 

X 
*****04********** 

* SUBTRACT ♦ 

* RELATIVE KEY * 

* LOCATION FROM * 

* POINTER TO * 

* I/O AREA * 
***************** 



IJHREGOT X 

*****E4********** 

* SAVE POINTER ♦ 

* TO LOGICAL * 

* RECORD FOR * 

* WRITE ROUTINE * 

* * 
***************** 



*****F4********** 

* * 
♦SET UP TO MOVE * 
♦LOGICAL RECORD * 

* TO WORKR * 

* * 
***************** 



*****G4********** 
*IJHRWRKA FJ* 
*_*_*_*_*_*_*_*_* 

♦ MOVE LOGICAL ♦ 

♦ RECORD TO ♦ 

♦ WORKR ♦ 
***************** 



*****H4^***^*^^*^ 

* * 

* GET INDEX * 

* ADDR AND SAVE * 

* READ ADDR * 

* * 
***************** 



*****j4********** 

♦IJHRWRKA FJ* 
*_*_*_*_*_*_*_*-* 

* WRITE * 

* RECORD * 

* ♦ 
*************** ** 



*****A5*«^^**«*** 
*IJHCMCAL EH* 

*-*_*_*-.*_*_*_*-.* 

* GET LOG UNIT * 

* NUM USING M * 

* NUMBER * 
***************** 



*****B5*««^***«** 

* ♦ * ♦ 

* * SVC 36 ♦ * 

* * FREE * * 

* * TRACK ♦ * 

* * * * 
***************** 



****«C5*«««^^*«** 

♦ * 
♦LOAD USER IOREG+ 

♦ WITH ADDRESS ♦ 

♦ OF RECORD * 

♦ ♦ 
***************** 



****05********* 

* RETURN TO ♦ 

* CALLING * 

* ROUTINE ♦ 
*************** 



***** 
*KA * 
♦ Bl* 



294 DCS/\7S LIOCS Volume 3 EAM and IS?^M 



Chart KC. ISAM ADDRTR: WAITF Macro ( 3 of 5) 



***** 

*KA * 
* K2* 



♦♦♦* 

* * 

* A3 * 

* * 



.* NORMAL * 
. ADDITION TO 
♦PRIME DATA.* 
♦.AREA .♦ 



IJHAOBEC X 

***itt*Bl********** 
♦IJHAOMCO EJ* 

♦ GET NEW ♦ 
♦OVERFLOW RECORD* 

♦ ADDRESS ♦ 



*****Ql***^f**^Htt'* 

♦IJHAORFL EG* 

♦_♦_♦_♦_*_♦_♦_*_* 

* READ FIRST * 

* OVERFLOW ♦ 

* RECORD ♦ 

^^^^^^(^'♦♦^^♦♦^otc*^ 



«#*««D1 ♦♦♦♦♦♦♦♦♦♦ 
♦IJHAOMTO EH* 
«_*_♦_*_♦_*_*_#_* 
♦GET TRACK INDEX^ 

♦ AND OVERFLOW ♦ 

* RCD ADDRESSES * 
*itt4'**********t*** 



♦IJHCBLDl EK* 
*_*_♦_*_*_*_*_*_* 
♦BLD CCW CHN T3 * 
♦WRITE TRK INDEX* 
* OVFL ENTRY ♦ 

*:ft**iici):if***'^***#it:i)f 
**** 



**** 

X 

* SET RCD TYPE ♦ 

* AND OPERATION ♦ 

* INDICATOR TO ♦ 

* WRITE TRACK ♦ 

* INDEX * 

***:t:**i#i*********'t: 



IJHAA23 

««4c«4cA2*** ♦♦♦♦♦♦♦ 
♦IJHACDTR EK* 

. .X+ SET UP RCD NO ♦ 
*LIN FOR NORMAL * 
♦OR SHRO PD TRK * 



IJHANOWO 

*****Q2********** 

♦IJHAOMCO EJ* 
♦- *_♦_ *_ =!._♦_ *_ *_* 

♦ CALCULATE ♦ 
♦OVERFLOW RECORDS 

♦ ADDRESS ♦ 

ilf:itiilfi:)i:lfs4'*********** 



IJHAA25 X 

♦IJHCBLDl EK* 

*_*_*_*_*_ jji^ *_ *_» 

♦BUILD CCW CHAINS 

♦ TO SEARCH AND ♦ 

♦ READ PD TRACK ♦ 



♦ SET UP TO ♦ 

♦ READ DATA ♦ 

♦ RECORD AND » 

♦ SAVE I/O * 

♦ ADDRESS ♦ 



****i^E Z********** 

♦IJHAIOPH EL+ 

«_♦_#_*_*_#_ 5(^:(,_ije 

♦ EXCP, WAIT * 

♦ AND TEST ♦ 

♦ FOR ERRORS « 



*tlf:tf**A3********** 

♦ BUILD TIC ♦ 

♦ TO READ CCW ♦ 

♦ CHAIN IN ♦ 

♦ DTF TABLE * 

♦ * 



;|(4c**«e3*^*^^^^*** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO ♦ 

* READ DATA ♦ 

* RCD * 
4c4>««*«#4c3e<«**^**^3»' 



**##«C3 ♦♦♦**♦*♦*♦ 
♦IJHAIOOP EL^ 

♦_*_jj^#_*_ ♦_♦_*_* 

♦ EXCP, WAIT * 

♦ TEST FOR ♦ 

♦ ERRORS * 

itc:tt:f ************** 



***** 

♦EE ♦ 
* H3^ 



IJHAA26 X 

:tf****fi^^ ********** 

♦ GET KfcY ♦ 

♦ LENGTH-1 TO * 

♦ CHECK * 

♦ DUPLICATION ♦ 

♦ OF KEYS ♦ 



1JHAPRM8 

t****B^********** 

♦ INCREASE ♦ 

♦ SEEK ADDRESS ♦ 

♦ BY NUMBER OF ♦ 

♦ RECORDS TO ♦ 

♦ BE READ * 



.♦LAST PRIME • 
. DATA RCD 
♦ . WRITTEN ,■■ 



***** 
*KD * 
♦ Al* 



♦ YES 
**** 

REFERENCES * * 
TO KCD4: * * *.X 
KDJl, KDJ3 * * 
**** 
IJHANEDT 

* * 

♦ . YES *ADD KEY LENGTH ♦ 
...... * TO POINTER ♦ 

* . ♦ lOAREAL ♦ 

* * 



♦IJHACDBK EM* 
*_*_♦_*_*_*_*_*_♦ 

♦ EXECUTE * 

♦ DEBLOCKING ♦ 

♦ SUBROUTINE ♦ 
*}if^* ****** ******* 



Hii*,lfiltitfQl******i 


n*** 




G2 *. 




*****g3********** 


♦IJHAIOOP 


EL^ 




.* *. 




♦SET RECORD TYPE* 


*_♦_*_♦_♦_*_*. 


-*-* 




.* PRIME *. NO 


♦ AND OPERATION ♦ 


♦ EXCP, WAIT 

♦ TEST FOR 


* 




♦.DATA IN CORE .♦, 




♦ INDICATOR TO * 


* 




*. ADD .♦ 




♦ WRITE DATA * 


♦ ERRORS 


* 




♦. *Kl .♦ 




* RCD ♦ 


^^'♦♦♦^{(^♦♦*«>«e***^« 




*. .* 


X 


«***««(**«*****#«:»: 


• 






* YES 


***** 
*K0 * 

* Fl* 




X 








* ♦ 

* 


* 


.♦. 






X 




X 


HI *. 






*****H2*** ♦**♦♦** 




*****H3********** 


.♦ ♦, 






* ESTABLISH ♦ 




♦IJHALOOP EL* 


.♦ HOLD 


*. NO 


♦ADDRESSABILITY ♦ 




*_*_*_*_*_*_*_*-* 


♦. =YES 


,*, 




♦FOR PRIME DATA ♦ 




♦ EXCP, WAIT ♦ 

* TEST FOR ♦ 


♦ . ♦Kl 


* 




♦IN CORE SECTION^ 




♦ . •♦ 






♦ OF DTF TABLE ♦ 




♦ ERRORS ♦ 


♦ . .* 




X 


****************«: 




********:«<******** 


♦ YES 




***** 

♦ EE * 

♦ H3* 


."", : 




' 


X 




* * 


♦ J2 ♦.X. 






***** 




* 


♦ ♦ . 






*EF ♦ 


IJHSER2 


**** 




, 


♦ Al^ 






[JHAPRM4 X 




X 


* * 






*****J2*^+ ♦♦♦*♦♦* 




*****J3 ********** 


* 






* CALCULATE ♦ 




♦IJHAPRMl EN^ 


IJHSER2H 






♦ NUMBER OF ♦ 

♦ RECORDS LEFT ♦ 

♦ ON TRACK ♦ 




* MODIFY CCW ♦ 

* CHAIN IF ♦ 



♦ KI 
ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***********iic***** 



IJHAPRM7 

*****K2^^^+^^^+^+ 
♦IJHAPRMl EN^ 
♦_*_»_*_*_*_*_«_* 

♦ MODIFY CCW ♦ 

♦ CHAIN IF * 

♦ NECESSARY * 
*******4t********* 



iJHAA27 

*****e4^^^^^^^^^^ 

* MOVE SEQUENCE * 

* LINK FIELD ♦ 
♦FROM 1ST CHAIN ♦ 
♦OVFL RECORD TO * 

* lOAREAL * 
***************** 



**♦* I 


♦*** ! 




*KD ♦ 


* * . 




♦ K2 ♦.X. 


♦ F3 ♦.X. 




* * , 


* * , 




**** 


*♦♦* , 




IJHACGTO X 


IJHAA26A X 


X 


*****F2*^^ ♦♦*♦*** 


*****P3 ********** 


«)(c:»:**fr4:(c«:tc4c3tc«4e:tt]t<« 


♦ MOVE PRIME * 


♦ BUILD TIC TO * 


* * * * 


♦ DATA RCD * 


* WRITE CCW * 

* CHAIN IN ♦ 


* * SVC 36 ♦ * 


* ID (CCHHRJ * 


* *FREE PRIME * * 


* SEEK/SEARCH ♦ 


* DTF TABLE * 


* *DATA TRACK ♦ ♦ 


♦ ADDRESS * 


* * 


* ♦IF REQUIRED^ ♦ 


***********:tc««3jc«« 


**** **** *« ***** ** 


***************** 



*****K3********** 
♦IJHAJ29 EL^ 

* DETERMINE IF * 

* KEY IN WORKL * 

* IS PADDED * 

*:tc*:jc «# «4c «« :tc* *:«(* «« 



*4'***G4********** 

♦IJHAOSQU EH* 

*_:{£_*_*_*_*_*_*_* 

* WRITE NEW * 

* OVERFLOW * 

* RECORD * 
***************** 



4citc«**H4********** 
♦IJHAOMTO EH* 

* BUILD TRACK * 
♦INDEX OVERFLOW ♦ 

* ENTRY ♦ 

*************:)( :(e 4:* 



:ic:jc***J4********** 

♦IJHACBKI EK^ 
*_*_*_*_*_*_*-*_* 

* GET PTR AND ♦ 

* HIGH KEY FOR ♦ 
♦NORMAL Ti ENTRY^ 
***************** 



♦BLD CCW CHN TO ♦ 
♦WRITE COCR, NML+ 
♦AND OVFL ENTRYS^ 

******««#**4:«4:*** 



*****Q5:t>*«*«*:(e*** 

* GET PRIME * 
*DATA RCD LNGTH * 

* AND POINTERS ♦ 

♦ TO lOAREAL ♦ 

♦ AND WORKL * 

***«#*****;«C3^*;ic*** 



IJHAPRM6 

***:«( 4c05«4c******** 

♦ADD PRIME DATA ♦ 

♦ RECORD FORMAT ♦ 
♦(KL+BLKSI2E+8) * 

♦ TO lOAREAL * 

♦ POINTER * 

*4e*************** 



*:|c***E3***:«c#4c***:je 

*IJHAASHF EK* 

:tii-*-*~*- *-*-*-*-* 

♦ EXCHN6 KEY * 
♦DATA IN lOAREAL* 

* AND WORKL * 

*****«**:«(*:t(««:(t*** 



*****F 5********** 

* * 
*DECREASE NUMBER* 

* OF RECORDS BE * 

* READ BY 1 * 

* * 

************«:«*** 



.* NO. *. 
* OF RCDS *. NO 
TO BE READ .*. .. 



*****H5********** 

* * 

* MOVE LAST * 

* lOAREAL KEY * 

* TO KEYARG ♦ 

* * 

*:tc:(c*4c************ 



**** 

* * 

* F3 * 

* * 
**** 
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WAITF Macro ( 4 of 5) 



***** 

*KC * 

* B5* 
* * 



***** 
*KA * 
* J2* 



**** 

* * 

* A5 * 

* * 
**♦* 



IJHAPRM5 X 

****:«. Al ********** 

*IJHAPRM1 EN* 

*_*-*_*_*_*_*_*_* 

* MODIFY CCW * 

* CHAIN IF * 

* NECESSARY * 
***************** 



IJHAA26 X 

*****A2 ********** 
*1JHCBLD1 EK* 

*6LD CCW CHN TO * 
*READ PRIME DATA* 
* KEY AND BLOCK * 
***************** 



IJHACDUP 

**B1******* 

* TURN ON * 

* AND OFF 
* REQUIRED 

* SWITCHES 

* * 
*********** 



*****Cj ********** 
*MOVE LAST aVFL * 

* RCO AODR TO * 
*LAST INDEP OVFL* 

* RCD AODR INl * 

* DTF TABLE * 
***************** 



* YES 


***** 




*EE * 




* H3* 


X 


* * 


***** 


* 


*EF * 


IJHSER2 


* Al* 




* * 




* 




JHSER2H 




***** 




*KC * 




* G2* 





**** 

* * 

* A2 * 

* * 
**** 



*****E2*** ******* 

*IJHCBLD1 EK* 

*_ *-*- *- *- *- *-*-* 
*BLD CCW CHN TO * 
♦WRITE AND VERY * 
* PRIME DATA * 
***************** 



*****F2********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* RECORD * 
***************** 



*****G1 ********** 
*IJHACDBK EM* 
*_*_*_*_*_*_*_*_* 

* INSERT RECORD * 

* ON PRIME DATA * 

* TRACK * 
***************** 



*****Hi********** 

* STORE KEY * 

* OF PHYSICAL * 

* RECORD IN * 

* KEYARG ♦ 

* IF REQUIRED * 
***************** 



*****G2********** 
*IJHAIOOP EL* 
*_*_*_*_*_*_*_*_* 

* EXCPf WAIT * 

* TEST FOR * 

* ERRORS * 
***************** 



*****H2********** 

* * 

* MOVE KEY * 

* FROM WORKL *. 

* TO KEYARG * 

* * 
***************** 



YES .* 


LAST * 


.. .*. 


RECORD 


* 


WRITTEN .* 




*, ,* 


X 


*, ,* 


***** 


* NO 


*KC * 




* D'^* 




* * 




* 




IJHANEDT 





*****t<l ********** 

*IJHCBLD1 EK* 
*_*_*_*_*_*_*_*_* 

*BLO CCW CHN T3 *. 
*READ NEXT PRIME* 
* DATA RECORD * 
***************** 



*****J2********** 

* SET RCD TYPE * 

* AND OPERATION * 
.X* INDICATOR TO * 

* READ DATA * 

* RECORD * 
***************** 



*****K2********** 
*IJHAIOOP EL* 
*_*_*_*_*_*_*_*_* 

* EXCP, WAIT * 

* TEST FOR * 



IJHAQUA X 

*****A3********** 
*IJHACDTR EK* 
*_*_*_*-*_*_*_*_* 

* INSERT RECORD * 
« ON PRIME DATA * 

* TRACK * 
***************** 



* AND OPERATION * 


.* HOLD 


* 


. YES 


* INDICATOR TO * 


*. =YES 




.*. .. . 


* READ PR IME * 




* 




* DATA RCD * 


**. .* 






***************** 


*. .* 




X 




* NO 




***** 


* 






*K£ * 

* 04* 

* * 

* 








IJHAETFL 


X 


IJHAEBFL .*. 






*****C2 ********** 


C3 *. 






*IJHAIOOP EL* 


.* * 






*_*_*_*_*_*_*_*_* 


.* UNBLOCKED 


* 


. YES 


* EXCP, WAIT * 


*, RECORDS OR 




.*. .. . 


* AND TEST FOR * 


*. FILLED 


* 




* ERRORS * 


*. BLOCK.* 






***************** 


*, .* 




X 




* NO 




***** 
*KE * 

* A2* 

* ♦ 

* 


X 






IJHAUNB 



*****03* ********* 
*IJHCBLD1 EK* 

*_*_*_*_*„*_*«*_* 

*BLD CCW CHN TO * 
*READ NEXT PRIME* 
* DATA RECORD * 
***************** 



*****E3 ********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* READ DATA * 

* RECORD * 
***************** 



*****P3 ********** 

*IJHAIOPH EL* 
*_*_*_*„*^*_*_*_* 

* EXCP, WAIT * 

* TEST FOR * 

* ERRORS * 
***************** 



*****A4********** 
*IJHACDBK EM* 
*_*_*_*_*_*-*_*_* 

* EXECUTE * 

* DEBLOCKING * 

* SUBROUTINE * 
***************** 



*****g4********** 

*UHABL01 EK* 

*_*-.*_*_*_*-.*_*-* 

*BLD CCW CHN TO * 
*WRITE AND VRFY * 
* PD RECORD * 
***************** 



*****C4********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE PRIME ♦ 

* DATA RCD * 
***************** 



*****04********** 
*IJHAIOOP EL* 

♦-.*_*_*-.*-*-*-.*_* 

* EXCP, WAIT * 

* TEST FOR * 

* ERRORS * 
***************** 



*****£4********** 

♦IJHACUPP EJ* 
*_*_*_*„*_*_*_*».* 

* UPDATE PRIME * 

* DATA RECORD * 

* COUNT * 
***************** 



*****P4**»******* 

* * * ♦ 

* * SVC 36 * ♦ 

* * FREE DATA * * 

* * TRACK * * 

* * * * 
***************** 



*****H3********** 
*IJHAASF EK* 
*_*-.*_*_*_*_*_*_* 

.X* EXCHNG KEY * 
*DATA IN lOAREAL* 
* AND WORKL * 
***************** 



J3 *. 




*****j4********** 


.* LAST *. 




* MOVE LAST * 


PRIME * 


. YES 


* TRACK INDEX * 


DATA RECORD 


.*. .. . 


* ADDRESS TO * 


.REWRITTEN.* 




* SEEK/SEARCH * 


*. .* 




* ADDRESS * 


*. .* 


X 


***************** 


* NO 


***** 

*KC * 

* D4* 

* * 

* 

IJHANEDT 





*****K3 ********** 

*IJHACUPD EL* 
*_*_*_*_*_*_*_*_* 

* UPDATE LAST * 

* PRIME DATA * 
*RECORD ADDRESS * 
***************** 



*** **K 4******** ** 

*IJHCBLDI EK* 
*_*_*_*_*_*_*_♦_* 

*BLD CCW CHN TO * 

* WRITE TRACK * 

* INDEX ENTRIES * 
***************** 



*****A5********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO * 

* WRITE DATA * 

* RCD * 
***************** 



*****B5 ********** 

*IJHAI00P EL* 

*_♦_*-*-.*-*_*_*_* 

* EXCP, WAIT * 

* TEST FOR * 

* ERRORS * 
***************** 



*«***C5********** 

* * * ♦ 

* * SVC 36 * * 

* *FReE INDEX * * 

* * TRACK * ♦ 

* * ♦ * 
***************** 



*****Q5*****«**** 

* SET RCD TYPE ♦ 

* AND OPERATION ♦ 

* INDICATOR TO * 

* READ MASTER * 

* INDEX ♦ 
***************** 



* H5 *.X 



**** 
IJHAEMCI 

*****E5*i********* 

*IJHCERCA €G* 
*_*_*-*_*-*_*_*-.* 

* GET HIGHEST * 

* LEVEL INDEX * 

* STARTING ADDR * 
***************** 



.* MASTER *. NO 
*. INDEX ...... 

*. PRESENT .* 



**** 






f yt5 ***** 
*KE * 


*KE * 




* Al* 


* G2 *.X 




* * 


* * 




* 


**** 




IJHAA40 


IJHAEFXD X 




*****G4********** 


*****G5 ********** 


* MOVE POINTER * 


* MOVE LAST * 


* FROM LAST * 


* MASTER INDEX * 


* TRACK INDEX * 


* ADDRESS TO * 


*OVERFLOW ENTRY * 


* SEEK/SEARCH * 


* TO WORKL ♦ 


* ADDRESS * 


***************** 


***************** 






**** 








*KE * 








* CI *.X 








* ♦ 








**** 




X 


IJHAA38 X 


*****H4********** 


*****H5********** 


*IJHAA41 EJ* 


♦IJHC6LD1 EL* 


*_*_*_*_*_*_*_*_* 


*_*_*_*_*_*_*_*_* 


* MOVE PTR FROM * 


♦BUILD CCW CHAIN* 


*LAST TI NORMAL * 


* TO READ INDEX * 


*ENTY TO lOAREAL* 


* ENTRY * 


********} 


)c******** 


***************** 



ERREXT *. 


YES 


= YES 


*. . .. 


.* 




. •* 




*. .* 


X 


* NO 


***** 




*KE * 




* A3* 




* * 




* 



*****K5 ********** 
*IJHALOOP EL* 
*_*_*_*_*_*_*_*»* 



.IJHACGTO 

X 

***** 

*KC * 

* F2* 

* * 



***** 
*KE * 
* Bl* 
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WAITF Wacro (5 of 5) 



***** 

*KD * 

♦ F5* 



***** 
*KD * 
* C3* 



***** 
*KD * 
* J5* 



IJHAA40 X 

**3|c**AL********** 

* MOVE CYLINDER * 

* INDEX START * 

* ADDRESS TO * 

* SEEK/SEARCH * 

* ADDRESS * 

*4c««****««*«:tc**«« 



**** 

*KD * 

* K5 *.X 



**** 
IJHAA39 X 

««***B], *«*«««**«* 

* WVE LAST * 
♦CYLINDER INDEX * 

* ENTRY ADDRESS * 
*T0 SEEK/SEARCH * 

* ADDRESS * 
4c**************** 



.* CYLINDER 


*. NO 


INDEX 


.*.... 


*. UPDATED 


* 


*, .* 




*, ,* 


X 


* YES 


***** 


**** , 


*KD * 


* 


* H5* 


Dl *.X. 


* * 


* 


* 


**** X 


IJHAA38 



.* CYLINDER *, NO 
.INDEX IN CORE.*... 
♦.SPECIFIED.* 



* POINT TO NEXT * 

* CORE INDEX * 

* ENTRY * 

* IF REQUIRED * 

«:«<««*««« 4c******** 



IJHADEC 

«4c*«*pi:(c :«(«#:((:((*«: :((:«: 

* INSERT NEW * 

* KEY INTO * 

* CORE INDEX * 

* ENTRY * 

* * 

*4c#:tc***4c********* 



***** 

*EE ♦ 
* H3* 



IJHAUNB X 

#««:« :(cA 2 ********* * 

* MOVE LAST * 

* PRIME DATA * 
♦RECORD ADDRESS ♦ 
♦TO SEEK/SEARCH * 

* ADDRE SS * 

4c* **3|c4: 4c* «* ««!*«*** 



*«***B2*«* ♦♦♦♦*♦♦ 
♦IJHACUPD EL* 

*-*-*-*-*-*-*-*-* 

♦ UPDATE LAST ♦ 

♦ PRIME DATA * 
♦RECORD ADDRESS * 
***************** 



*****C2*+* *♦♦♦*♦* 

♦ MOVE UPDATED ♦ 

♦ PRIME DATA * 

♦ ADOR (CCHHR) ♦ 

♦ TO CURRENT * 

♦ COUNT FIELD « 

«4c4c««************ 



«****02 ♦♦♦♦*♦♦*♦* 

♦ MOVE BLOCK ♦ 

♦ SIZE TO ♦ 

♦ CURRENT * 

♦ PRIME DATA * 

♦ COUNT FIELD ♦ 

*«:*************** 



IJHERRA X 

*#«««A3««*«««4:««4c 

♦ SET RCD TYPE * 

♦ AND OPERATION * 

♦ INDICATOR TO * 

♦ WRITE MASTER ♦ 

♦ INDEX * 

4<*************4c** 



**«i{c«B3**^******^ 
♦IJHALOOP EL* 

* EXCP, WAIT * 

* TEST FOR * 

* ERRORS * 
***************** 



IJHAA39 X 

*****C3*** ******* 

* MOVE LAST * 
♦CYLINDER INDEX * 

* ENTRY ADDRESS ♦ 
*T0 SEEK/SEARCH * 

* ADDRESS * 
***************** 



*****D3********** 

* SET RCD TYPE * 

* AND OPERATION * 

* INDICATOR TO *. 

* READ CYLINDER ♦ 

* INDEX * 
***************** 



****E3 ********* 

* ISAM ADDRTR * 

* BLOCKED RCDS * 

* SUBROUTINE * 
*************** 



*****F 2* ********* 
♦IJHAA34 KE* 
*_ *_ *_ *_*_*_*_*_* 

* WRITE OVER * 

* EOF RECORDS * 

* * 
***************** 



IJHAA35 

*****F3 ********** 
♦IJHACPDL EK* 
*-*- *_ *_ *- *- *_ * _* 

* WRITE OVER * 

* EOF RECORD * 

* * 
***************** 



IJHAA37 

*****g2**^ ******* 
*IJHACEOF EL* 
*_*_*_ *_ *_ *_*_*_* 

* WRITE NEW * 

* EOF RECORD * 

* * 
***************** 



***** 
*KD * 
* G4* 



IJHAHEAD 

*****G3 ********** 

* IJHACLTI EJ* 
*-*-*_*_*-*-*_*_* 

* GET TRACK 
♦INDEX OVERFLOW * 

* ENTRY ADDRESS * 
***************** 



*X- 



***** 
*KD * 
* B3 + 



*_*-*_*_*_*-*_*_ 

* CALCULATE NEW * 
♦OVERFLOW RECORD* 

* ADDRESS * 
***************** 



*****£4********** 

* SET TRACK * 

* INDEX ENTRY * 

* TO INDICATE * 

* OVERFLOW * 

* END * 
***************** 



*****P4********** 

* IJHAOSQU EH* 
*_*_*_*_*_*_*_*_* 

* WRITE NEW ♦ 

* OVERFLOW * 

* RECORD * 
***************** 



«* . 
G4 *. 
.PREVIOUS* 
NU .* OVERFLOW 
...*. ENTRY ON 
*. THIS 
♦.TRACK.* 



****HL** ******* 

* ISAM ADDRTR * 

* KEY SIZE ♦ 

* SUBROUTINE * 
*************** 



*****H3 ********** 

* * 

* MOVE POINTER * 

* TO ADDED * 

* RECORD * 

* * 
***************** 



***************** 



****K1********* 

* RETURN TO * 
♦CALLING ROUTINE* 

♦ * 
*************** 



*****H4********** 
*IJHAORFL EG* 

*_*_*_*_*_*_*_*_* 

*GET LAST ENTRY * 

* IN OVERFLOW * 

* CHAIN * 
***************** 



*****j4********** 
*IJHAOLOW EJ* 

*_*_*_*-*-*-*-*-* 

* UPDATE SEQUENCE* 

* LINK FIELD * 

* LAST ENTRY * 
*****!St *********** 



**** 

* * 

* C5 * 

* * 
**** 



* MOVE KEY * 

* AND POINTER ♦ 

* TO lOAREAL * 

* * 
***************** 



*_*-*_*-*_*_*_*_* 

♦ GET TRACK * 
♦INDEX OVERFLOW * 

* ENTRY ADDRESS * 
***************** 



*****E5**«******* 

♦IJHCBLDl EK* 
*_*_*_*_*_*_*_*_* 

* BUILD CCW * 
♦CHAIN TO WRITE * 

* TRACK INDEX * 
***************** 



*****F3********** 

* SET RCD TYPE ♦ 

* AND OPERATION ♦ 

* INDICATOR TO * 

* WRITE TRACK ♦ 

* INDEX ♦ 
***************** 



*_ *- ♦- *_ *_ *_ *_*_* 

* EXCP, WAIT * 

* AND TEST * 

* FOR ERRORS * 
***************** 



*****H5 ********** 



* * 



* * 



SVC _- 

* *FREE INDEX * * 

* * TRACK * * 

* *IF REQUIRED* * 
***************** 



***** 
*KD * 
* E5* 
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Chart KF. IS?^M ADDRTR: WRITE Kacro, KEY 



* ISAM ADDRTR * 

* WRITE MACRO * 

* * 



*A2 

ISMOD MACRO PARAMETER 
OPTION. THIS DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* * 

* B3 * 

* * 
♦ *+* 



* * 

* B4 * 

* * 



RDOMLY 

= YES 

*A2 



*:il^^*4:************ 



* STORE USER * 
♦REGISTERS 2-14 * 

* IN SAVE AREA * 

* * 



**«**01********** 

* ESTABLISH * 

* REGISTER 14- * 

* AS SECOND * 

* BASE REGISTER * 

* * 



ROONLY 

= YES 

*A2 



*****E2********** 

* * 

* SAVE POINTER * 
.X* TO SAVE AREA * 

* IN REGISTER * 

«4<«)(c#](( ** «« :jc« *i)iHit* 



IJHRPRNT 

**F1******* 

* TURN ON * 

* WRITE BIT 
* IN DTF 

* TABLE 

* ♦ 



*****B3********** 

* GET POINTER * 

* TO WORKR * 

* AND POINTER * 

* TO LOGICAL * 

* RECORD * 
***************** 



j(<#***C3********** 
♦IJHRWRKA FJ* 

* MOVE LOGICAL * 

* RECORD TO * 

* WORKR * 



*****03********** 
♦IJHCBLD2 FJ* 

*_♦_*„*_#_*_*_;(<».* 

* BUILD CCW * 

* CHAIN TO * 

* WRITE RECORD * 



.*UNCORR *. 

*DASO ERROR,*. 

WLR OR NO . 

*. RECORD .* 

*. FOUND.* 

*. .* 


X 


* NO 


***** 




*KB * 
* E2* 
* * 




* 


X 

♦♦HI******* 

* RESET * 

STATUS BYTE * 

IN DTFIS 

TABLE * 


IJHRERRR 


* 



*********** 



*****JX ********** 

*IJHCINIT EG* 

*_*_*_*_*_♦_*_♦_♦ 

*INITIALIZE PTRS* 

* TO PARTS OF * 

* DTF TABLE * 
***************** 



*****Kl ********** 

* * 
*GET IDENTIFIER * 

* SAVED BY * 

* READ ROUTINE * 

* * 
***************** 



*****P3*** ******* 

* SET COUNT * 
♦FIELD IN WRITE * 

* AND VERIFY * 

* CCW'S TO * 

* BLOCK SIZE * 
***************** 

**** 



* *.X 



**** 
IJHRESCO 

*****Q3********** 

*IJHCEXWT EE* 

*_*_*_*_*» *_ *_* _* 

* EXCP, WRITE * 

* RECORD AND * 

* WAIT * 
***************** 



**C4******* 

* TURN OFF * 

* SEEK CHECK 
* SWITCH AT 

* IJHCNTSW 

* * 
*********** 



***** 

*KB * 
* G2* 



* REFERENCES 
TO KFG3S 
JGG5, JGK5 



SEEK *, 


NO 


CHECK 


*..,. 


REQUIRED .* 




*, .* 




*, ,* 


X 


* YES 


***** 




*KB * 




* G2* 




* * 












IJHSER2 



*****J3********** 

* * 

* GET lOAREAR * 

* COUNT FIELD * 
*FOR SEEK CHECK * 

* * 
***************** 



*****K3********** 
*IJHSKERR EN* 
*_*_*_*_*_*_*_*_* 

* TEST FOR * 

* OVER/UNDER * 

* SEEK * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 
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Chart Lh. $$BOIS01: ISAM Open, Phase 1 (1 of 2) 



* B3 * 

* * 



XTCHEK X 

♦INIT FIXED AND * 

* VARIABLE ADDR * 
♦REGISTERS WITH * 

* ADDRESS OF * 

* 1ST EXTENT * 

**♦* * 



♦***C1********* 

* ♦ 

* *$B0IS01 * 

* ♦ 



PHASEl 

* GET ADDR IN * 

* SYSRES DASD * 

* LABEL * 
♦INFORMATION IN * 

* MAIN STORAGE * 



* GET ADDRESSES * 

* OF FIRST AND * 
*LAST EXTENT IN * 

* SYSRES DASD * 

* LABEL INFO. * 

««4> <(«:(( ««4c«3gc:tc#«!4c*:{c 



♦*♦* X 






LLVSUL .*. 




OVLMSR 


C3 ♦. 


C. ♦. 


4< :«<:)(:(<«(; 5 *'»'*<''«< **'t<=f* 


.* *, 


.* *. 


* * 


.* ALL *. NO 


.* EXTENT LL *. NO 


* SET UP TO * 


*. EXTENTS •*..•.. 


• .•X'<'* LESS THAN •* . « . 


...••X* ISSUE MSG * 


*. CHECKED .* 


*. UL .* 


X * 42401 * 


*. .* 


*. .* 


* * 


*. .* 


*. .* 


««3it:tc««4:««:tc:tc4:;tc«:tc#:tt 


* YES 


* YES 


**** 


♦*** , 




* ♦ 


* * . 




* 05 * 


* D3 *.X. 




* * 


* ♦ • 




**** 


**** 






SKIP12 X 


X 


X 


«4(«««D3 «*«««««««« 


♦♦♦♦*04********** 


♦***#[)5*****««*## 


♦ GET * 


Hf # 


* MOVE * 


* ADDRESS * 


* POINT TO * 


* LOGICAL UNIT * 


* OF FIRST ♦ 


* NEXT * 


* FROM EXTENT * 


* EXTENT * 


* EXTENT * 


* TO CCB * 



* SET UP TO * 
X* ISSUE MSG ♦ 

* 42711 * 

* ♦ 

3tc9|e:((«]|<« «« «« «:(c :(i««4c4c 



* F2 *.X 



**** 

SKIP05A X 

* MOVE * 

* SYSRES * 

* SYMBOLIC * 

* UNIT ADDR * 

* TO CCB * 



* G2 



*.X 



**H1 ******* 

* TURN ON ♦ 

FILE 

CREATION 

SWITCH 

* « 



LOAD 

CREATE 

.FUNCTION 



**** 
MSGRTN X 

3(C«*««Q 2 ********** 

* GET ADDR * 

* OF MSG * 

* WRITER, * 

* $$B0MSG1 * 

* * 



****H2********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 



«*«« :lf:tf**** ***** ** 



SKIP16 

^i***iif^2 ********** 

* INCREASE ADDR * 

* OF VARIABLE * 

* REGISTER TO * 

* POINT TO NEXT * 

* EXTENT * 



F3 *. 

.* VAR *. 

.* REG POINT *. 

. TO END OF .= 

*. EXTENTS .* 



***************** 



***************** 

X 

**** 

* * 

* G2 * 

* * 
**** 



SAME 
SYMBOLIC 
. UNIT 



* C5 * 

* * 
**** 



SK1P08 

*****KX ********** 

* SET RESERVED * 

* FIELD IN * 

* FORMAT-1 * 

* LABEL TO * 

* ZERO * 
***************** 



*****K 2* **,******* 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 4261 1 * 

* * 
***************** 



.INCFXD 

*****G4********** 

* INCREASE * 

* ADDRESS OF * 

* FIXED REG TO * 

* POINT TO NEXT * 

* EXTENT * 
***************** 



.* FIXED *. 

REG POINT *. 

TO END Of . 
. EXTENTS .* 



*****J4********** 

* * 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 
***************** 



***** 
*LB * 
* 82* 



**** 

* * 

* B3 * 

* * 
**** 



**** 

* * 

* F2 * 

* * 
**** 
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Chart LB. $$BOIS01: ISAM Open, Phase 1 ( 2 of 2) 



***** 

*LA * 
* J4* 



*****C1 ********** 



****B3 ********* 

* SVC 2 * 

* FETCH * 

* $$B0IS02 * 
*************** 



***************** 



2311 .* PRIME * 
•,*.DATA ON 2311 
*. OR 2314 .* 



PRIME 

DATA ON 

2321 



*****F2********** 

* COMPUTE * 

* NUMBER OF * 

* CYLINDERS * 

* FOR 3330 * 

* * 
***************** 



*****G2********** 

* SET PROPER * 

* DEVICE * 

* CONSTANT * 

* * 
***************** 



*****H 2*** ******* 

* COMPUTE * 

* NUMBER OF * 

* IRACKS AND * 

* STORE RESULT * 

* * 
***************** 



****J2********* 

* SVC 2 * 

* FETCH * 

* $$B0IS02 * 

******;********* 



*****D3********** 

* * 

* SET UP TO * 
X* CALCULATE *. 

♦NUMBER OF 2314 * 

* TRACKS * 
***************** 



*****£. 3 ********** 

* * 

* COMPUTE * 
X* NUMBER OF * 

* SU8CELLS * 

* * 
***************** 



*****F3****«***** 

* * 

* COMPUTE * 

* NUMBER OF * 

* STRIPS * 

* * 
***************** 



*****G3********** 

* * 

* COMPUTE * 

* NUMBER OF * 

* CYLINDERS * 

* * 
***************** 
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Chart LC. $$BOIS02: ISAM Open, Phase 2 ( 1 of 2) 



****A1 ********* 

* * 

* $$B0IS02 * 

* * 



PHASE2 

X(li<**3(tBl********** 

* SAVE * 

* ADDRESS OF ♦ 

* FIRST CCW * 

* IN $$B0IS02 * 

* * . 



♦♦**#A3*** ******* 

* * 

* SET UP TO * 

* READ VOLI * 

* LABEL * 

* * 
X(#*Xc«<(«****«**:t<«<< 



4t4e*4c«B3*** ******* 

* * 

* FIND PUB * 

* ENTRY USING * 

* SYSIR MACRO * 

* * 



* * 

* 85 * 

* * 



,* *, 
YES .* CORRECT * 
...*. PACK 

*. MOUNTED .* 



***** 

*LD * 

* D2* 

* * 



SKIP04 X 




.*. 


*«***ci********** 




C2 *. 


* RELOCATE * 




,* * 


* CCW'S BY * 


YES 


.* DEVICE 


* ADDING RELOC * 


. ..* 


. UNASSIGNED 


* FACTOR TO * 




*. 


* CCW ADDRESS * 




*, ,* 


***************** 


X 


*, .* 


, 


**** 


* NO 



.* DEVICE 
. UNASSIGNED 
*0R IGNORED-: 



**** 

.xl 



*****[>!********** 

* GET AODR OF * 

* SYSRES DASD * 

* LABEL * 
♦INFORMATION IN * 

* MAIN STORAGE * 
***************** 



RETURN *. YES 
FROM MSG .*.... 
. WRITER .* 



*****P1********** 

* * 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 

****************:tc 



**G1******* 

* TURN ON * 
FIRST TIME 

THROUGH 
TRANSIENT 

* SWITCH * 
******«**««( 



*****HI********** 
*GET EXPIRATION * 

* DATE AND * 

* RETENTION * 

* PERIOD USING * 

* SYSDC MACRO * 
***************** 



*****jl********** 

* * 

* CLEAR * 

* RETENTION * 

* FIELD * 

* * 

:)c* *************** 



**D2******* 

* TURN ON * 
IGNORE 

BIT IN DTF 
TABLE 

* * 
*********** 



****E2********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



SKIP06 

♦*F2******* 

* TURN OFF * 

* SWITCH TO 
..X* INDICATE RTN 

* FROM MSG 

* WRITER * 
**********# 



.PU6MS6 X 

*****D4********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 42831 * 

* * 

*********«:«:«< :jc:«:;(c:t<* 



VOLGET 

*** * *E 3 ******* * ** 
♦EXCPRT LF* 

*_*_*_*_*- *_ *_ * _* 

* SVC * 

* EXCP * 

* * 
***************** 



**** 
SKIP08 X 

*****K1.********** 



***************** 



VOLI 

LABEL 

READ 



NOVLMSl 

*****p4*«*******:(c 

* SET UP TO * 

* ISSUE ♦ 

. ..X* MESSAGE *- 

* 42061 * 



:(c«**«**4c*3te«4e*:4c«*:jc 



* SET UP TO * 
.X* ISSUE MESSAGE * 

* 42061 * 



**************-^** 



*****H3***«****** 

* GET ADDRESS * 

* OF SYSRES * 

* LABEL INFO * 

* IN MAIN * 

* STORAGE * 
***************** 



J3 *.. 

* FILE * 

SERIAL 

NUMBER 
PRESENT 



**C5******* 

* TURN UN * 
SWITCH FOR 
RETURN FROM 

MESSAGE 

* WRITER * 
*********** 



*****05********** 
*IWiT TO RETURN * 

* FROM MESSAGE * 

* WRITER TO * 

* THIS PHASE * 

* * 
^**************** 



***«*£ 5********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE ♦ 

* 4255A * 

* « 
***************** 



*****P5*«***«**** 

* MOVE * 

* CORRECT * 

* SERIAL * 

* NUMBER TO * 

* CCW * 
***************** 



****H4********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



*. 



* FIRST *. 






TIME 


* 


NO 


THROUGH 




•*•••• 


TRANSIENT, 


* 




*. .* 






*. .* 




X 


* YES 




***** 
*LD * 
* 02* 


X 




* * 


***** 




* 


*LD * 






* B2* 
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Chart LD. $$BOIS02: ISAM Oigen, Phase 2 ( 2 of 2) 



*«** 

* * 

* B4 * 

* * 
**** 



**B2******* 

* TURN OFF * 
FIRST TIME 

THROUGH 
TRANSIENT 

* SWITCH * 



*****C 2* ********* 

* MOVE VOLUME * 

* SERIAL NUMBER * 
♦TO FILE SERIAL * 

* NO. FIELD IN * 
*DASD LABEL INFO* 

**** 



_*_*_*-*_*_*_*_* 

♦WRITE FORMAT-4 * 

* LABEL ON * 

* DASD * 

#*«4:************* 



♦ *** 

SKIP16 •*. 

C4 *. 

.* *, 

.* EXTENT * 

*. LIMITS OVLP 

♦ .ONTO VTOC* 



. X* 



*.X 



*♦** 
SKIP12 X 

*♦***[) 2* ********* 

* SET UP TO * 

* READ ♦ 

* FORMAT 4 * 

* LABEL * 

* * 
*♦♦*♦♦*♦***♦***♦* 



REFERENCES 
TO LDD2: 
LCB5, LCK3 



SKIP20 

:t<4(4c9(c4c04********** 

* SET * 

* POINTEP * 

* TO NEXT * 

* EXTENT * 

* * 

****«*«*«:t<**«4<*** 



*«3je«:«c£ 5:|c3ic«3ti****** 

* SET UP » 
TO ISSUE * 

MESSAGE * 

* 42411 * 

* ♦ 



**♦* 

* * 

* G3 * 

* * 
**** 





«****E2********** 






E4 *. 


E5 *. 






♦EXCPRT LF* 






.♦ *. 


,* *. 






*_*_*_*_*_*_*_*_* 






.* MORE *. YES 


.* SAME *, 


YES 




* SVC * 






*. EXTENTS .*.,. 


....X*. SYMBOLIC 


*. . .. 




* EXCP * 






*. .* 


*. UNIT .* 






* * 






*. .* 


*, ,« 






1f:l^itf^**(*********** 






*, .* 
* NO 


*• .* 
* NO 


X 
**♦* 

* * 

* C4* 

* * 
**** 




X 








*LC * 






.*. 


NF4FND1 




SKIP24 .*. 


* Kl* 






F2 *. 


«****F3*******#** 


F4 *. 


* * 






.* *. 


* SET UP TO 


* 


.* COBOL *. 


♦ 






.* RECORD ♦. NO 


* ISSUE 


* 


.* OPEN *. NO 


SKIP08 






*. FOUND .*.... 


...X* MESSAGE 


* 


*.IGNOR OPTION .*... 








*, ,* 


* 42041 


* 


*. SPEC .* 








*. .* 


* 


* 


*. .* 








*. . * 


««4c4<*«4c********** 


*. .* 








* YES 


**** 1 

* * 

* G3 *.X. 

* * . 




* YES 










**** , 










NF4FMD 




ABTMSG 




X 






***#*GI ********** 


G2 *. 


X 




:(c«Q4«4(«:(c««3{<: 






* SFT UP TO * 


.* *. 


****G3*** ****** 


* TURN OFF * 






* ISSUE * 


NO .* FORMAT *. 


* SVC 2 


* 


* OPEN IGNORE * 






* MESSAGE *X... 


*. 4 LABEL .* 


* FETCH 


* 


* INDICATOR IN * 






* 42041 * 


*. READ .* 


* $$B0MSG1 


* 


* DTF TABLE ♦ 






* * 


*. o * 


«:#« ««: #««:(>:«««:(c« * 


* * 






#***#********♦*:** 


*, ,* 
* YES 






*********** 






X 
**** 






* * 


X 












* G3 * 


.*. 






X 






* * 


H2 *. 






««««:icH4********** 








.** FORMAT **. YES 
*. 5 INDICATOR .*.... 
*. ON -* 






* SET UP TO * 

* FETCH * 

* $$B0IS03 * 







**** 

* * 

* C4 * 

* * 
**** 



**j2******* 



««#3tc********«**** 



**4*J4******+** 

* SVC 2 * 

* FETCH * 

* NEXT PHASE * 

4:************** 



*****K2********** 


* 


I NIT TO 


* 


* 


WRITE 


* 


* 


FORMAT 4 


* 


* 


LABEL BACK 


* 


* 


ON DASD 


* 


4:*********:(c4i***** 




X 






**** 
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Chart LE. $$BOIS03: ISAM Open, Phase 3 C 1 of 2) 



♦♦♦♦Al********* 

* * 

* $$B0IS03 * 

* * 



PHASE3 

* SAVE ADDRESS * 

* OF FIRST * 

* CCW IN * 

* $$B0IS03 * 

* ♦ 



* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 42061 IF * 

* REQUIRED * 



* SAVE PD AND * 

* INDEX DEVICE * 
♦TYPE INDICATORS* 
*FROM DTF TABLE ♦ 

* * 



SKIP04 X 

* RELOCATE CCWS * 

* BY ADDING * 

* RELOCATION * 

* FACTOR TO * 

* CCW ADDRESS * 



LAST 

CCW TO 

.RELOCATE 





* * 






* 


RETURN 


* 


YES 




FROM SO 




*.... 


* 


,.°'^'' ., 


*' 


I 




*. ,* 




X 




* NO 




*LF * 

* C2* 

* * 

* 

NDVTOC 



* SAVE TYPE, * 

* SEQUENCE NO., * 

* UPPER AND * 

* LOWER LIMITS * 
♦FROM 1ST EXTEMT+ 



♦ *** 

SKIP12 X 

♦ * 

♦ SET UP TO * 

♦ READ VOLl ♦ 

♦ LABEL ♦ 

♦ * 



*♦♦* 

♦ * 

♦ 83 ♦ 

♦ * 



««««:0««4<*4<:t<««*««:ii 



4c4c:(e:(c:)(D3*^**^^*^** 

♦ SET UP TO ♦ 

♦ READ FORMAT 4 ♦ 

♦ LABEL, SAVE ♦ 

♦ ITS RECORD ♦ 

♦ NUMBER ♦ 



*****E3 ********** 

* SET UP TO * 

* ISSUE ♦ 

* MESSAGE ♦ 

* 42041 * 

* IF REQUIRED ♦ 

4c«:ic:(t4<««4( ********* 



♦EXCPRT LF* 
*_♦_*_*_♦_*_*_♦_♦ 

* READ FORMAT 4 * 

* LABEL * 

* * 
«;»E«««*«4( ********* 



♦♦♦♦♦G3 ********** 

* * 

* SAVE * 

* VTOC * 

* LIMITS * 

* * 



**** 
♦LF * 

* K2 *.X 



♦*** 

SKIP14 X 

«««#*H3*** ******* 

* MOVE CURRENT * 

* EXTENT LIMITS * 
♦TO FIRST EXTENT* 

* IN DASD LABEL * 

* INFORMATION * 

;<<#4<« :((:{( 4e« «« ^(E**^'* ** 



«:Ce***J3 ********** 

* GET ADDRESS * 

* OF DASD * 

* LABEL * 

* INFORMATION ♦ 
♦IN MAIN STORAbE* 



**K3******* 

♦ TURN ON ♦ 
RETURN 
FROM SD 

OPEN 

* SWITCH * 

4c ****** *<:** 



X 






.*. 






C4 *. 






.* IS * 






IT AN 


*. NO 


INDEX TYPE 




.*.• 


. EXTENT 


♦ 




*, .* 







*4c«4c«D4**^*^*^^^^ 

♦ STORE INDEX ♦ 

♦ DEVICE TYPE ♦ 

♦ IN BYTE 29 ♦ 

♦ DTF * 

♦ TABLE ♦ 

#4c«**«*********** 



♦♦♦*E4***^***** 

* SVC 2 ♦ 

* FETCH * 

* $$B0SD08 * 
4t«4c** ********** 
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* GET LOGICAL * 

* UNIT FROM * 
♦CURRENT EXTENT * 

* * 



* * 

* GET ADDRESS * 

* OF NEXT * 

* EXTENT * 

* * 
***************** 



*****£ 2********** 

* RESTORE * 

* DEVICE TYPE * 

* INDICATOR * 

* BYTES IN * 

* OTF TABLE * 
***************** 



****A4********* 

* $$B0IS03 * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
*************** 



* GET ♦ 

* ADDRESS OF * 

* CCB * 

* * 
***************** 



***(;4************ 
SVC 
* READ * 
LABEL 
* RECORD * 

***************** 



.* *. YES 

RECORD .*.... 
*. FOUND .* 



*****05********** 



***************** 



****£ 5 ********* 

* RETURN TO * 
.X* CALLING * 

* ROUTINE * 
*************** 



.* ALL *. 

EXTENTS 

♦.PROCESSED.* 



* SAME * 


, NO 


SYMBOLIC 


,* 




*. UNIT .* 






*. .* 






*. , * 




X 


* YES 




***** 

Ml J 

* * 
* 


X 






***H 2*** ******* 






* 




GET ADDR OF 


* 




FORMAT 4 LBL 


* 




AND RCD NO. 


* 





***************** 



*****j 2 ********** 

* GET LOGICAL * 

* UNIT CLASS * 

* AND ORDER * 

* FROM * 

* EXTENT * 
***************** 



*****K2*** ******* 

* GET CELL * 

* UPPER AND * 

* LOWER * 

* LIMITS FROM * 

* EXTENT * 
***************** 



**P3******* 

* TURN OFF * 

RETURN 

FROM SD 

OPEN 

* SWITCH * 
*********** 



*****G3 ********** 

* * 

* GET ADDR * 

* OF FIRST * 

* EXTENT * 

* * 
***************** 



*****H3********** 

* MOVE FIRST * 

* EXTENT * 

* INFORMATION * 
*FROM SAVE AREA * 

* TO WORK AREA * 
***************** 



* SET UP TO * 

* FETCH * 

* $$BOIS04 * 

* * 
***************** 



****K3********» 

* SVC 2 * 

* FETCH * 

* i$BOIS04 * 
*************** 



*****f:4********** 

* SET UP TO * 

* FETCH * 

* MESSAGE * 

* WRITER ♦ 

* * 
***************** 



****G4* ******** 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 

*************** 



***** 
*LE * 

* H3* 
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Chart L6. $$BOIS04: IS?kM Open, Phase 4 



****A1********* 

* * 

* $$B0IS04 * 

* * 



PHASE4 K 

* GET ADDRESSES * 

* OF FIRST * 

* EXTENT AND ♦ 

* IMDEX EXTENT * 

* * 

4e« *« 3)c« 4t«#*:(c4c««* 4c « 



*GETPUB LG* 

*GET PUB ADDRESS* 

* FOR LOGICAL * 

* UNIT * 



OVFRTN X 

3|e4c«*«B 2=(<** ******* 

* GET ADDRESS * 



4C««3$C3((«*«4'« ******* 



4i4c««:(eQ 2*** ******* 
*GETPUB LG* 

♦_♦_*_:«<_*_♦-*_*-* 

♦GET PUB ADDRESS* 

* FOR LOGICAL * 

♦ UNIT * 



* * 

* 63 * 

* * 



4c:((B3*4e***** 

* RESET * 
FIRST PRIME 
DATA EXTENT 

SWITCH 

* * 



««««*C3 ********** 

* GET ADDRESS * 

* OF FIRST ♦ 

* PRIME DATA * 

* EXTENT * 

* * 



• *. 

B4 *. 

.* OVFL *. 

.* AND FIRST *. YES 

*.PD LOG UNITS .*..., 

*. EQ .* 



*♦** , 
ISLOOP X 

«4t««*D 1********** 

* POINT TO * 

* NEXT * 

* EXTENT * 

* * 



* * 

* B3 * 

* * 
♦ *** 



INDEX 
TYPE 

EXTENT 



* NO 


**** 




* 




* 01 




* 




**** 










Gl' **. 




.♦ *. 




OVERFLOW * 


YES 


TYPE EXTENT 


.*.... 


. .* 




*. .* 




*, .* 


X 


* NO 


***« 




♦ 




♦ B2 




* 




**♦* 



.* PHYSICAL *. NQ 
*. UNITS EQUAL .*.. 
*. .* 



* MOVE INDEX ♦ 

* LOG UNIT TO * 
♦CURRENT EXTENT * 
*AND FIRST PRIME* 

* DATA EXTENT * 



SKI P82 

* GET ADDRESS * 

* OF LAST * 

* PRIME DATA * 

* EXTENT * 

* * 



.* 
«* 
YES 



:(c:»E«4<3t<D4********** 

* MOVE FIRST * 

* PRIME DATA * 
♦LOGICAL UNIT TO* 
♦CURRENT EXTENT * 

* * 

«4e*«#****«** «<:««« 



.* OVFL ** 
.♦ AND LAST *. YES 
♦,P0 LOG UNITS .*... 

♦ . EQUAL .* 



* F IRST 

PRIME DATA 
*. EXTENT . 



POARTN X 

♦ GET ADDRESS ♦ 

♦ OF LAST ♦ 

♦ PRIM6 DATA ♦ 

♦ EXTENT * 

♦ * 



««:»:««Kl:jc4:«4::«c4::tc:tc*4c 

*GETPUB LG* 

♦GET PUB ADDRESS* 

* FOR LOGICAL * 

* UNIT * 

«4c «4: j)t#«4c«:f ***4!<' :«: « 



««|4 2* *♦*♦*♦ 

♦ TURN ON * 
FIRST PRIME 

DATA EXTENT 
SWITCH 

* ♦ 



«««:(c3g(J2********** 

* GET ADDRESS * 

* OF LAST * 

* PRIME DATA * 

* EXTENT * 

* * 



4c— 4c— ^t— 4c— 4c— 4: 

♦GET PUB ADDRESS* 

* FOR LOGICAL * 

♦ UNIT ♦ 

4c4::tc4:«««4t«4<4'«*4:«4:« 



4c4c4e««G4*^******** 

* MOVE LAST * 

♦ PRIME DATA ♦ 
♦LOGICAL UNIT TO^ 

* CURRENT * 

♦ EXTENT * 

4c4(««4!4:*^«:i(:t'«*:»*3|c4c 



4c***H4******^^* 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$BOIS05 ♦ 
4c************^* 



4c4'^*A5********* 

♦ $$B0IS04 * 

♦ PUB ADDRESS ♦ 

♦ SUBROUTINE ♦ 

4(4' :<<*****♦*♦♦«♦♦ 



♦ STORE * 

♦ EXTENT ♦ 

♦ ADDRESS ♦ 

♦ * 

«4:4s***3«c4c«««««4::t<«* 



*****C5^*+***^*^^ 

* * 

* GET ♦ 

* LOGICAL ♦ 

* UNIT ♦ 

* ♦ 
4c4'4<««^******«**** 



4c«4!««D5 *******♦♦♦ 

* GET PUB * 

* ADDRESS FOR ♦ 

* LOGICAL UNIT * 

* USING SYSIR ♦ 

* MACRO * 

«4c4=««^4:*«**#«4<*** 



4c4<4'*«E5********** 

* MOVE ♦ 

* PHYSICAL * 

* UMIT TO * 

* EXTENT * 

* * 
4c4c4>«««*****«*#«4c* 



4t4c««F5^***^*^^^ 

♦ RETURN * 

♦ TO CALLING ♦ 

♦ ROUTINE * 

4c 4> :((***♦**♦«««:«« lie 



4c4'***K3*****+^^^^ 

♦ MOVE INDEX ♦ 

♦ LOGICAL UNIT ♦ 

♦ TO CURRENT ♦ 

♦ EXTENT ♦ 

♦ * 

4c4c4e«:«c««4'*«:it:(c:«c«4:4E4c 
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Chart LH. $$BOIS05: ISAM Open, Phase 5 (1 of 3) 



***«4i4<******** 

* * 

* $$B0IS05 * 

* * 

*4c************* 



* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 

************:!<«:((** 



SKIP08 

*****C1 ********** 

* SET MI AND * 
*CI M NUMBER TO * 

* 1, PUT EXTENT * 

* LMTS IN MI * 

* CI SAVE AREAS * 
***************** 



*«4t**ni *=«'***)«<**** 

*TBLBLD LK* 

* PUT LOG UNIT ♦ 

* + CELL NO. * 

* IN DSKXTN TBL * 
***************** 



FPDRTN .*. 

A3 *. 
.* IS *. 
.* IT FIRST *, NO 
*. PRIME DATA .*... 
*. EXTENT .* 



.* IS *. 

PRIME ♦. YES 
DATA AREA .*.... 
. ON 2321 .* 



*****A5********** 

♦ * 

♦ GET MINIMUM * 
.X* 2321 LIMIT, * 

♦ CYL=1, TRK=0 * 

♦ * 
***************** 





* 


X 

.*. 

B3 *. 

.♦IS *. 

,* PRIME * 

DATA AREA 

*. ON 2311 .* 

*, ,* 

*. ,* 

* NO 


!* 


SK 

I'ES 

X 
**** 

* * 


IP40 .*. 

B4 ♦. 
.* *. 
.♦ MORE ♦. NO 
*. EXTENTS .* 






*, .* 
*. .♦ 
*. .* 
* YES 




SKIP54 

*****C 2*** ♦*****■* 

* SET UPPER * 

• «.* HEAD LIMIT *X«» 


YES 
* 


** 


X 
.*» 

C3 *. 
* IS *. 
PRIME * 

*, ,* 
*, ,* 
* NO 

X 


'.* 


* F3 * 

* * 
**** 

SK 


IP60 .*, Ipdserr 

C4 ♦. . *****C5********** 
.♦EXTENT *. . ♦ * 
.* LOW LIMIT *. NO X * SET UP TO ♦ 
*« CYL EQ 1 «*..»..r--^* r<i<;iiF M<^a * 


. * TO 19 * 

, * * 
X ***************** 
**** 

* 
F3 * 
* 
**♦♦ 


*.TRK EQ 1 .* 

**, .** 
♦ YES 

X 
.*. 


. «52I J . 

***************** X 
***** 
*LJ * 
* H3* 

♦ * 

MSGRTN 


*****024« ********* 

* GET MAXIMUM * 

* VALUE FOR * 

* UPPER LIMIT *X.. 


....1% 

2321 


,* 
'* 


03 *. 
* *, 

PRIME * 
DATA ON 

3330 .* 


.* 






D4 *. 
,* *. 
.* EXTENT *. NO 
*. UPPER LIMIT .* 


**05 ******* 
* * 

..X* LAST PRIME * 


* X«13050413« * 


*. EQ MAX .* 


* DATA BIT ♦ 



***:((****«9((* 





***^ 












*LJ 


♦ 










* H2 *.X 










* 


* 










**** 










ISLOOP 


X 








***=( 


|C*El*******!(t** 






* 




* 






* 


POINT TO 


* 






..X* NEXT EXTENT 


* 






* 




* 






* 




* 






***************** 






**♦* 








* 


* 










* 


El * 










* 


* 
**** 


































Fl *. 










* *. 








.* 


ALL * 


. YES 




*. 


EXTENTS 


,*, 






* 


PROCESSED.* 
*, .* 
*. .* 

* NO 




X 

***** 
*LK * 












* Al* 



*****E3********** 

* SET MAXIMUM * 

* VALUE FOR ♦ 

* UPPER LIMIT * 
*T0 X'01930012« ♦ 

* * 
***************** 



* F3 *.X 



**** 
SKIP44 X 

**F3******* 

* TURN ON * 

* BIT FOR 1ST 
* PRIME DATA 

* EXTENT 

* * 
*********** 



Gl *. 










G3 *. 


**G4***4(*** 


* IS *. 










, * *. 


* SET ONLY 


IT AN *. 


YES 








.* UPPER *. NO 


* ONE PRIME 
...X* DATA BIT 


NDEX TYPE 


*. ... 








*. EXTENT LIMIT .* 


EXTENT .* 










*. REACHED .* 


* ON IN 


*. .* 










*, .* 


* SWBYTE 


*, ,* 


X 








*. .* 


*********** 


* NO 


***** 

*LJ * 

* Al* 

* * 

* 

NDXRTN 








* YES 

Ix. •••...•.•.• 


: 


X 






.*. 


OVFRTN 




SKIP52 X 




HI *. 




*****H2********** 


*****H3********** 




* IS *. 




* 


SAVE LOWER 




* SAVE EXTENT * 




IT AN * 


YES 


* 


EXTENT LIMIT 




* UPPER AND * 




ERFLOW TYPE 


* 


.X* 


AND SEQUENCE 




* LOWER LIMITS * 




EXTENT .* 




* 


NUMBER 




* AND SEQUENCE * 




*. .* 




* 






* NUMBER * 




*. .* 




****** 4c*** ****4c]ic* 


**** «*** ******* «* 





SKIP68 

*****e3********** 

* MOVE SEQUENCE * 

* NO. AND UPPER * 

* LIMIT FROM * 
♦EXTENT TO PRIME* 
*DATA SAVE AREA * 
***************** 



**«**F5********** 

* SET UP ♦ 
♦EXTENT SEQUENCE* 

* NUMBER FOR * 

* TBL6L0 * 

* SUBROUTINE * 
*])<****»********** 



*****G5********** 
♦TBLBLD LK* 

*_♦_*_ Kc_ *_♦_*_# _♦ 

* PUT PD EXTENT * 

* CELL AND UNIT * 

* IN DSKXTN TBL ♦ 

**«**«*«*««:«( «««:((« 



**** 

* * 

* A3 * 

* * 
**** 



*****J3* ********* 

* SET UP * 
*EXTENT SEQUENCE* 

* NO. FOR * 

* TBLBLD * 

* SUBROUTINE * 
***************** 



*****l<;3* ********* 
*TBLBLD LK* 
*_*_*-*_*_*_*_*_* 

* PUT CELL AND * 

* LOG UNIT IN * 

* DSKXTN TABLE * 
***************** 



**** 

* * 

* El * 

* * 
**** 
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***** 

*LH * 
♦ Gl* 



* GET LOGICAL * 
*UNIT FOR MASTER* 

* INDEX -MI- * 

* * 
***************** 



BI *. 

,* IS *. 

CI ON *. 

SAME UNIT . 

. AS MI ,* 

*. ,* 

*. .* 



*****B2***'t'****** 

* * 

* SET CELL * 
X* NUMBER IN * 

* SEEK ADDRESS * 

* * 
***************** 



* GET MASTER * 

* INDEX UPPER * 
♦LIMIT PLUS ONE * 

* * 



**** 

* * 

* G3 * 

* * 
**** 



.* 



El *- 

IS *. 
HEAD AT 
MAX VALUE 
. OF 19 * 

*• •♦ 



****4cf:i********** 

* * 

* ADD ONE * 

* TO CYL * 

* COUNT * 

* * 
***************** 



AT MAX VAL 



*****H1**«******* 

* * 

* ADD 1 * 

* TO STRIP * 

* COUNT * 

* * 
***************** 



.* IS 


* 


STRIP 


AT 


MAX VALUE 


. OF 


:> 


*. 


.* 


*. 


.* 


* 


YES 



.* TRACK AT *. NO 
. MAX VALUE .*... 
*. OF 9 .* 



*****E 2*«« ******* 

* ADD 1 * 

* TO CYLINDER * 

* COUNT * 

* * 
***************** 



F2 *. 

.* ARE * 

MI AND CI 

CONTIGUOUS 


*, ,* 
*. ,* 
* YES 



*****G2*** ******* 

* SET MASTER/ * 

* CYLINDER * 

* INDEX EXTENT * 

* SEQUENCE (Ml * 

* NUMBER TO ONE ♦ 

*4c********«*4<««:(t« 



*****H2********** 

* MOVE LIMITS * 

* FROM CURRENT * 

* EXTENT TO * 

* CYLINDER * 

* INDEX AREA ♦ 
********** ******* 



***** 
*LH * 
* El* 



*****K1*****«**** 

* * 

* ADD ONE * 

* TO SUBCELL *. 

* NUMBER * 

* * 
***************** 



**** 
NDXERR X 

*****G3 ********** 

* * 

* SET UP TO * 

* ISSUE MESSAGE *X . 

* 42661 * 

* * 
*************** ** 



* *.X 



**** 
MSGRTN X 

*****H3********** 

* SET UP TO * 

* RETURN TO * 

* THIS PHASE * 

* FROM MESSAGE * 

* WRITER * 
***************** 



*****j3 ********** 

* SET UP * 

* LOGICAL * 

* UNIT FOR * 

* THIS EXTENT * 

* * 
***************** 



****K3********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



REFERENCES 
TO LJG3: 
LKFl, LKJl 



REFERENCES 
TO LJH3: 
LHC5, LKB2 
LKE2, LKG4 
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Chart LK. $$BOIS05: ISAM Open, Phase 5 ( 3 of 3) 



*LH * 
* Fl* 



* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 
itit *************** 



.* AT *. 
* LEAST ONE *. NO 

PRIME DATA .*... 
*. EXTENT .* 



* SET UP TO * 
.X* ISSUE MESSAGE * 

* 42621 * 

* * 

**:t'************** 



X 
***** 
*LJ * 

* H3* 



.* PRIME *. 
.♦DATA LOWER *. NO 
. TRACK LIMIT «♦... 



*Hii^**Ql:ff:^*iti:**ilfti** 

* * 

*6ET UPPER HEAD * 

* LIMIT FROM * 

* DEVICE TABLE * 

* * 



51 *. 

.* PRIME 
.*DATA UPPER *. 



SET UP TO 



TRACK LIMIT .* X* ISSUE MESSAGE * 



^illiilfdlfilti:^:*********** 



**:tL** 
*LJ * 

* H3* 



.* IS *. 






.* EXTENT * 


. YES 


*. SEQ NO 


.* 




*. GT 1 .* 






*. .* 






*, ,* 




X 


* NO 




***** 

*LJ * 

* G3* 

* * 

* 




NDXERR 


UPDATE X 






«:tc««*Gl=«'*^^=^ ')'**<'« 




* 


* 




* GET ADDRESS 


* 




* OF NEXT 


* 




* EXTENT 


* 





«««4c********«**** 



* INDEX 
TYPE 
EXTENT 



****A3********* 

* *$BOIS05 * 

* BUILD TABLE * 

* SUBROUTINE * 
*************** 



TBLBLD X 

*****B3********** 

* GET DISPLACE- * 
*MENT OF DSKXTNT* 

* TABLE FROM * 

* START OF DTF * 

* TABLE * 
***************** 



*j(t***C3*** ******* 

* MULTIPLY * 

* DISPLACEMENT * 

* BY 4 TO GET * 

* LENGTH OF * 

* DTF TABLE * 



*«s(t**03*** ******* 
*ADO START ADDR * 

* OF DTF TABLE * 

* TO LENGTH TO * 

* GET START OF * 

* DSKXTN TABLE * 

*:iiii:7lfilf*:ii^:ii:tt******* 



#««**E3*** ******* 

*MULTIPLY EXTENT* 
♦SEQUENCE NO. BY* 

* FOUR AND ADD * 
♦RESULT TO START* 

* OF TABLE * 
***************** 



«:(c«4(*F 3 ********** 

* SUBTRACT 4 * 

* FROM RESULT- * 

* ING ADDRESS * 

* OF PREVIOUS * 

* CALCULATION * 



*****G4«**#****** 



END OF *. YES 


* SET UP TO * 


TABLE .* 


...X* ISSUE MESSAGE * 


.* 


* 42541 * 


.* 


* * 


*. . * 


:)(4:Xc************** 


* NO 


. 



EXTENT 

SEQ NO. 

EQ 1 



****J2*** ****** 

* SVC 2 * 

* FETCH * 

* $4B0IS06 * 

4c « :«c 4c« 4<« «3{c :(c« «:(c «:tc 



SKIP80 

*«***H3*** ******* 

* MOVE LOGICAL * 

* UNIT AND CELL * 

* NO. FROM * 
♦EXTENT TO TABLE* 

* « 

:» 4c**** *********** 



****J3 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



***** 
*LJ * 

* H3* 



***** 
*LJ * 
* G3* 
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* * 

* $$BDIS06 * 

* * 



* STORE CCW * 

* ADDRESS IN * 

* CCB * 

* * 



* RELOCATE 

* ADDRESS IN 

* CCW CHAIN 

* 



***** 




*LM * 


, 


* J2* 


XTNPUT X 




*****^3*******:(s** 


* 


* GET NO. OF * 




* EXTENTS FOR * 




...X* THIS FILE * 




*0N THIS VOLUME * 



***************** 



* B3 *.X 



**** 
SKIP2A- X 

*****Q3****«4c4:3(c** 

* GET START * 

* AND END * 

* ADDRESSES OF * 

* EXTENT FLDS * 

* * 
***************** 



RETURN 
FROM MSG 
. WRTR 



*****£!******#*** 

* GET ADDRESS * 

* OF DASO LABEL * 

* INFORMATION * 

* IN MAIN * 

* STORAGE * 
***************** 



* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 
***************** 



**02*****»* 

* ♦ 

* RESET * 
.X*MESSAGE RETURN ■ 

* SWITCH * 

* * 
*********** 



**** 

* * 

* A3 ♦ 

* * 
**** 

**** 

* * 

* F2 * 



*, 



INDEX *. NO 
TYPE .*... 

EXTENT .* 



03 *. 

.* NEXT * 

EXTENT 

AN INDEX 

TYPE 



*****E3********** 

* * 

* COMBINE * 

* THE TWO * 

* LIMITS * 

* * 
***************** 



*****P3 ********** 



DATA 

SECURED 

FILE 



LOAD 

CREATE 

FILE 



■■ NO 



* D5 *.X 



**** 
SKIP08 X 

*****H1 ********** 
*SET UP 44 BYTE * 

* FILE NAME * 

* AS KEY AND * 

* INIT MESSAGE * 

* 420II * 
***************** 



*****jl ********** 
*READRT LN* 

*_*_*_*_*_*_*_*_* 

* READ FORMAT 1 * 

* LABEL * 

* * 
***************** 



ES 


G2 *. 

.* DATA *. 

.* SECURITY 

*. MESSAGE 

-'. ISSUED . 

*. .* 


X 
***** 


*, ,* 
* NO 


*LM * 

* Bl* 

* * 




* 






X 
**H2******* 



* POINT TO 


* NEXT EXTENT 


• * 


* 


************** 


**** 


*LM * .X.... 


* C4 *.X. 


* * . 


**** X 


. SKIP32 •*. 


G3 *. 


.* *. 


.* EXTENT 


*. INFO SPEC 


*. 


. *. ,* 



**04******* 

* TURN ON * 
*£ND OF LABEL 

* PROCESSING 
* IN SWBYTE 

* * 
*********** 



*****Q4*******:«c** 

* ADD 1 * 

* TO COUNT OF * 
.X*NO. OF EXTENTS * 

* IN FORMAT I * 

* LABEL * 
***************** 



*********** 



♦** **j 2* **** ***** 

* * 

* SET UP * 

* TO FETCH * 

* $$BODSMW * 

* * 

************:«(**:{<::)( 



***** 

*LM * 
* E4* 



H3 *. 


* * 


♦EXTENT *. 


**** 


TYPE SAME * 


NO 


AS IN LBL 


*. .. . 


FIELD .* 




*. .* 




*, .* 


X 


* YES 


***** 




*LM * 




* B4* 




* * 




* 


X 


SKIP42 


.*. 


OFLOSAVE .*. 


J3 *. 


J4 *. 


* *, 


.* *. 


LOAD * 


NO .* OVERFLOW 


FUNCTION 


* X*. TYPE EXTENT 


.* 


*. , 


*, ,* 


*. .* 


*, ,* 


*, ,* 


* YES 


* YES 



*****A5********** 

* SAVE SEQ NO. * 
♦AND UPPER LIMIT* 

* OF PRIME DATA * 

* EXTENT IN * 
♦FORMAT 1 LABEL ♦ 
***************** 

**** 



♦ B5 ♦.X 



**** 
SKIP54 X 

*****B5********** 

♦ STORE NO. OF ♦ 

♦ EXTENTS AND ♦ 

♦ EXTENT LIMITS ♦ 

♦ IN FORMAT 1 ♦ 

♦ LABEL ♦ 
***************** 



*****C5********** 

♦ POINT TO ♦ 

♦ NEXT ♦ 

♦ EXTENT ♦ 

♦ * 
***************** 



♦ GET ADDRESS ♦ 

♦ OF PREVIOUS ♦ 

♦ EXTENT ♦ 

♦ ♦ 
***************** 



F5 ♦. 

.♦ SAME ♦. 

.♦ UNIT AS *. 

. PREVIOUS 

♦. EXTENT .♦ 



SKIP68 
NO .♦ 



♦ DATA ♦. 

SECURITY 
♦. REQUESTED. ♦ 



♦♦H5^^**^^^ 

♦ SET ♦ 
DATA 

SECURITY 
SWITCH 

* * 
*********** 



X 
***** 
*LM ♦ 

* B5^ 



YES .♦ EXTENT 
...♦. PRIME DATA 
♦, TYPE 



*****K4^^****^^** 

♦ SAVE * 

♦ UPPER LIMIT ♦ 

♦ OF OVERFLOW ♦ 

♦ TYPE EXTENT ♦ 

♦ DATA * 
***************** 



* A5 ♦ 

* * 
**** 



.X.X.. 

X 

**** 

* * 

* B5 ♦ 

* ♦ 
**♦♦ 
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*LL * 


* * 








***** 
*LL * 


* Gl* 


* B2 * 








* H3* 


* * 


* * 








* * 


* 


***♦ 




***** 
* * 




* 


CREATE X 


SKIP20 X 




* ** 




SKIP42 X 


4<««<c4!Bl:«e«!(c«4c«4t««« 


*****B2*** ******* 


* * * 


REFERENCES 


*****B4********** 


* SET UP TO * 


* SET UP TO 


* 


* 


TO LMB2: 


* POINT TO * 


* ISSUE MESSAGE * 


* FIND BLANK 


* 




LNE4, LNJ3 


* NEXT EXTENT * 


* 42001 * 


* LABEL 


*X.« 






* IN FURMAT I * 


♦ IF REQUIRED * 


* RECORD IN 


* 






* LABEL * 


* * 


* VTOC 


» 






* * 


:|e)(c4t :(!«:)( 9(t4t«««:4e«^:«c*« 


****:({***♦***♦**«* 






***************** 



***** 
*LL * 
* H5* 



*_*_*_*_*_*_*-.*_* 
♦WRITE FORMAT 1 * 

* LABEL BACK * 

* ON DASO * 
***************** 



CI * 




*****C2********** 




*. 


♦READRT LN* 


INDEX 


*. YES 


*_*_*_#_*_*_*_*_# 


TYPE 


.*..,. 


* READ BLANK * 


EXTENT 


.* 


* LABEL RCD * 




* 


* INTO STORAGE * 


*. .* 


X 


***************** 



*****D1********** 

* SET UP TO * 

* FIND BLANK * 

* LABEL * 

* RECORD IN * 

* VTOC * 
***************** 



*****EX ********** 

*READRT LN* 
*_*_*_*_*_#_*_*_* 

* READ BLANK * 

* LABEL INTO * 

* STORAGE * 
***************** 



*****P ]!**«******* 

* * 

* SAVE POINTER * 

* TO THIS * 

* BLANK LABEL * 

* * 
***************** 



*****G1**#******* 

* CREATE * 

* FORMAT 2 * 

* LABEL TO FILL * 

* BLANK LABEL * 

* RCD POSITION * 
***************** 



*****H1********** 

* INITIALIZE * 
♦VOLUME SEQUENCE* 

* NUMBER * 

* TO I * 

* * 
***************** 



*-*_*-*-*_*-*_ 
*WRITE FORMAT 2 * 

* LABEL BACK * 

* ON VTOC * 
***************** 



♦****02* ********* 

* * 

* CREATE A * 

* FORMAT I * 

* LABEL * 

* * 
****♦***♦*♦***♦** 



**E2******* 

* TURN ON * 
*FIXED RECORD 

* LNG BIT IN 
* FORMAT I 

* LABEL * 
*********** 





SKIP46 .*. 




X 




C4 *. 




*****(;5 ********** 




.* *. 




* ADD L * 




.* MORE *. NO 


* TO VOLUME * 




*. FORMAT 1 .* 




* SEQUENCE * 




*. EXTENTS .* 




* NUMBER * 




*, ,* 




* * 




*. ,* 


X 


***************** 




* YES 


***** 
*LL * 

* G3* 
* * 

# 


] 






SKIP32 


X 




X 




.*. 




*****D4********** 




05 *. 




* SET UP TO * 




.* *. 




* ISSUE * 




.* END *. HU 




* MESSAGE * 




*. OF LABEL .*.... 




* 42451 * 




♦ PROCESSING.* 




* * 




*, ,* 




***************** 




*. .* X 
* YES ***** 




**** 




*LL * 




* * . 




* HI* 




* * *,X. 




* * 




* * , 




. ♦ 




**** , 




iKlPOd 




MSGRTN X 


SKIP72 


* REFERENCES 


*«***E4********** 




X 


TO LME4; 


* SET UP * 




****E5********* 


LLJ2, LNG5 


* LOGICAL * 




* SVC 2 * 


LNH2 


* UNIT * 




* FETCH * 




* FOR EXTENT * 




* $$BOIS07 * 




* * 




*************** 



**P3 ******* 

* TURN ON * 
*BLOCKED RCDS 

* BIT IN 

* FORMAT I 

* LABEL * 
*********** 



**************** 



****P4********* 

* SVC 2 FETCH * 

* MESSAGE * 

* WRITER * 
*************** 



.*. 
G2 *. 
.* DOES *. 
FILE HAVE *. YES 
A MASTER .*.... 
. INDEX .* 
*.SPEC .* 
*. .* 
* NO 



**G3******* 

* TURN ON * 
*MASTER INDEX 

.X* BIT IN 

* FORMAT 1 

* LABEL * 
*********** 



SKIP22A .*. 

H2 *. 
«* DOES *. 
.* FILE HAVE *. YES 
*. INDEPENDENT .*.... 
*.OVFL AREA.* 
*.SPEC .* 
*. .* 
* NO 



**H3******* 

* TURN ON * 

* INDEPENDENT 
OVERFLOW BIT 

* IN FORMAT 1 

* LABEL * 
*********** 



J2 



*. 



DOES 

.* FILE HAVE *. YES 
. CYL OVFL .*.... 
*. AREA .* 
*.SPEC .* 
*. .* 
* NO 



**J3******* 

* TURN ON * 
CYL OVFL 

BIT IN 
FORMAT 1 

* LABEL * 
*********** 



* B2 * 

* * 
**** 



***** 

*LL * 

* A3* 

* * 
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* $«R0IS06 =f^ 

* READ * 

* ROUTINE * 



* SAVE RETURN! * 

* LINKAGE * 

* ADDRESS * 

* * 



*****C1 ********** 

* * 

* SET UP TO * 

* RPAD * 

* VOLl LABEL * 

* * 

9^ ;i! :(; :» :^ 3!(:»: :»! « 4: :«: « :tc * * 4c :t! 



****«01 ********** 

*EXCPIftT LP* 

* READ VOLl * 

* LABEL * 



************* 



*** 



.* RECORD *. YES 
*. FOUND OR END .*.... 
*. OF CYL .* 



NOVLBL 

*****E 2*** ******* 

* SET UP TO * 

* ISSUE * 
...X* MESSAGE *. 

* 42061 * 



***************** 



*****P1********** 

* * 

* GET POINTER * 

* TO FORMAT 4 * 

* LABEL * 

* * 
***************** 



SKIP78 

*****Q1 ********** 

*EXCPRT LP* 



***************** 



SKIP82 X 

*****A3********** 

* SAVE THE * 

* VTOC LIMITS ♦ 

* FROM THE * 

* FORMAT 4 * 

* LABEL * 
***************** 



*****B3********** 

* SET UP TO * 

* GET FORMAT 1 * 

* LABEL OR * 

* BLANK LABEL * 

* RCD FROM VTOC * 
***************** 



***»*C3********** 
*EXCPRT LP* 

*_*_*_*_*_*_*_*_* 

* READ FORMAT 1 * 
*0R BLANK LABEL * 

* * 
***************** 



03 *. D4 *. 

.* NO *. .* *. 

.* RECORD *. NU .* POINTER *. NO 

*. FOUND OR END .* .,X*. TO LABEL GT .*... 

*. OF CYL .* *. VTOC UL .* 

*. .* *. ,* 

*, ,* *. ,* 

* YES * YES 

Ix....... .......! 

X 

NRFRTN .*. CHCKFl .*. 

E3 *. E4 *. 

.* *. .* *. 

.* LOAD *. YES .* NRF * . NO 

*. CREATE .* ...X*. CAUSED BY .*... 

*. FUNCTION .* *. Fl .* 

*. .* *. .* 

*, .* *. ,* 

* NO * YES 

, **** 
. *LM * 
..X* B2 * 
* * 
X **** 

.*. 
F3 *. 



.* ADD *. 
. OR ADDRTR . 
*, FUNCTION .* 



.*. 


N0F4LB 


SKIP86 .*. 


HI *. 


*****H2********** 




H3 *. 


.* NO *. 


* SET UP TO * 




.* PRIME *. 


* RECORD *. YES 


* SSUE * 




.* DATA * 


FOUND OR END .*.... 


...,X* MESSAGE *..X 




*. OR INDEX 


*. OF CYL .* 


* 42 041 * 




*TYPE EXTENT* 


*. .* 


* * 




*. ,* 


*. .* 


***************** X 


*. ,* 


* NO 


***** 


* YES 




*LM * 


**** 




* E4* 


* * . 


X 


* * 


* J3 *.X. 


**** 


* 


* * , 


* * 


MSGRTN 


**** X 


* A3 * 


SKIP84 .*. 


* * 




J3 *. 


**** 




.* THREE *. 








*. LABEL .* 



*****05********** 

* * 

* LOAD RETURN * 
X* ADDRESS IN * 

* LINK REGISTER * 

* * 
***************** 



****g5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****G5********** 

* SET UP TO * 

* ISSUE MESSAGE * 
.X* 42011 OR * 

* 42001 * 

* * 
***************** 



***** 
*LM * 
* E4* 



***** 
*LM * 
* B2* 



Charts 311 



Chart LP. $$BOIS06: ISAM Open, Phase 6 (4 of 4) 



* $$B0IS06 * 

* WRITE * 

* SUBROUTINE * 



WRITE 

***#*B 2 * ** ******* 

* STORE * 

* RETURN * 

* LINKAGE * 

* ADDRESS * 

* * 
***************** 



***«*C 2********** 

* SET UP TO * 

* WR I T E * 

* FORMAT 1 OR 2 * 

* LABEL IN * 

* VTGC * 

:|c«*4:** *********** 



♦****0 2* ********* 
*EXCPRT LP* 

* WRITE LABEL * 

* IN VTGC * 

* * 

«:{(:«! :«t3j(3(c «:C ******** * 



*#***£ 2********** 

* LOAD * 

* RETURN * 

* ADDRESS IN * 

* LINKRG * 

* * 

******** **44c:«(4<*** 



****F2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 

:4( 4e :<( 4c* *****«*)»=:«( « 



****A4********* 

* $$801506 * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
********♦#*♦*** 



***************** 



***C4***** ******* 

SVC 
* READ OR * 

WRITE 
* LABEL * 

***************** 



.* RCD FOUND *. YES 
. OR END OF .♦..,. 
*. CYL .* 



****F4********* 

* EXIT TO * 

* ADDRESS IN * 

* LINKRG +4 * 
««*«*********** 



««*««D5********** 



******«««#:tc«;tc*«*^ 



****E5*«4e*«**** 

* EXIT TO * 

.X* ADDRESS IN * 

* LINKRG * 
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A2 *. 










«****A5********** 


4c«*« A]^ :ii 4c :tc «:«»*« 4c 


.* CYL *. 








*MOVE PRIME DATA* 


* * 


.♦LOWER LIMIT*. NO 








*UPPER LIMIT TU * 


* $$B0IS07 * 


*= MASTER INDEX.*.... 










*OLD PRIME DATA * 


♦ * 


*. LOWER .* 






*UPPER LIMIT IN * 


«««#*«««:»>**#**♦ 


*. LIMIT.* 
*. . * 






* * 




♦DTFIS LOAD TAb.* 






* YES 






* B4 * 




* * , 

* Bb *-X- 

* * . 


PHASE? X 


X 


SKIP12 X 


X 




CMTBLD X 


4e«>(c4;«gl^ 3)e4c4c4:#*4!3|! »:«c 


*4c*#«B2 ********** 


4(*«««B3 ********** 


*****84********** 


*****B5********** 


* STORE ADDRESS * 


* * 


* MOVE CYL NDER * 


* SET UP TO 


* 


* * 


* OF CCW IN * 


* SET UP TO * 


* LOWER L MIT * 


* ISSUE MESSAGE 


* 


* STORE * 


* CCB DTFIS * 


* ISSUE MESSAGE * 


* TO DTF S * 


* 420 II 


* 


* RECORD * 


* TA£ 


3LE * 


* 42461 * 


* TABLE * 


* IF REQUIRED 


* 


♦ LfcNGTH * 



iiiHc:^it'*********itfi>^** 



« RELOCATE * 

* ADDRESSES IH * 

* CCW CHAIN * 

* * 

4ci|<4c4: «**♦«♦*«:)(♦* ** 



4( 4c 4<« «<«*«** ^^ifc^ie^itc^tc 



#***C 2********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
^^^'♦♦♦♦♦♦^♦♦♦♦* 



. YES * ZERO PRIME * 

.*...,. ...X* RECORD COUNT * 

* IN DTF * 

* * 
#4c4c«««^^ ♦♦***♦*♦♦ 



***************** 



«««*«C3 ********** 

* MOVE CYLINDER * 

* INDEX UPPER * 

* LIMIT TO * 

* DTFIS LOAD * 

* TABLE * 

4c 4c** **#«♦« «4c4<^4c «:»: 



4c4c4c4c«03^** ******* 

* MOVE PRIME * 

* DATA LOWER * 

* LIMITS TO * 

* DTFIS * 

* TABLE * 
4!*** ** ** 4c*4c**4c* ** 



4c 4c 4c**E3 ********** 

* MOVE PRIME * 

* DATA UPPER * 

* LIMITS TO * 

* DTFIS LOAD * 

* TABLE * 
4c 4c 4c* *********** ♦# 



4c4c4c4:**«********** 



*****C44c4c******** 



* READ * 

* FORMAT 1 * 

* LABEL * 
*4c4c«***«***4c*4c*** 



*4c*4c4cD4********** 

* MOVE BLOCK * 

* RECORD AND * 

* LENGTH TO * 

* DTFIS * 

* TABLE * 
4c4c4:4c:M=*********** 



4:**4c*E4********** 

♦MOVE BLOCK LN6.* 
♦OVERFLOW DATA, * 
♦BLOCKINC, FACT. ♦ 
♦AND INDEX ENTRY* 
*LNG TO SAVE AR.* 

4c*4c 4c** *********** 



*************4c4c** 



**«**C5********** 

* GET BLOCK * 

* LENGTH AND * 

* RECORD * 

* LENGTH FROM * 

* DTFIS TAbLE ♦ 

*4:*************** 



***** 

*MB * 

* Bl* 

* * 



**P]_******* 

* TURN ON * 

* EXPANSION 
* BIT IN DTFIS 

* TABLE 

* * 
*********** 



*****Q| 4c4c******«* 

* MOVE PREVIOUS * 

* PRIME DATA * 

* LIMIT TO * 

* DTFIS LOAD * 

* TABLE * 

*4i***4c4e4(4i:4t******* 



F3 *. 




*****P4********** 


,* ♦, 




* MOVE FORMAT 1 * 


.* LOAD *. YES 


* KEY LOCATION ♦ 


*. CREATE .*. 




♦ TO DTFIS * 


*. FILE .* 




* TABLE * 


♦ . ,* 




* (2 BYTESJ * 


*. ,* 


X 


**4c************«* 


* NO 


**** 




**** 


* * 




♦ * . 


* Af> * 




* G3 *.X. 


* * 




* * . 


**4c* 




**** 






SKIP16 X 




X 


*****G3 ********** 




*4c***Q4********** 


* * 




* * 


* SET UP TO » 




* SET UP TO * 


* READ VOLl * 




* READ FORMAT 2 * 


* LABEL * 




* LABEL * 



*****J1*** ******* 

* MOVE MASTER » 

* INDEX LOWER * 

* LIMIT TO * 

* DTFIS * 

* TABLE * 
4c4c************4c** 



*****K1********** 

* MOVE MASTER * 

* INDEX UPPER * 

* LIMIT TO * 

* DTFIS LOAD * 

* TABLE * 
***************** 



***************** 



*****H3 ********** 

* SET UP TO * 

* ISSUE MESSAGE * 

* 42061 * 

* IF REOUIREO * 

* * 

*4c*************** 



4t****J3*** ******* 
*EXCPRT MC* 

4,_ 4c_ 4t_ 4t_ *_ *_ 4<_4< _* 

* READ * 

* VOLl * 

* LABEL * 
4c 4c**** *********** 



*****K3******4f*** 

* * 

* SET UP TO * 

* READ FORMAT I * 

* LABEL * 

* * 

**************4c** 



***************** 



***4t*H4* ********* 

* SET UP TO * 

* ISSUE MESSAGE * 

* 42021 * 

* IF REQUIRED * 

* * 
***************** 



*****j4********** 
*EXCPRT MC* 

*_*_*_*_*_*_*_*_* 

* READ * 

* FORMAT 2 * 

* LABEL * 
***************** 



**** 

* * 

* A2 * 

* * 
**** 
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***** 

♦MA * 

* C5* 

* * 



*:(c««« 

♦ MC * 

* J3* 



DIVI 

* LNG BY RCD * 

* LNG TO GET * 

* BLOCKING * 

* FACTOR * 

«*««: ig>«*:(c«««:(c4c#4> « * 



*****Dl ********** 
♦STORE BLOCKING * 

* FACTOR IN * 

* DTFIS * 

* TABLE * 

* * 



LOAD 

CREATE 

FILE 



i((****px ********** 

* MOVE * 

* NUMBER OF * 

* INDEX LEVELS * 



***«*(;X**«******* 

* Move ADDR OF * 
♦1ST DATA RCD IN+ 

* CYL AND LAST ♦ 
♦DATA TRK IN CYL^ 

* TO DTFIS TEL * 
*4c *************** 



*«***H1********** 

♦ MOVE HIGH RCD * 

♦ ON Ml/CIf PD ♦ 

♦ OVFL, SHRD ♦ 

♦ UNSHRD TI TRK ♦ 

♦ TO DTFIS TBL ♦ 
***:jc ************* 



,» RCD ». 
.♦NO. ON TRK *. NO 
.INDEX TRK EQ .*... 
♦. ZERO .♦ 



CLOSERR 

*!((«#:«(g2********** 

♦ SET UP ♦ 

♦ TO ISSUE ♦ 
...X* MESSAGE * 

♦ 42631 ♦ 



:4<«#4:** *********** 



* SVC 2 ♦ 

* FETCH * 

* $$B0MSG1 ♦ 

« ]«c4c«* «*:(<:((«:(( 4c * ** 



LOADUP 

:(<!((«««[) 2 ♦♦♦♦♦♦♦♦♦♦ 

♦MOVE NUMBER OF * 

* BYTES FOR ♦ 

* HIGHEST LEVEL ♦X. 
♦INDEX TO DTFIS ♦ 

* LOAD TABLE ♦ 
]«(**************** 



«*«««£ £♦♦♦♦♦♦♦♦♦♦ 

♦MOVE PD RECORD ♦ 
♦COUNT + STATUS ♦ 
♦INDICATOR FROM ♦ 
♦FORMAT 2 LABEL 
♦TO DTFIS TABLE ♦ 
***************** 



9(e:(<:(c**p2********** 

♦ MOVE ADORS OF ♦ 
♦LAST TI. CI, MI ♦ 

♦ ENTRIES FROM ♦ 
♦FORMAT 2 LBL TO^ 

♦ DTFIS LOAD ♦ 

9«i«:|t3tc**4t4::(t*4>****** 



*****G2********** 
*MOVE PD RCD FMT* 
♦LNG FROM DTFIS ♦ 

♦ TBL TO CCW ♦ 

♦ FLDS IN DTFIS * 

♦ LOAD TABLE * 
************ **«4c* 



WAS 

FILE 

CLOSED 



CMTBLD4 X 

**«**B3*«******#* 
♦MOVE LAST PRIMES 

♦ DATA RCD ADDR ♦ 

♦ FROM FORMAT 2 * 

♦ LABEL TO ♦ 

♦ DTFIS TABLE ♦ 
«4< *************** 



♦♦♦**(;3********#* 

♦ MOVE PRIME ♦ 

♦ DATA, MASTER ♦ 

♦ AND CYL INDEX * 
♦LOWER LIMITS TO^ 

♦ DTFIS TABLE ♦ 

****** *********:K sic 



LOAD ♦. YES 
CREATE .*.... 

FILE .♦ 



**** 

* * 

* B4 ♦ 

* ♦ 
**** 

OUTRTNE 



♦ TURN ON ♦ 
♦CREATING FILE^ 

♦ INDICATOR IN ♦ 
♦ DTFIS TABLE * 

* * 

«4e :«(«:<( :te#:((:«c34::jc 



ADD 
TYPE 

FILE 



***** 
♦MC ♦ 
♦ BI^ 



DASD ♦. YES 

FILE PROT .*.... 
. SW ON .♦ 



D4 ♦. 

.♦ DASD ♦. 
♦ FILE PROT ♦. NO 

OPTION SPEC ...... 

♦. FOR SYS .♦ 



**E4******* 

♦ TURN ON ♦ 
DASD FILE 

PROTECT SW 
FOR OPEN 

♦ MONITOR ♦ 



LOAD 
TYPE 

FILE 



;tc****05********** 

♦ SET UP TO ♦ 

♦ RETURN TO * 

♦ $$BOIS05 ♦ 

♦ AFTER EXEC ♦ 

♦ OF $$BOFLPT ♦ 

**«*3jc:t< «(******«*** 



♦ SVC 2 * 

♦ FETCH ♦ 

♦ $$60FLPT ♦ 

«;(c4<«««**«««4t*** 



♦ NO 


Ix 


RETRVE X 

«*««3t<f:34e«***«**«* 

♦ MOVE TAG ♦ 

♦ DELETION * 

♦ COUNT TO ♦ 

♦ DTFIS RETRVE * 

♦ TABLE ♦ 
***************** 


0UTRTN2 .♦. 

.* 
.* LOAD 
♦. TYPE 
♦ . FILE 
♦ . 



*****G3********** 
*GET ADDRESS OF * 

♦ I/O AREA FOR ♦ 

♦ RANDOM * 

♦ RETRIEVAL ♦ 

♦ UGAREAR * 
***************** 



lOAREAR 
FROM DTF 
. EQ 



*:(cji(*3»cQ4*****)tt**** 



««*********3tC3(c4t*** 



***«H4********* 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$B0IS08 ♦ 

4c************** 



* B3 ♦ 

« * 

**** 



=(c4c4c**Kl********** 

♦ MOVE HIGH RCD ♦ 
♦ON MI/CI TRK T0+ 
♦HIGH RCD ON TI ♦ 

♦ TRK AREA IN ♦ 

♦ DTFIS TBL ♦ 
«**4c«4c*********** 



*#J2******* 

* Turn OFF • 
CLOSE BIT 

IN FORMAT 2 
LABEL 

* * 

4c«4c4<4c****** 



*****K2* ♦♦♦**♦♦♦♦ 
♦EXCPRT MC^ 

*_*_♦_♦_*_*_*_♦_* 

♦ WRITE ♦ 

♦ FORMAT 2 ♦ 

♦ LABEL ♦ 

4c 4c 4c************** 



***4c*J3********** 

♦ HOVE fMuNFIRST * 

♦ OVFL RCD ♦ 

♦ REFERENCE ♦ 
♦COUNT TO DTFIS ♦ 

♦ RETRVE TABLE ♦ 

4c**************** 



4c****K3********** 
♦SKIP32B MC^ 
4c_4t_ 4c_ 4<- *-*-*-*-* 
♦ CHECK FOR ♦ 
♦CYLINDER INDEX ♦ 
♦IN CORE OPTION * 
** 4c*** *********** 



.X. 
X 

**** 

* * 

* B4 * 

* * 

**4c* 
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* A3 ♦ 

* * 



***** 
*MB * 
* 03* 



ADOUPT X 

«:(c4c**Bl ********** 

*MOVE PRIME RCD * 
*CNT AND STATUS * 

* INDIC FROM * 

* FORMAT 2 LBL * 

* TO DTF TBL * 

:4c4:*************** 



♦♦***ci ********** 

* MOVE FIELDS * 

* D22-02 5 FROM * 

* FORMAT 2 LBL * 

* TO 9TF TABLE * 

* * 
♦*«**♦***«******* 



♦♦***oi ********** 

* MOVE NO. OF * 

* INDEPENDENT * 
♦OVERFLOW TRACKS* 

* TO DTF TABLE * 

* * 
***************** 



*****F1 ********** 

* MOVE OVERFLOW * 

* RECORD COUNT * 

* FROM FORMAT 2 * 

* LABEL TO * 

* DTF TABLE * 
***************** 



*****P1********** 

* MOVE CYLINDER * 

* OVERFLOW AREA * 

* COUNT FROM * 
*FORMAT 2 LBL TO* 

* DTF TABLE * 
***************** 



SKIP32 X 

*****A3********** 

* MOVE OVERFLOW * 

* EXTENT LIMITS * 

* FROM SAVE * 

* AREA TO * 

* DTF TABLE * 
***************** 



*****B3*** ******* 

* * 
♦GET ADDRESS OF * 

* KEY POSITION * 

* IN lOAREAL * 

* ♦ 

«***************:{ 



*****Q3 ********** 

* STORE RESULT * 

* AS ADDRESS * 

* DATA POSITION * 

* OF lOAREAL * 

* IN DTF TABLE * 
***************** 



*****03*** ******* 
*SKIP32B MC* 

*_*_*_*_*_*-*-*-* 

* CHECK * 

* ADDRESS * 

* * 
**** **** ******* ** 



****A5********« 

* $$B0IS07 ♦ 

* SKIP ♦ 

* SUBROUTINE * 
** ************* 



.* CYL. * 

INDEX IN 
CORE 
. OPTION 



*****(; 5********** 

* MOVE CYL ♦ 

* INDEX ADDRESS * 

* INTO DTF * 

* TABLE * 

* * 
***************** 



WAS 

FILE 

CLOSED 



**Hi******* 

* TURN OFF * 
CLOSE BIT 

IN FORMAT 2 
LABEL 

* * 
*********** 



TRK 

HOLD 
SPEC 



*****H 2*** ******* 

* LOAD * 

* MESSAGE 691 * 

* FILE OPEN * 

* FOR ADO * 

* * 
***************** 



**** 

* * 

* KI * 

* * 

Jc*** 



FILE 
TYPE FOR 
.ADD ONLY 



*****P3********** 
» MOVE TAG * 
♦DELETION COUNT * 

* FROM FORMAT 2 * 
♦LABEL TO DTFIS * 

♦ TABLE * 
***************** 



*****Q3*********« 

* GET ADDRESS * 

* OF lOAREAR * 

* FROM DTFIS * 

* TABLE * 

* * 
***************** 



RANDOM 
RETRIEVAL 
. SPEC 



*****J1 ********** 


X 


*****j3********** 


♦EXCPRT MC* 


****j2*** ****** 




MOVE NONFIRST * 


*_*_*_*-*_*_*-*-* 


* SVC 2 * 


*OVFL R€C COUNT * 


* WRITE * 


* FETCH * 


* 


FROM FORMAT 2 * 


* FORMAT 2 * 


* $$B0MSG1 * 


* 


LABEL TO * 


* LABEL * 


*************** 


* 


DTFIS TABLE * 


***************** 




***************** 


**** I 






* 


* * . 






Ix^...... 


* Kl *.X. 






X 


* * . 






***** 


**** X 






*MB * 


lOCOMPAR .*. 






* B4* 


Kl *. 


*****K 2*** ******* 




* * 


,* *. 


* PUT NEW OVFL * 




* 


.* NEW *. YES 


* LIMIT INTO * 




OUTRTN 


*. OVERFLOW .*..... 


...X* LAST OVFL * 






*. LIMIT .* 


* RECORD ADk * 







****05********* 



*************** 



****E5********* 

* $$B0IS07 * 

* INPUT/OUTPUT * 

* SUBROUTINE ♦ 
*************** 



EXCPRT 

«***«P5********** 

♦ MOVE ♦ 

♦ LOGICAL * 

♦ UNIT * 

♦ TO CCB * 

♦ * 
***************** 



***Q5************ 

♦ SVC ♦ 

RfiAD 
♦ LABEL ♦ 

***************** 



*****H4***^****** 

* ♦ * * 

* * SVC 7 * * 

* * WAIT * *X 



***************** 



***************** 



****K4********* 

* SVC 2 ♦ 

* FETCH * 

* $$B0MSG1 * 
*************** 



J5 *. 
.♦ END ♦. 
YES .* OF CYL 
...... OR NO RCD 

*. FOUND ,■■ 



****K5********* 

♦ RETURN * 

♦ TO CALLING * 

♦ ROUTINE * 
*************** 
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* * 

* $$B0IS08 * 

* * 



* GET * 

* POINTER TO * 

* START OF * 

* OTF TABLE * 

* * 



*****ci ********** 








**#t**C3********** 


**«**C4********** 




* DISPLACEMENT * 








♦ SAVE * 


* STORE ADDRESS ♦ 

* OF WRITE ♦ 










* REMAINDER * 




* OF PART 3 OF * 








* OF PREVIOUS * 


* CCW CHAIN ♦ 




* DTP TABLE * 








* DIVISION ♦ 


* IN DTF TABLE ♦ 




* FROM PART 1 * 








* * 


* * 


**** 


««*:<< «4t:;(c*«**3(e**: lie «* 








Jtc* «*:«(**:«(** 3(e** ** ** 


***************** 


* * 

* D5 * 

* * 
**** 


k 








X 


X 


X 


♦♦♦♦♦oi ♦*♦****♦** 








«****03********** 


*****D4********** 


**♦**[) 5********** 


I ^%^ifs"ol I 








* CALCULATE * 


* STORE MAXIMUM ♦ 


♦ SUBTRACT ONE * 








* START OF * 


* NUMBER OF ♦ 


* FROM MAXIMUM * 

* NUMBER OF * 


* CYL INDEX IN * 








* CCW BUILD ♦ 


* PRIME DATA * 


* CORE SECTION * 








♦ AREA IN DTF * 


♦ RCDS IN CORE * 

* IN DTF TABLE ♦ 


♦ PRIME DATA * 


* OF OTF TBL * 








♦ TABLE ♦ 


♦RECORDS IN CORE+ 


***!«. *«4e :»«**«**«*:«« 








***************** 


***************** 


***************** 


X 

*«***£ 1^««*****4:*« 








X 
• ♦. 

E3 *. 


X 
*****E4.********** 


X 
• ♦• 

E5 ♦. 


* * peRfqrh * * 

* * protect ion * * 








. ♦ ROOM *. 


* CALCULATE « 

♦ AND STORE ♦ 


.* MAX *. 








.♦FOR ONLY 1 *. NO 
♦ , PRIME DATA .♦,.. 


NO .♦ NUMBER OF ♦. 
*, PRIME DATA .♦ 








♦ IN DTF TABLE ♦ 


* CHECK ON SECT * 








♦ , RCD IN .* 


♦ ADDRESS OF ♦ 


*. RCDS EQ .♦ 


* OF DTP TABLE* * 

«****4c:4c««****«:«** 








♦.CORE ,* 


♦READ CCW CHAIN ♦ 


*. ,♦ 








♦, .* 


***************** 


. ♦• .♦ 


I 








♦ YES 


Ix. ....... .. 


♦ YES 


X 
.*. 








X 


BUILDl X 


X 


Fl *, 








«*«4(*F3*** ****♦*♦ 


*****F4********** 


*****P5********** 
♦ REINITIALIZE ♦ 


,* *, 








♦ ADD 10 TO * 


* BUILD CCW ♦ 

* TO SEARCH ♦ 

* IDENTIFIER ♦ 


NO .* CYLINDER *. 








♦ START OF ♦ 


♦ MAXIMUM NO. ♦ 

♦ OF PRIME DATA * 


,.«.*. INDEX IN .♦ 








* CCW BUILD * 


*, CORE .* 

♦.SPEC .* 




**** 




* A'^EA ♦ 


♦ EQUAL ♦ 


* RCDS IN ♦ 

* CORE * 


* ** «* 




* * 




*******««*«%***««; 


***************** 


***************** 


* YES 




* G2 ♦ 

* * 
**«* 

X 

.♦. 










: I 


MOD01< 




*x ««. .. 


X 


' 


X 


X 


**ex ******* 

* TURN ON * 




G2 ♦, 
•* PRIME ♦. 




««3t< «4tG3 ]);«*** «3tt« *3(C 


*****G4********** 


*****G5********«* 






* GET NO. OF ♦ 


* * 


♦ BUILD CCW TO * 

♦ SEARCH IDENTI- ♦ 


* FIRST TIME * 




* DATA IN ♦. 


NO 


♦BYTES TO SHIFT ♦ 
*CCW CHAIN AOOR ♦ 

* TO DOUBLe * 

* WORD BOUNDARY ♦ 


* BUILD CCk ♦ 


♦ THROUGH * 


♦CORE SPECIFIED. 


♦ •.. . 


* TO TIC ♦ 


* FIER; EQUAL ♦ 


^TRANSIENT ©II* 




*. IN DTF •* 




* TO ♦-8 * 


* THE PRIME ♦ 


♦IN DTF TBL * 
, *********** 




*, ,* 




* * 


♦ DATA AREA * 




*. .* 


X 


«;4t******3|(******** 


***************** 


***************** 


• 




* YES 


***** 
♦ME ♦ 




• 


I 


*..,.. ,X* 






♦ B3 + 
* * 

KAPUT 




' 


• 


I 






X 


• 


• 


CONTINUE k 




X 




• ♦. 


X 


X 


«*«*3|cH14c4i:«««4c**** 

* GET LOGIC * 


*****H2********** 


H3 *, 


*****H4********** 


♦****H5********** 




GET 


* 


.♦ NO. ♦. 


* BUILD CCW ♦ 


* * 


* MODULI * 




ADDRESS AND 
SIZE OF 


* 


.♦OF BYTES TO^. NO 


* TO TIC TO ♦ 


♦ BUILD CCW ♦ 
« TO TIC TO ♦ 


♦FROM 5TF TABLE ♦ 




* 


♦. SHIFT GT .♦... 


* START OF ♦ 




JOAREAL 


* 


♦,R£MA NDER.* 


* READ CCW ♦ 


* *-8 * 


* * 






* 


♦ , .♦ 


* CHAIN ♦ 


* * 


*«**«««*********3|C 


**************«:«(* 


*, ,* 


***************** 


***************** 


] 








♦ YES 


• 

* 


**** * 

♦ ME ♦ 

♦ CI ♦.X. 

♦ * , 


X 












**** , 


,*. 




X 




X 


X 


BUILD2 X 


ijl *f 


«#v:it*j2**4'7**w** 


♦ SAJBTRACT ♦ 


, *****J4********** 


*****j5^********* 


.♦^COGIC *, 




♦ SVC 26 * 


* 


* KEY AND ♦ 


♦ BUILD CCW ♦ 


.♦ MODULE AT *. NO 
♦ , LE/IST AT .*... 




DO PROTECTION 


* 


♦ ONE FROM ♦ 

♦ MAXIMUM NO. * 

♦ OF PRIME DATA ♦ 

♦ RCDS IN CORE ♦ 

**«**«*«**#**:««*** 


* TO READ ♦ 




* CHECK ON * 

♦ lOREAL * 


* 


♦ CCIU*iT, KEY ♦ 

* AND DAT4 * 


*. VER 3 ,* 




* 


♦ DATA ♦ 


«*LEVEL.* 




* * 


♦ 


* * 


* ♦ 


*♦%* 


«*3tc*«* ** ** **♦*♦** 


***************** 


**************^** 


* YES 








!y 


• 


I 


I 

TESTMOD •*. 




'x 


BUM PI X 


X 


l 


Kl *, 


; ****:tcK2********** 


♦♦***K3********** 


*****j^4********** 


*****(<5********** 


,* *, 




CALCULATE 


* 


* ALIGN CCW * 

♦ CHAm AOOR ♦ 


♦ ADD 24 TO ♦ 


* ADD 8 TO * 


,« CORDATA *n NO 




MAXIMUM NO, 
OF PtIME 


* 


♦ POINTER TO ♦ 


* POINTER TO ♦ 




* 


♦ ON DOUBLE ♦ 


♦ CCW BUILD ♦ 


* CCW BUILD ♦ 




DATA RCDS IN 


* 


* 4/ORD * 


* AREA ♦ 


* AREA ♦ 


«, .♦ 




CORE 

)c «*;)(« ;(t4c** ****4C4 


* 


* BOUWOARY ♦ 

4c :((**** -^af ********* 


* * 


* * 


♦., ,* 




If* 


***************;** 


***************** 


* YES ** 


!** 












*M 


E +001 












k 


zl* 












* 


X 




X 


X 


X 


**** 


f 


**** 




**** 


**** 


***** 



* G2 ♦ 
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Chart ME. $$BOIS08: ISAM Open, Phase 8 C 2 of 2) 



***** 

*M0 * 
* K5* 



***** 

*MD ♦ 
* G2* 



*****B1 ********** 

* SUBTRACT * 

* ONE FROM * 

* MAXIMUM NO. * 

* OF PRIME DATA * 

* RCOS IN CORE * 
***************** 



.* MAX NO. *. NO 
•OF PRIME DATA.*.., 
*.RCDS EQ 0.* 



***** 
*MD * 
* J5* 



**Q1****#** 

* SET LAST * 
READ CCW 
FLAG BYTE 

TO ZERO 

* * 

*******«!<<*# 



**** 

T X 
*****E1 ********** 

* RESTORE * 

* POINTER TQ * 

* PART 1 OF * 

* DTF TABLE * 

* * 

*****#:********»*i(< 



* SVC 2 * 

* FETCH * 

* $$B0IS09 * 

*4:************* 



KAPUT X 

4c4c***g3*******^** 

* GET CYLINDER * 

* INDEX LOGICAL * 

* UNIT NUMBER * 

* FROM DSKXTN * 

* TABLE * 
***************** 



*****C3********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 42721 * 

* * 
***************** 



****03********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 
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Chart MF. $$BOIS09: ISAM Open, Integrity Phase 1 (1 of 3) 



* * 

* $*B0TS09 * 

* * 



* RELOCATE * 

* ADDRESS OF * 

* CCW CHAIN * 

* IN COB * 

* * 



RELOCATE 

**«**(; 1 ********** 

* RELOCATE * 

* CCW'S BY * 

* ADDING RFLOC * 

* FACTOR TO * 

* CCW ADDRESS * 
***************** 



. * LOAD *. 

CREATE OR ■ 
NEW OVFL 
. EXTENT .■ 



* B4 * 

* * 



END 
OF EXTENT 
. REACHED . 



**** 

*m * 

* Gl 



X 

♦MG * 
* Bl* 



TEST 

YES 
X. ..* 

X 

* * 

* E4 * 

* * 



DTP 
TYPE INDIC 
. LOAD 



WAS ♦. YES 
EXTENT .*.... 
.INCREASED.* 



.X* 



***** 
♦MG * 
* B2* 



*««4c«Q3***)((**«:(>«* 

* SAVE COUNT * 
*IN SEEK/SEARCH ♦ 
" ADDRESS FOR ♦ 
=» ADDROUT * 

* SUBROUTINE * 

«««9te**** ********* 



* UPDATE * 

* CYLINDER * 

* NUMBER * 

**«:(c«4(:(c«itt4<******* 



RETRVE 

DTF 

TABLE 



OASDCELL 

♦****P1 ********** 

* MOVE REQUIRED * 

* LIMIT (CCHH) * 

* TO MAXIMUM * 

* LIMIT POINTER * 

* * 
***************** 



.* DOES *. 
NJO .* FILE HAVE *. 
..*.INDEP OVFLOW .* 
*. AREA .* 



*****G1 ********** 

* * 
*GET INOEPENDEMT* 

* OVERFLOW AREA * 

* LOWER LIMIT * 

* * 
***************** 



*****H1********** 
*GE7M MH* 

*_*_*_*_*_*_*_*_* 

* GET LOGICAL * 

* UNIT AND CELL * 
*N0. FOR EXTENT * 
***************** 



WAS *- YE 
FILE .*.. 

CLOSED .* 



INDEP 
OVERFLOW 
.AREA FULL. 



**♦* 

* 

E4 * 

* 

**** 



REFERENCES 
TO MFE4: 
MGC5, MGK5 



*****j2*** ******* 

* * * * 

* * SVC 7 * * 

* * WAIT * *X. 

* * * * 

* * * * 
***************** 



***** 
*M6 * 
* C4* 



*****E3******** ** 

* MOVE LAST * 

* INDEPENDENT * 

* OVERFLOW * 

* EXTENT LIMIT * 
*T0 SEARCH ADDR * 
***************** 



****«F3*** ******* 

* SAVE INITIAL * 

* COUNT IN * 
*SEARCH ADDRESS * 

* FOR READ * 

* * 
***************** 

**** 

* * 

* G3 * 

* * 
**** 

AN X 



***************** 



***;H3************ 

SVC 
* SEARCH FOR * 
EOF 
* RECORD * 

***************** 



**** 

fcXIT2 X 

«****E4********** 

* GET ADDRESS * 

* OF SYSTEM * 
..X* COMMUNICATION * 
. * REGION * 

* * 
***************** 



**P4******* 

* TURN OFF * 

UNIT 

EXCEPTION 

BIT IN CCB 

* * 
*********** 



G4 *. 

.* *. 

.* MORE *. 

. FILES TO 

*. OPEN .* 



*****Q5 ********** 

* SET RECORD * 

* NUMBER IN * 

* SEEK/SEARCH * 

* ADDRESS TO * 

* * 
***************** 

I **** 

. * * 

..X* G3 * 
* * 
**** 

*****E5**«******* 

* MOVE OVFL ♦ 

* UPPER LIMIT * 
.X* TO LAST * 

* INDEP OVFL * 

* RCD ADDR AREA * 
***************** 



***** 
*MG * 
* C4* 



*, 



**H4******* 

* TURN OFF * 
* OPEN BIT * 

* IN SYSTEM * 
♦COMMUNICATION* 

* REGION * 
*********** 



****J4********* 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



****G5***«***** 

* SVC 2 * 
.X* FETCH * 

* *$BOPEN * 
*************** 



*****j5********** 

* * 

* RESET ♦ 

* CLOSE * 

* MONITOR * 

* * 
***************** 



* 






****K4********* 


EOF 


* 


YES 


* SVC 2 ' 


RECORD 




.*.... 


* FETCH 


FOUND 


.* 




* $$B0IS10 


. .* 






*************** 


*. .* 




X 




* NO 




***** 
*MG * 




. 




* Jl* 


POINT 
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Chart MG. $$BOIS09: ISAM 0^611, Integrity Phase 1 (2 of 3) 



***** 

*MF ♦ 
* B3* 



LOLIM X 

:|c«i4(«*gl«4c******** 

* MOVE OVERFLOW * 

* LOWER * 

* LIMIT TO * 

* SEEK/SEARCH * 

* ADDRESS * 

««4e************** 



***** 
*MF * 
* C4* 



SETNEW X 

*A DOR OUT MH* 
*_*_*_*_♦_*_*_*_* 

* UPDATE * 

* CYLINDER * 

* NUMBER * 
««4<4e****** ******* 



* SET UP CCB ♦ 

* TO WRITE * 

* EOF RECORD * 

* * 



*****D1 ********** 

* ZERO RECORD * 

* NUMBER IN * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 

«««:|(«4e«*:(t*:(c**#«** 



#«»EX ************ 
* SVC * 

WRITE EOF 
* RECORD * 

**««9j<*:|c***«:tc«#**« 



.X* 



*«3te**F 2*** ******* 

* * * * 

* * SVC 7 * * 
WAIT * * 

* * 



* * 



* * 



4:« 4c««# «:«: 3(c# «:{c««^:«i:te 





.* NEW *. 








♦INDEPENDENT* 


. YES 


*', 


OVERFLOW 
*. EXTENT .* 

*. ,* 


.* 


... . 




*• .* 




X 




* NO 




***** 
*MF * 
* C3* 








* * 

* 




Hi' **. 




TESTLOAD 










.* *. 








* LOAD * 


. YES 


*'. 


TYPE 

*. DTF .* 
*. ,* 


.* 


.... 




*. .* 




X 




* NO 




**** 


***♦ 




* * 


*MF * 






* J5 * 




K3 *.X 






* * 




* 






**** 


**** 








POINT X 






♦♦***ji ********** 






GET POINTER 


* 






TO MAXIMUM 


* 






LIMIT AND 


* 






CURRENT 


* 






ADDRESS 


* 






^******9! 


^******** 





.*. 

Kl *. 

.* FIRST *. 

* RECORD IN *. 

INDEPENDENT . 

*. OVERFLOW .* 



.*INDEPENDENT*. YES 
. OVERFLOW .*.... 
*. LOWER .* 
♦.LIMIT.* 



P0INT4 X 

*****[)3********** 

* DECREASE * 

* CURRENT * 

* ADDRESS * 

* POINTER * 

* BY ONE * 
***************** 



E3 *. 

.* CCHH *. 

.*0F CURRENT *. YES 

ADDRESS .*.... 

*. ZERO .* 

*, ,* 



*****P3********** 

* MOVE HIGH * 

* RECORD NO. * 
♦OVERFLOW TRACK * 

* TO CURRENT * 
♦ADDRESS POINTER* 
***************** 



.* IS *. 

ADDRESS 

CHARACTER 

. ZERO 



*****H3 ********** 

* REPLACE * 

* ADDRESS * 

* CHARACTER ♦ 

* WITH MAX * 

* LIMIT CHAR, ♦ 
***************** 



*****J3*** ******* 

♦ SUBTRACT ♦ 

♦ ONE FROM * 

♦ MAX LIMIT ♦ 

♦ AND CURRENT ♦ 

♦ ADOR POINTERS ♦ 
***************** 



K3 *. 

.* LAST *. 

NO .* CHAR IN * 

..♦.CURRENT ADDR 

*. TESTED .* 

♦ . .♦ 



DECREM X 

*****A4********** 

* DECREASE * 

* CURRENT ♦ 

* ADDRESS ♦ 

* POINTER ♦ 

* BY ONE * 
***************** 

**** 

* * 

* B4 *.X 

* * 
**** 

CALC X 

*****Q4********** 

* SET UP LAST * 

* INDEPENDENT * 

* OVERFLOW * 
♦RECORD ADDRESS * 

* (CCHHR) * 
***************** 



***** 

*MF * 

♦ H5^ 

* * 



**** 



**** 



REFERENCES 
TO MGC4: 
MFD3, MFE5 



*****Q4*** ******* 

* SET UP * 

* NEW ♦ 

* OVERFLOW * 

* UPPcR * 

* LIMIT * 
***************** 



*****D4**^******* 

* MOVE LAST * 

* INDEPENDENT * 
♦OVERFLOW AECORD* 

* TO OVERFLOW * 

* LOWER LIMIT * 
***************** 



*****£4********** 

♦ COMPUTE ♦ 

♦ NUMBER * 

* OF SUBCELLS * 

* AND STRIPS * 
» * 
***************** 



.♦PRIME DATA ♦. 2314 
. ON 2311 OR .*..... 
♦. 2314 .* 



*****C5********** 

* * 

* RESET * 

* CLOSE * 

* MONITOR * 

* * 
***************** 



***** 

*MF * 
♦ E4* 



.* PRIME 
DATA ON 
*. 2321 



*****H4********** 

* * 

* COMPUTE ♦ 

* NUMBER OF ♦ 

* SUBCELLS * 

* * 
***************** 



*** **J4********** 

* * 

♦ COMPUTE * 

♦ NUMBER OF * 

* STRIPS * 
» * 
***************** 



>ic****K4********** 

* ♦ 

* COMPUTE ♦ 

* NUMBER OF * 

* CYLINDERS * 

* * 
***************** 



****[- i> ********* 

♦ SVC 2 * 

♦ FETCH * 

♦ $$B0IS10 * 
*************** 



*****P5********** 

* SET UP TO * 

* CALCULATE * 
X* NUMBER OF *. 

* 2314 TRACKS * 

* * 
***************** 



*****G5********** 

* COMPUTE * 

* NUMBER OF * 
X* CYLINDERS * 

* FOR 3330 * 

* * 
***************** 



***«*H5********** 

* * 

* SET PROPER ♦ 

* DEVICE * 

* CONSTANT ♦ 

* * 
***************** 



**** 

X 
*****j5********** 

♦ CALCULATE ♦ 

♦ NUMBER OF * 

♦ TRACKS AND * 

♦ STORE RESULT * 

♦ IF REQUIRED * 
***************** 



**** 

*MF ♦ 

* Fl ♦.X 



***** 
*MF * 
XIT2* E4* 



**** 

* * 

* A5 * 

* * 
**** 
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Chart MH. $$BOIS09: ISAM Open, Integrity Phase 1 (3 of 3) 



* 4.$BOIS09 * 

* GET ADDRESS * 

* SUBROUTINE * 



GETM X 

* GET RELATIVE * 

* ADDRESS OF * 

* DSKXTN * 

* TABLE * 

* * 
***************** 



*****(; 1********** 

* USE EXTENT * 
*SEQ NO TO POLMT* 

* TO ENTRY * 

* IN DSKXTM * 

* TABLE * 

**************!(<** 



***** 01 ********** 

* MOVE * 

* LOGICAL * 

* UNIT * 

* TO CCB * 

* * 
***************** 



*****£!*******«** 

* MOVE CELL * 

* NUMBER (BB) * 

* TO SEEK/ * 
*SEARCH ADDRESS * 

* * 
***************** 



****P1********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*************** 



****A4********* 

* $$BOIS09 * 

* ADD * 

* SUBROUTINE * 
*************** 



ADDRUUT X 

*****B4********** 

* GET * 

* MAXIMUM * 

* LIMIT * 

* POINTER * 

* * 
***************** 



*****(;4********** 

* GET « 

* CURRENT * 

* ADDRESS * 

* POINTER * 

* * 
***************** 



..X. 

X 

•ADULUUP .*. 

D4 *. 
.* IS * 
.* CURRENT 
*. BYTE AT 
*. MAX 



*****E4********** 

* SET * 

* CURRENT * 

* BYTE TO * 

* ZERO * 

* * 
***************** 



*****F4********** 

* * 

* DECREASE * 

* POINTERS * 

* BY ONE * 

* * 
***************** 



,* LAST *. 
,* CHARACTER * 
.IN CURR ADDR 
*. TESTED .♦ 



ADDINCR X 

*****H4********** 

* ADD ONE * 

* TO VALUE * 

* OF CURRENT * 

* ADDR BYTE * 

* * 
***************** 



*****J4********** 

* * 

* UPDATE * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



****K4********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*************** 
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Chart MJ. $$BOIS10: ISAM Open, Integrity phase 2 (1 of 2) 



****A1 ********* 

* * 

* $$BOIS10 * 

* * 
*«**«4c********* 



RELOCATE X 

4c««:tc*Bl ********** 

* RELOCATE CCW * 

* ADDR IN CCB * 

* AND ADOR IH * 

* CCW CHAIN * 

* * 
*«4(* ************* 



.* PRIME * 
*.DATA ON DATA 
*. CELL .* 



**** 


**** 


* * 


* * 


* A3 * 

* * 


* A4 * 

* * 


**** 


*«** 


PDSCHAGN X r 
***A3************ . 

SEARCH FOR I. 
* EOF RECORD * 

4(**** ************ 


X 
**«**A4********** 

* UPDATE * 

* SEEK/SEARCH * 
....* ADDRESS TO * 

* CONTINUE * 

* SEARCH * 

4c****4c*********** 



«4c***B2*** ******* 

* * * * 

* * SVC 7 * * 



3(ci$c**** *#******:«** 



PRIME 

DATA ON 

3330 



EI *. 

* PRIME * 

DATA ON 

2314 OR 

2319 



*. 



«:|c****:Ce* ********* 



♦**«*D2********** 



«:f ****** ********* 



:(c4c***E 2********** 

* * 

* SET HEAD * 
X* LIMIT FOR * 

* 2311 * 

* * 

:t<4c**** *********** 



.* 
*. .* 
* YES 


**** 

* * 

* C4 * 

* * 
**** 




C3" '♦. 

*. 

EOF *. YES 

SENSED .♦..., 


X 
.PDPOINT .*. 

C4 *. 
, ,* * 
.* END OF 
.. *. CYLINDER 


*. NO 


.* 
.* 
*. .* 
* NO 


*. REACHED 

**, .*' 
* YES 


* 

X 

***** 

*MK * 

* A2* 

* * 

* 



PDROUT X 

«*««*p !**«******* 

* MOVE LAST * 

* PRIME DATA * 

* AREA ADDR TO * 

* SEEK/SEARCH * 

* ADDRESS * 

«:tc :((«#«:«:»:««**««*«:»: 
**** 



* Gl *.X 



**** 

SETLOG X 

♦****Gi********** 
*GETM m* 

* GET EXTENT * 

* SEQ. NO. CMJ * 

* FOR SEARCH * 

:«(«««***«********* 



:^:ic:tc4c*HI********** 



«:jc4(************** 



**J1 ******* 

* TURN OFF * 
CHAINING 

BIT IN CCW 
TO RCKDM 



**D3 ******* 

* TURN OFF * 

* END OF 
CYLINDER 

* DETECTED 

* SWITCH * 
4<********** 



.* END OF 
*. CYLINDER 
*. REACHED 



.* LAST 
*. VOLUME OF 
*. DATA 



4c:t<***D4********** 

* MOVE LAST * 

* HEAD NUMBER * 

* (HH) TO LAST * 

* PRIME DATA * 

* ADDRESS * 

«4c*************** 



4c4e :«c « :«( E 4* * « 4e* ** * ** 

* MOVE HIGH * 

* PRIME DATA * 

* RECORD NUMBER *. 

* TO LAST PRIME ♦ 

* DATA ADDRESS * 

:tc4c*************** 



***** 

*MK * 

* 82* 



CHKUPLIM .*. 



.* END OF 
.X*. EXTENT 
*. REACHED 



* LAST *. 

CYLINDER OF .*X. 
*. VOLUME .* 



* LAST * 
CYLINDER OF 

*. VOLUME .* 



*****««***«: 



*****J2********** 

* * 

* SET UP * 

* CCHHR FOR *X 

* NEXT VOLUME * 

* * 



*****J3********** 

* INCREASE * 

* EXTENT SEQ, * 
.* NUMBER (M) * 

* BY ONE * 

* * 
***************** 



* G4 *.X 



**** 
PDUPPTR X 

*****64********** 

* SAVE COUNT * 

* C CCHHR) IN * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



*****H4********** 

* * 

* SAVE LAST * 

* PRIME DATA * 
♦RECORD ADDRESS * 

* * 
***************** 



**j4******* 

* * 
TURN ON EOC 

DETECTED 
SWITCH 

* * 
*********** 



*****G5********** 
*ADDROUT MH* 
*_*_*_*_*_*_*_*_* 

, .X* UPDATE * 

* CYLINDER * 

* NUMBER * 
***************** 



*****H5********** 

* * 

* SET UP HR * 

* FOR NEXT * 

* CYLINDER * 

* * 
***************** 



*****J5********** 

* SUBTRACT ONE * 

* FROM RECORD * 

* NUMBER * 

* * 
***************** 



**** 

* * 

* A3 * 

* * 
**** 
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***** 

* C4* 



LSTPRDAT X 


TESTSHRD . *. 




FULLTRK .*. 




***«*ft 2*** ******* 


A3 *. 




A4 *. 


**A £.******* 


* * 


.* LAST *. 




• * *• 


* * 


* SAVE LAST * 


.*PRIME DATA * 


NO 


.* LAST *. YES 


* SET LAST * 


* PRIME DATA * 


*,RCD ON SHARED 
*, TRACK ,* 


*••».• 


.•»X*. TRACK •*•••« 


...X* TRACK Full * 
* INOICATUK * 


* ADDRESS * 


X 


*. FULL .* 


* ♦ 


*. .* 




*. ,* 


* * 


****** ***:tc:tc«*:{(*** 


*, .* 
* YES 




*. .* 
* NO 


*********** 


♦*** r 






**** 


**** r 


*MJ * 






* * . 


* * . 


* E4 *.X. 






* B4 *.X. 


* B5 *.X, 


* * , 






* * , 


* * , 


**** X 


X 




**** , 


**** 


CHCKST .*. 


.*. 




NDFULTRK X 


fcXIT2 X 


82 *. 


B3 *. 




**B4******* 


*****y5********** 


.* *. 


.* FIRST *. 




* * 


* GET ADDRESS * 


.* UNBLOCKED *. YES 


.*PRIME DATA * 


YES* 


♦TURN OFF LAST* 


* OF SYSTEM * 


*. RECORDS .*.... 


*. TRACK NON- 


,*... . 


* TRACK FULL * 


* COMMUNICATION * 


*. .* 


*. SHARED .* 




* INDICATOR * 


* REGION * 


*. .* 


*, .* 




* * 


* * 


*. .* X 


*. .* 




*4c********* 


***************** 



*****C 2 ********** 

* INITIALIZE * 

* CCW TO READ * 

* LAST PRIME * 

* DATA RECORD * 

* * 

«:«e :((«*;«« *«*«4c****** 



***D2*** ********* 

SVC 
* READ LAST * 
PRIME DATA 
* RECORD * 

*****:)(* ***:tc***:tc** 



*:(c :<(«*£ 2 ********** 

* * 

* LOAD * 

* BLOCKING * 

* FACTOR * 

* * 

*********;:«(******« 



*****p 2* ********* 



C3 *. 

.* LAST *. 

.*P.O. RECORD*. 

*. FINAL RECORD . 

*.0N SHARED.* 

*. TRK .* 

*. .* 

* YES 



**[)3******* 

* SET LAST * 

* PRIME DATA 
* TRACK FULL 

* SWITCH 

* * 
*********** 



****04********* 

* SVC 2 * 

* FETCH * 

* $$60PEN * 
*************** 



* ADD KEYLENGTH * 




*T0 KEYLOCATION * 




* * 




♦ * 




***************** 




**** I 




* * . 




* G2 *.X. 




* * , 




**** X 




COMPKEY .*. 


VALIDKEY 


G2 *. 


*****G3 ********** 


.* *. 


* INCREMENT * 


.* KEY OF ♦. NO 


* I/O AREA * 


*. FF'S .♦•«•• 


....X* ADDRESS BY * 


*. .* 


* LOGICAL REC * 


*. .* 


* LENGTH * 


*. .* 


***************** 



**Q5******* 

* * 

* TURN OFF * 
*UNIT fcXCEPTIUN 

* BIT IN CCB * 

* * 
*********** 



MORE 
FILES TO 
. OPEN 



**E5******* 

* TURN OFF * 
* OPEN BIT IN * 

* SYSTEM 
♦COMMUNICATION* 

* REGION * 
*********** 



****p 5********* 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



*****J2*** ******* 

* * 

* SET * 

* STATUS * 

* TO ZERO * 

* * 
***************** 



*****J3********** 

* ♦ 

* SET INDICATOR * 

* BYTE TO LAST * 

* BLOCK FULL * 

* * 
***************** 
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****A1 *♦**♦**** 

* * 

* $$BCISOA * 

* * 



* RETURN 

FROM TRACK 
*,HQLD OEQ . 



NO .* HOLD * 

. .*. SPEC IN DTF 
*. TABLE .* 



* 

♦ Gl 



* ♦ 

* TURN ON * 
DEQUEUE FETCH * 

* SWITCH * 

* * 



* SVC 2 * 

* FETCH * 

* $$B0SDC2 * 



* * 

* Gl ♦ 

* * 



* GET ADDRESS * 

* OF DASD LABEL * 
♦INFORMATION IM * 

* MAIN STORAGE * 

* * 



* * 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 



* * 

* STORE * 

* CCW ADDRESS * 

* IN CCB * 

* * 



* RELOCATE * 

* ADDRESSES * 

* IN CCW'S * 

* * 



* * 

♦SET UP LOGICAL * 

* UNIT AND SEEK * 

* ADDRESS * 

* * 



:^ii:iilfttt*C 2* ********* 

* SET UP TO * 

* ISSUE MESSAGE * 

* 42061 IF * 

* REQUIRED * 

* * 



*!(«**#D2* ********* 

* ♦ 

* SET UP TO * 

* READ VOL I * 

* LABEL * 

* * 



*-*-*- 3(t- 5tc_ ♦_*_*_ * 



Xe:tt«4c#« **«**♦ ♦««:<(« 



*****F 2*** ******* 

* * 

*6ET ADDRESS OF * 

* VTQC AND GET * 

* FILE ID * 

* * 



♦♦♦♦*(;2*** ******* 

* * 

*SET UP TO ISSUE* 

* MSG 42011 IF * 

* REQUIRED * 

* * 
***************** 



_♦_*-♦_*_♦ 



:4e********* ******* 



*****J2*** ******* 

* * 

* SAVE POINTER * 

* TO FORMAT 2 * 

* LABEL * 

* * 
************ ***** 



. * *. 

LOAD * 

TYPE FILE 



LOAD *. YES 

EXPANSION .*..X 
.TYPE FILE.* 
*, ,* 



***** 

*NB * 
* B2* 



*****C3 ********** 

* MOVE LENGTH * 

* OF BLOCK * 
*FROM DTF TABLE * 

* TO FORMAT I * 

* LABEL * 
***************** 



*****03 ********** 

* MOVE RCD LNG, * 

* KEY LNG AND * 

* LOC FROM DTF * 
*TBL TO FORMAT 1* 

* LABEL * 
***************** 



***«*e3 *********!( 

* SET UP TO * 

* WRITE UPDATED * 
*FORMAT 1 LABEL * 

* BACK ON VTOC * 

* * 
***************** 



*****H3********** 

* * 
*SET UP TO ISSUE* 

* MESSAGE 42021 * 

* IF REQUIRED * 

* * 
****** ** ** ** *** ** 



*****J3* ********* 



***************** 



*****K3********** 

*EXCPRT NB* 
*_*_*_*_*_*_*_*_* 

* READ FORMAT 2 * 

* LABEL * 

* * 
***************** 



*****A4********** 

* MOVE NO. OF * 

* INDEX LEVELS * 
*FROM DTF TABLES* 

* TO FORMAT 2 * 

* LABEL * 
***************** 



*****B4********** 

* MOVE FIRST * 

* PRIME DATA * 

* RCD IN CYL * 

* FROM DTF TBL * 
♦TO FORMAT 2 LBL* 
***************** 



*****C4********** 

* MOVE LAST * 

* PRIME DATA * 

* TRK IN CYL * 

* FROM DTF TBL * 
*T0 FORMAT 2 LBL* 
***************** 



*****[)4****4***** 

* MOVE HIGH RCD * 

* ON MI/CI, PD, * 

* OVFL, AND TI * 

* TRACK TO * 
♦FORMAT 2 LABEL * 
***************** 



*****E4********** 

* MOVE LAST * 

* PRIME DATA * 

* RCD ADOR FROM * 

* DTF TABLE TO * 
*FORMAT 2 LABEL * 
***************** 





*♦** 








* * 








* E5 * 








* * 








**** 








X 






SKIPIO 


.*. 

E5 *. 








* * 






.* 


ADD 


*. 


YES 


*. 


TYPE 




*. ... 


*. 


FILE 

*. ,» 


*' 


• 




*, .* 




X 




* NO 




***** 








*NB * 

* 63* 
♦ * 



*_*_*_*_*_*_*_*_* 


* AND MI LOWER * 


.* LOAD *. YES 


* WRITE UPDATED * 


* LIMITS FROM * 


*. TYPE .*.... 


* FORMAT 1 LBL * 


♦OTFIS TABLE TO * 


*. FILE .* 


* ON VTOC * 


*FORMAT 2 LABEL * 


*. .* 


***************** 


***************** 


*. .* X 
* MO ***** 


**** * 




*NB * 


*NB * 




* B4* 


* B2 *.X. 




* * 


* * . 




* 


**** 




LOADUP 


KIP08A X 


X 


RETRVU X 


*****e3*** ******* 


*****G4********** 


*****G5********** 


* GET POINTER * 


* MOVE HIGH * 


* MOVE TAG * 


* TO FORMAT 2 * 


* LEVEL INDEX * 


*DELETION COUNT * 


* LBL FROM * 


* ADDRESS TO * 


* FROM DTF * 


* SAVE AREA * 


♦FORMAT 2 LABEL * 


* RETRVE TABLE * 


* * 


* * 


*T0 FORMAT 2 LBL* 


***************** 


***************** 


***************** 



*****H5********** 

* * 

* GET ADDR * 

* OF RANDOM * 

* RETRIEVE I/O * 

* AREA, lOAREAR * 
***************** 



*****j4********** 

* CHANGE HIGH * 

* LEVEL INDEX * 
♦ADDR IN FORMAT * 

* 2 LABEL TO * 

* LOWER LIMIT * 
***************** 



*****Ki>********** 

* MOVE NONFIRST * 
*OVFL REF COUNT * 

* FROM DTF * 
*RETRVE TABLE TO* 

* FORMAT 2 LBL * 
***************** 



***** 
*NB * 
* Bl* 
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***** 

*NA * 
* K5* 



***** 
*NA * 
* E5* 



OUTRTN X 


SKIP08 


.*. 


#4c «* 4: B X 'i'**'t'^'«''S< *< * =^ 




B2 *. 


* SET UP TO * 




* * 


*WRITE FORMAT 2 * 


NO .* 


HAS 


..X* LABEL BACK * 


,...,.*. 


FILE BEEN 


. * VTOC * 


♦ 


OPENED 


* * 




*, , * 


***************** 




*, .* 


«*** 




* YES 


* 






81 * 






* 




X 


«♦** 




***** 
*NA * 


X 




* G3* 


**C1******* 




* * 


* * 




* 


* TURN ON * 




SKIP08A 


* CLOSE * 






* SklTCH * 







«*:«c***;tc*3)e** 



*****D1 ********** 

*EXCPRT MB* 

*_*_*-*_*_*_*_*_* 

♦WRITE FORMAT 2 * 

* LABEL BACK * 

* ON VTOC * 
***************** 



0UTRTN2 

*♦**♦£! *♦»****♦*♦ 

* GET POINTER * 

* TO NEXT * 

* FILE TO BE * 

* CLOSED * 

* * 

*4c*****:4c********:«e 



ADDUPT X 

♦****B3 ********** 

* MOVE LAST TI, * 

* CI AND MI * 
*ENTRY AND LAST * 

* OVFL RCD ADDR * 
*T0 FORMAT 2 L8L* 
***************** 



*****C3 ********** 

* MOVE NO. OF * 

* INDEPENDENT * 
*OVFL TRKS FROM * 

* DTF TBL TO * 

* FORMAT 2 LBL * 
***************** 



*****[33 ********** 

* MOVE OVFL RCD * 

* COUNT FROM * 

* DTP TBL TO * 
♦FORMAT 2 LABEL * 

* * 
***************** 



*****E3********** 

* MOVE CYLINDER * 

* OVFL AREA * 

* COUNT FROM * 

* DTF TBL TO * 
*FORMAT 2 LABEL * 
***************** 



LUAOUP X 

*****B4********** 

* MOVE NO, OF * 

* BYTES IN * 

* HIGHEST LEVEL * 

* INDEX TO * 
♦FORMAT 2 LABEL * 
***************** 



*****C4********** 

* MOVE PRIME * 

* DATA RECORD * 

* COUNT AND * 

* STATUS IND * 
*T0 FORMAT 2 LBL* 
***************** 



*****04********** 

* MOVE LAST * 

* TI, CI AND * 

* Ml ENTRY * 

* ADDRESSES TO * 
♦FORMAT 2 LABEL ♦ 
***************** 



*♦** 

* * 

* Bl * 

* * 
**** 



ALL 

FILES 
CLOSED 



****F2********* 

* SVC 2 * 

* FETCH * 

* $$BCLO$E * 
*************** 



*****P3 ********** 

* MOVE PRIME * 
*DATA RCD COUNT * 

* AND STATUS * 

* INDICATORS ♦ 
*T0 FORMAT 2 LBL* 
***************** 



****F4********* 

* $$BCISOA * 

* INPUT/OUTPUT * 

* SUBROUTINE * 
*************** 



**gl******* 

* TURN OFF * 
♦OPEN MONITOR * 

* SW IN SYSTEM * 
*COMMUNICATI0M* 

* REGION * 
*********** 



****H1 ********* 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM ♦ 
*************** 



***G4^**** ******* 
SVC 
* READ OR * 

WRITE 
* LABEL * 

***************** 



*****H3********** 

* MOVE TAG * 

* DELETION ♦ 

* COUNT 10 * 

* FORMAT 2 * 

* LABEL * 
***************** 



*****H5********** 



***************** 



END 

P CYLINC 

OR NRF 



*****J5********** 

* SET MESSAGE * 

* ORGANIZATION * 
X* CODE BYTE TO * 

* INDICATE * 

* ISAM * 
***************** 



*****j<3* ********* 

* MOVE * 

* NONFIRST OVFL * 

* REF COUNT ♦ 

* TO FORMAT 2 ♦ 

* LABEL * 
***************** 



****j<4****v**w 

* RETURN * 

* TO CALLING ♦ 

* ROUTINE ♦ 
*************** 



****i<5********* 

* SVC 2 ♦ 

* FETCH * 

* $$B0MSG1 * 
*************** 
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* * 

♦ A2 •* 
***♦ 



* * 

* $$BORTVl * 

* * 



♦RECORD ADDRESS * 

* OF CCW * 

* CHAIN IN CCB * 

* * 



*ci********** 



4!« 4: it:«4:ic«4c :»!«:«< 4c 4::tc«;«e 



«4c 4c« :tc 1 "«< '(''«° ^« * "^^ * =)" >(< 

* * 

* GET DLBL * 

* AND EXTENT * 

* ADDRESSES * 

* * 



El *. 

* * 

LUB 

=IGN OR 



♦CLEAR FIRST 71 * 
*BYTES OF UPPER * 
♦TRANSIENT AREA * 
* * 

4= 4c:ic 4c 4^ 4c ♦♦«♦*♦♦♦ ♦♦♦ 



♦♦***B2*** ******* 
*CLEAR REGISTERS* 

* AND SET * 

* SWITCH TO * 

* ZERO * 
« * 
4c4(«4c4c4:4<4<*4c4'«4c4:4c4e4' 



*****C2********** 

* * 

* INITIALIZE * 

* MESSAGE CODE * 

* WITH C'2' * 
4f * 
4;4< ♦♦♦♦ 4<# ♦♦ ♦♦ ♦♦♦♦♦ 



4t****D2********** 

* GET ADDRESS * 

* OF DASD LABEL * 

* INFORMATION * 

* IN HA IN * 

* STORAGE * 

4c4(4<#4c4e4c4c4c4c4:4c4<«4e«4c 



*4c***E 2*** ******* 

4c * 

* COMPUTE * 

* LENGTH OF *. 

* EXTENTS * 

* * 
4c4c**********4«**** 



*:4!4<**G1 ********** 

* INCREMENT * 

* PTR ♦ 

* TO NEXT * 

* EXTENT * 
4= 4c 
4c4c******4!4«**4c*4:4e4c 



4!4c ***4! ***♦ *4«** 4C4C* 



4c4!***G2 ********** 



***************** 



****H2*** ****** 

* SVC 2 * 
♦FETCH $$B0MSG1 * 

* * 
*************** 



*****jl ********** 



** *************** 



Kl *. 

.* ENTRY *. 

.♦FROM OTHER *. 

*.THAN $$B0PEN2. 



**K2******* 

* TURN OFF * 
*RETURN SWITCH* 

.X*IN SYSTEM COMM * 
* REGION * 

* * 
*********** 



*****A3********** 

* ADD LENGTH OF * 

* LABEL INFO * 
X* STARTING * 

* ADDRESS OF * 

* LABEL INFO * 
***************** 



*****Q3 ********** 

* SAVE END * 

* ADDRESS OF * 

* DASD LABEL * 

* INFORMATION * 

* * 
***************** 



VOLGET X 

*****B5***:******* 
*EXCPRT NO* 
*-*-*_*_*_♦_*_*_* 

* GET VOLUME * 

* LABEL * 

* * 
***************** 



*****C3********** 




C5 *. 


* GET ADDRESS * 




.* *. 


* OF * 




NO .* VOLUME *. 


* FIRST * 




..,*. LABEL .* 


* EXTENT * 




*. FOUND .* 


* * 




♦ . .* 


***************** 




*« .* 
* YES 


**** ' 






* * . 






* D3 *,X. 




. 


* * , 






**** X 




X 


CLARCELL .*. 




.*. 


D3 *. 


*****D4********** 


D5 *. 


.* *. 


* SET FIRST * 


.* *. 


.* END *. NO 


* BYTE OF * 


.* STANDARD *. YES 


*. OF EXTENTS .*..... 


...X* BIN NUMBER * 


*. VOLl .* 


*. .* 


* TO ZERO » 


*. LABEL .* 


*, ,* 


* * 


*. .* 


*. .* 


***************** 


*. .* X 


* YES 




* NO ***** 

*ND * 

..........X. * Bl* 






* * 
* 


SKIP12 X 


X 


X 


**E3******* 


*****E4********4t* 


*****E5**«******* 


* * 


* * 


* * 


* SET FIRST * 


* GET ADDRESS * 


* SET UP TO * 


* TIME BIT ON * 


* OF NEXT * 


* ISSUE MESSAGE * 


* IN SWBYTE * 


* EXTENT * 


♦ 42061 * 



*********** 



*****P3********** 

* CHECK FOR » 
*EXPIRATION DATE* 

* IN DASD LABEL * 

* INFO USING * 

* SYSOC MACRO * 
***************** 



***************** 



***************** 



****P5********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



**** I 




* * . 




* G3 *.X. 




* * . 


***** 


**** 


*ND * 


VOLSETUP X 


* E2* 


*****e3*** ******* 


* * 


* * 


* 


* MOVE LOGICAL * 




* UNIT TO CCB *X.. 





***************** 



*****H3********** 

* SET UP * 

* SEEK ADDRESS * 

* TO GET * 

* VOLUME LABEL * 

* * 
***************** 



*****J3*** ******* 

* INSERT * 

* RECORD NUMBER * 

* X»03« IN * 

* SEEK ADDRESS * 

* * 
***************** 



.* DEVICE *. NU 
. UNASSIGNED .*... 
*0R IGNORED.* 



**** 

* * 

* H4 * 

* * 
**** 



**J4******* 

* TURN ON * 
OPEN IGNORE 

BIT IN 
OTF TABLE 

* * 
*********** 



****K4********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 

'c************** 



ABOVEFE 

*****j5********** 

* SET UP TO * 

* I SSUE * 

* MESSAGE * 

* 42831 * 

* * 
***************** 



****K5*4c******* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 
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***** 

*NC * 

* D5* 



.* EXTENT *. NO 
♦.SERIAL NUMBER.*... 
*. OMITTED .* 



* El *-X 



**** 
SKIP16 X 

*****E1 ********** 

* SET UP SEARCH * 

* ADDRESS WITH * 

* POINTER TO * 

* FORMAT 4 * 

* LABEL * 
***************** 



*****P1 ********** 

* * 

* SET UP TO * 

* ISSUE MESSAGE * 

* 42041 * 

* * 
***************** 



.* WRONG *. 

VOLUME 

*. MOUNTED .* 



*****C 2********** 

* SET UP TO * 

* ISSUE MESSAGE * 

* 4255A * 

* * 
***************** 



*****[) 2********** 

* PUT CORRECT * 

* SERIAL * 

* NUMBER IN * 

* VOLUME LABEL * 

* * 
***************** 



*****£ 2***** ***** 
♦MSGRTN NO* 

*_*_*_ *_ *_ *_ *_ *_ * 

* FETCH * 

* $$B0MSG1 * 

* * 
***************** 



****** t********** 



*****C3********** 

* * 
*GET CCW TO READ* 
♦COUNT {MULTIPLE* 

* TRACK) * 

* * 
***************** 



*****03 ********** 

* MOVE FILE ID * 

* FROM LABEL * 

* INFORMATION * 

* TO KEY FIELD * 

* * 
***************** 



*****E3********** 

* SET UP TO * 

* ISSUE MESSAGE * 

* 420II * 

* * 
***************** 



*_*_*_*_*_*_*_*_* 



***************** 



**A4******* 

SET MESSAGE 

ISSUED 

SWITCH 

* * 

*********** 



*****B4********* 

*MSGRTN NO 

*_*_*_*_*_*_*_*_ 

* FETCH 

* $$BODSMW 
* 
**************** 

**** 



**♦* 
MUVE X 

*****C4********** 

* * 

* GET FIRST * 

* FORMAT 1 * 

* EXTENT TYPE ♦ 

* * 
***************** 



****A5********* 

* 4$B0HTV1 * 

* MESSAGE * 

* ROUTINE * 
*************** 



*****Bf>* ********* 

* * 

* SAVE NUMBER * 

* OF CALLING * 

* PHASE * 

* * 
***************** 



*****C5********** 



***************** 



****D5********* 

* SVC 2 * 

* FETCH MSG * 

* WRITER * 
*********** **** 



****F3********* 

* *$B0RTV1 

* INPUT/OUTPUT 

* ROUTINE 
*************** 



*_*_*_*_*_*_*_*_* 



***************** 



****H2********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



.* VTOC 
LIMITS 
*. EXCEEDED 



DATA 

SECURED 

FILE 



K3 *. 

.* WAS * 

DATA 

SECURITY 

. MESSAGE 

*ISSUED.* 



****J4********* 

♦ RETURN * 

♦ VIA LINK * 

♦ REGISTER * 
*************** 



***************** 



***H5************ 



***************** 



.* RECORD * 
.FOUND OR ENU 
*. OF CYL .* 



*. 



****K5 ********* 

* RETURN VIA * 

* LINK REG+8 * 

* * 
*************** 



* NO 



**** 
« * 

* A4 * 

* * 
**** 
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****♦ 

*ND * 
* C4* 



«#« ♦ *B 3 * ** ***** ** 

* * 

* GET FIRST * 

* FORMAT 1 * 

* EXTENT TYPE * 
« * 

dints ******** **Ai**** 



* GET ADDR OF * 

* FIRST EXTENT *X 

* CARD * 

* * 



4e:4< 4c :t:«(;.2*** ******* 

* * 

* GET ADDR * 

* OF FIRST * 

* EXTENT CARD * 

* * 

«4c****** ********* 



NO .* MASTER 
...*. INDEX 
*. PRESENT 



LOWER *. NO 
LIMITS .*.., 

EQUAL .* 



««:4c«4cF2********** 

* * 

* ACCESS NEXT * 

* EXTENT * 

* CARD * 

* * 

;tC 3(C4:4C ******** ***** 



UPPER *. f 
LIMITS .*..X, 

EQUAL .* 



***#*H2*** ******* 

* ACCESS NEXT * 

* EXTENT * 

* CARD * 

* * 

4c 4:******** ******* 



C0MP2 

.* 
*. 



it(«*4c*E3********** 



4i»**** *********** 



3«(*4e ************** 



ALL 
EXTENTS 

CHECKED 



.* ALL *. 

EXTENTS 

♦.PROCESSED.* 



* SET UP TO * 

* ISSUE MESSAGE * 

* 42431 * 

* * 

«4c**** *********** 



«***H3********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
4c4c 4c ************ 



***************** 



*****G4********** 

* GET NUMBER * 

* OF EXTENTS * 

* FROM FORMAT 1 * 

* LABEL * 

* * 
***************** 



*****!-{ 4********** 

* * 

* GET ADDR * 

* OF FIRST * 

* EXTENT * 

* * 
***************** 



****J4********* 

* SVC 2 * 

* FETCH * 

* $$B0RTV2 * 
*************** 
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* * 

* *$B0RTV2 * 

* * 
*************** 



BEGIN 

*****B1 ********** 

* RELOCATE * 

* CC8 * 

* AND * 

* CCW'S * 

* * 

***************** 



*****C1 ********** 

* SAVE CONTENTS * 

* OF REGISTER * 

* 5 FOP * 

* $$BORTVI * 



********* 



******* 



.* ENTRY *. 
.*FROM OTHER 
THAN 

*.$$B0RTV1 . 



**D2******* 

* TURN OFF * 
* RETURN SW * 

IN SYSTEM * 
♦COMMUNICATION* 

* REGION * 
*********** 



****E 2* ******** 

* EXIT VIA * 

* RETRNREG * 

* * 
********* ****** 



**** 

* * 

* B3 * 

* * 
**** 



SKIP24A X 

*****B3********** 

* GET * 

* EXTENT * 

* SEQUENCE * 

* NUMBER * 

* * 
***************** 



*****C3* ********* 

* GET DSPLT * 

* OF DSKXTN * 

* TABLE FROM * 

* START OF DTF * 

* TABLE * 
***************** 



*****D3 ********** 

* MULTIPLY * 

* DISPLACEMENT * 

* BY 4 TO GET * 

* LENGTH OF DTF * 

* TABLE * 
***************** 



*****E 3 ********** 

* ADD START * 

* ADDR OF DTF * 

* TBL TO TBL * 
*T0 GET START OF* 

* DSKXTN TABLE * 
***************** 



*****P3********** 

* MULTIPLY * 

* EXTENT SEQ * 

* BY 4, ADD * 

* RESULT TO * 
*START OF TABLE * 
***************** 



.* FIRST *. 
YES .*PRIME DATA *. 
...*. EXTENT BIT . 



SEQUENCE 
NUMBER 
. HIGH 



SKIP24B 

*****jl********** 

* c;avf pyTEMT * 

* SEQUENCE * 

* NUMBER AND * 

* EXTENT LOWER * 

* LIMIT * 
***************** 



**K1******* 

* SET * 

FIRST PRIME 

DATA EXTENT 



*****H 2*** ******* 

* SET UP TO * 

* ISSUE * 

* MESSAGE *X 

* 42 541 * 

* * 
***************** 



****j2********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



*****J3********** 

* ^THRF * 

* LOGICAL * 

* UNIT AND CELL * 

* NUMBER IN * 

* DSKXTN TABLE * 
***************** 



SKIP28 X 

*****g4********** 

* POINT TO * 

* NEXT EXTENT * 

* IN DASD * 

* LABEL INFO * 

* RECORD * 
***************** 



*****C4********** 

* SUBTRACT * 

* ONE FROM * 

* NUMBER OF * 

* EXTENTS * 

* f 
♦******♦*♦*♦♦**** 



.* END *• 


NO 


*. OF EXTENTS .* 




* , ,* 




*• .* 




*, ,* 


X 


* YES 


**** 


**** 


* ^ 


* * , 


* EL * 


* E4 *.X. 


* H 


* * 


**** 


**** X 




SKIP32 .*. 




E4 *. 




.* *. 




.* FIRST *. 


NO 


*. TIME SWITCH .* 




*. ON .* 




*. .* 




*. .* 


X 


* YES 


***** 




*NG * 




* HL* 




* * 




* 




SKIP4 


X 




**F4******* 




* TURN * 




* FIRST TIME * 




* SWITCH * 




* OFF * 





*********** 



*****G3 ********** 


G4 * 


* SUBTRACT 4 * 


.* IS 


*FROM RESULTING * 


.* THIS 


* ADDR OF * 


*. FIRST 


* PREVIOUS * 


*, VOLUME 


* CALCULATION * 


*. 


***************** 


*, .* 



.♦POINTER*. 
.*T0 F0RMAT2 *. NO 
*, LABEL .*.. 
*. PRESENT .* 



*** ** J4********** 

* «;ave first * 

* LOGICAL UNIT * 

* AND CELL * 

* NUMBER * 

* * 
***************** 



ERROR 

*****H5 ********** 

* SET UP * 

* ISSUE * 

* MESSAGE * 

* 42701 * 

* * 
***************** 



****J5 ********* 

* SVC 2 * 

* FETCH * 

* $$BOMSGI * 
*************** 



*********** 



K3 *. 




.* DASD *. 




FILE PROTECT* 


YES 


FEATURE 


*. . . . 


*. SPEC .* 




*. ,* 




*. ,* 


X 


* NO 


***** 




*NG * 




* F5* 


X 


* * 


**** 


* 


* * 




* 84 * 




* * 




**** 





***** 
*NG * 
* Bl* 
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***** 

*NF * 
* J4* 



**** 

* * 

* B3 * 

* * 
**** 



*♦** 

* * 

* B5 * 

* * 
***♦ 



«««4c«Bl ********** 

* GET SEARCH * 

* ADDRESS * 

* (CCHHR) FOR * 
*FORMAT 2 LABEL * 

* * 

«*«**«*******:([«* 4: 



*4c***Cl ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 42021 * 

* * 
***************** 



* GET * 

* FORMAT 2 * 

* LABEL * 
*4c *************** 



* SET UP TO * 

* FETCH * 

* $$B0IS07 * 

* * 

«*«4c«<l*3tC ********* 



C3 *. 
.* DASD *, 
.FILE PROTECT*. NO 
*. FEATURE .*... 
*. SPEC. .* 



.* FORMAT 
*. 2 LABEL 
*. 



*«««*QX««*«4'*««** 

* GET MASTER * 

* AND CYLINDER * 

* INDEX LOWER * 

* LIMITS * 

* * 

#* ************* *«: 



**»* 

*NF * 

* E4 *.X 



**** 
SKIP40 X 

:tc« «* :«(H 1 #«'('«* ^^^ "^ * * 

* * 

* GET ADDRESS * 

* OF NEXT * 

* EXTENT * 

* * 

:tc«:tc4:«:(c***:(e*4c***** 



* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 

« ;ie ;{( 4c* «#«**« *4 « 4c 



. * 



**D3******* 

* TURN OFF * 

FILE 
PROTECT 
SWITCH 

* * 
4e****«***** 



^^^i^:^E2* ******* '^* 

* RESTORE * 

* FIRST LOGICAL * 

* UNIT AND * 

* ADDRESS OF * 

* FIRST EXTENT * 
***************** 



*****P3********** 

* STORE FIRST * 

* LOGICAL UNIT * 

* AND NUMBER * 

* FIRST EXTENT * 

* * 

«««3ic4l************ 



****G3********* 

* SVC 2 * 

* FETCH * 

* $$BOIS07 * 
********* «**«4t* 



« sjc **C4*=«' **=<'*** * 

* SVC 2 * 

* FETCH * 

* $$B0IS07 * 
«<(*«*******«*** 



«4!g54c****** 

* TURN ON * 
*RETURN SWITCH* 

* IN SYSTEM * 
♦COMMUNICATION* 

* REGION * 

4c********** 



4c****C5*******«** 

* RESTORE * 

* RETURN * 

* ADDRESS TO * 

* $$B0RTV1 * 

* * 

4c******4:********* 



4:***05 ********* 

* SVC 2 * 

* FETCH * 

* $$B0RTV1 * 
4: jf***** ******** 



**** 

* * 

* B3 * 

* * 

♦*♦* 



.♦ IS *. 
.* LOGICAL *. YES 
*. UNIT THE .*... 
♦. SAME .* 



***** 
*NF * 
* KB* 



4e4c***F5********** 

* SET NUMBER * 

* OF EXTENTS * 

* EQUAL TO * 

* ONE * 

* * 
4c**************** 



4c****G5 ********** 

* MOVE EXTENT * 

* INFO FROM * 

* FORMAT LABEL * 

* TO DASD LABEL * 

* INFO RECORD * 
******«4t********* 



4e*H5******* 

* TURN ON * 
♦RETURN SWITCH* 

* IN SYSTEM * 
♦COMMUNICATION* 

* REGION * 

4c********** 



4c**** J5********** 

* INITIALIZE * 

* RETRNREG * 

* WITH ADDRESS * 

* OF SKIP28 * 

* * 
***4c4t************ 



****K5 4c 4<4t ***** 4e 

* SVC 2 * 

* FETCH * 

* $$BOFLPT * 
*************** 
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Label 



Phase 



Location 



Label 



Phase 



Location 



ABDVEFE 


$$B0RTV1 


NCJ5 


ABTMSG 


$$BOIS02 


LCH4 


ABTMSG 


$$B0IS02 


LDG3 


ADDINCR 


$$B0IS09 


MHH4 


ADOLOOP 


$$B0IS09 


MHD4 


ADDROUT 


$$B0IS09 


MHB4 


ADDUPT 


$$B0IS07 


MCBl 


AODUPT 


$$BCISOA 


NBB3 


ADINCR 


IS. LOAD 


DHKl 


ADLOOP 


IS. LOAD 


DBC5 


ADLOOP 


IS. LOAD 


DDF2 


ADLOOP 


IS. LOAD 


DHGl 


ADUPDI 


IS. LOAD 


DDE2 


ADUPDT 


IS. LOAD 


DFD3 


AOUPDT 


IS. LOAD 


OHFI 


AROUND 


$$BODAIN 


BHC3 


AROUND 


$$B0DAI1 


BLC4 


ASH 


IS. LOAD 


DBGl 


ASMC 


IS. LOAD 


DFB4 


ASML 


IS. LOAD 


DFC4 


ASMS 


IS. LOAD 


DFB5 


BADASSIN 


$$BOOAIN 


BGC5 


BEGIN 


$$B0RTV1 


NCBl 


BEGIN 


$$B0RTV2 


NFBl 


BELOWFE 


$$B0DAIN 


BGC3 


BLDER 


IS.RETRVE 


GLBl 


BLDER 


IS.RETRVE 


GQBl 


BLDER 


IS.ADDRTR 


JKBl 


BLDER 


IS.ADDRTR 


JPBl 


BLKREAD 


IS.RETRVE 


GJKl 


BMPRCD 


IS. LOAD 


DAG2 


BUILDER 


$$BINDEX 


FBC3 


BUILDl 


$$BINDEX 


FAH3 


BUILDl 


$$BOIS08 


MDF4 


BUILD2 


$$BINDEX 


FAJ3 


BUILD2 


$$B0IS08 


MDJ5 


BUMP 


$$BINDEX 


FAK3 


BUMPl 


$$B0IS08 


MDK3 


BYPASSTR 


$$B0DAU1 


CKJl 


BYTECL 


is. LOAD 


DAC5 


CALC 


$$B0IS09 


MGB4 


CALLMSG 


$$B0DACL 


CMC5 


CCWBLD 


IS. LOAD 


DEK2 


CFVRFX 


$$B0DA02 


CBEl 


CHAINED 


$$BINDEX 


FAB5 


CHCK 


$$B0DA02 


CDE5 


CHCKFl 


$$B0IS06 


LNE4 


CHCK ST 


$$B0IS10 


MKB2 


CHECK 


$$B0DA02 


CBDl 


C HK END 


IS. LOAD 


DHE4 


CHKSTAT 


$$B0IS09 


MGB5 


CHKUPLIM 


$$B0IS10 


MJF4 


CHKXTNT 


$$B0IS10 


MJF3 


CICHNW 


IS. LOAD 


DCJ2 


CISZOK 


IS. LOAD 


DEB2 


CKFLD 


IS. LOAD 


DBF5 


CKLST 


$$B0DA01 


BQKl 


CKLSTK 


IS. LOAD 


DED4 


CKNRF 


$$B0DA02 


CAB4 



CKNXT 


IS. LOAD 


DJA2 


CKOVLP 


$$B00A01 


BPG2 


CK0\/LP1 


$$B0DA01 


BQbl 


CKP02321 


$$B0IS10 


MJH3 


CKsrop 


$$B0DA02 


CCBl 


CKSUSU 


$$B0DAI1 


BLF5 


CKUNir 


$$B0DA01 


BPD2 


CKvroc 


$$B0DA01 


BPB2 


CKXT 


$$B0DA01 


BQJ2 


CKXFNT 


$$B0DAI1 


BLC5 


CLARCELL 


$$B0RTV1 


NCD3 


CLCFRS 


$$B0DA01 


BNDl 


CLEAR 


$$B0DAIN 


BHF4 


CLEAR 


$$B0DAI1 


BKF5 


CLGSEA 


$$BCISOA 


NABl 


CLOSEDA 


$$BODACL 


CMBl 


CLOSERR 


$$B0IS07 


MBB2 


CMCHNw 


IS. LOAD 


DDB4 


CMDECR 


IS. LOAD 


DBE5 


CMOJWk 


IS. LOAD 


DDBl 


CMINrtR 


IS. LOAD 


DDB3 


CHKEV 


IS.RETRVE 


GGB3 


CMKEY 


IS.RETRVE 


GMCl 


CMNLOP 


IS. LOAD 


DDDl 


CMTBLD 


$$B0IS07 


MAB5 


CMTBLD4 


$$B0IS07 


MBB3 


CMUPUT 


IS. LOAD 


DFB2 


CMllB 


IS. LOAD 


DEE2 


CNTXTNT 


$$B0DAI1 


BLBl 


COMMON 


IS.RETRVE 


GGF5 


COMMON 


IS.RETRVE 


GME3 


COMMON 


IS.RETRVE 


GPFl 


COMMON 


IS.ADDRTR 


JJAl 


COMMON! 


IS.ADDRTR 


JMHl 


COMP 


$$B0DA02 


CAD4 


COMPAR 


$$B0DA03 


CEHl 


COMPARE 


$$BINDEX 


FAG3 


COMPARE 


IS.RETRVE 


GJG3 


COMPARE 


IS.RETRVE 


GPHl 


COMPARE 


IS.ADDRTR 


JMD4 


COMPKEY 


$$B0IS10 


MKG2 


COMPNXT 


*$BODAIN 


BHD3 


COMPl 


$$B0RTV1 


NEJ2 


C0MP2 


$$B0RTV1 


NED3 


CONriN 


IS. LOAD 


DBAl 


CONTINUE 


$$B0IS08 


MDHl 


CREATE 


IS. LOAD 


DEFl 


CREATE 


$$B0IS06 


LMBl 


CRETF3 


$$B0DA04 


CHB2 


CYLHI 


IS. LOAD 


DAH4 


OASDCELL 


$$B0IS09 


MFEl 


DASDCELL 


$$B0IS10 


MJC2 


DECCYL 


IS. LOAD 


DEG4 


DECFLD 


IS. LOAD 


DBG5 


DECMST 


IS. LOAD 


DEH4 


OECREM 


$$B0IS09 


MGA4 


DECREMNT 


$$BINDEX 


FAF4 


DECTRK 


IS. LOAD 


DEF4 


DELETE 


$$B0DA01 


BPB5 


DISK 


$$BODACL 


CPB4 
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Label 

DOIO 
uu i I 

DUMSTRK 

ENDLBL 

ERROR 

ERROR 

ERRTEST 

EXCP 

EXCP 

EXCP 

EXCPROUT 

EXCPROUT 

EXCPROUT 

EXCPROUT 

EXCPRT 

EXCPRT 

EXCPRT 

EXCPRT 

EXCPRT 

EXCPRT 

EXCPRT 

EXCPRT 

EXCPRT 

EXCPRT 

EXCPWAIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXITOUT 

EXITOUT 

EXITOUT 

EXITOUT 

EXITRT 

EXITRT 

EXIT2 

EXIT2 

EXIT3 

EXIT3 

EXPDDSF 

EXTEND 

EXTEST 

EXWT 

FETCH 

FETCH 

FETCH 

FILEADDR 

FILEMARK 

FILEPRT 

FILEPRT2 

FINDFl 

FINDFI 

FINDNXT 

FINDNXT 

FINDNXT 

FINXNT 

FIRST 

FLEPRTCT 

FLEPRTCT 

FNDNXT 

FNDOPN 

FNSHFl 

FOUNDOF 



Phase 


Location 


$$B0IS09 


MFH3 


4>*Bui SOv 


p'iFC4 


$$BINDEX 


FAF3 


$$BODACL 


CNEI 


$$B0RTV1 


NEG3 


$$B0RTV2 


NFH5 


$$BINDEX 


FBG4 


IS. LOAD 


DBF3 


IS. LOAD 


DCB5 


IS.LOAD 


DJb4 


IS.RETRVE 


GLB5 


IS.RETRVE 


GRB2 


IS.ADDRTR 


JKB5 


IS.ADDRTR 


JQB2 


$$BODAI I 


BMF4 


$$B0DA01 


BPG3 


$$B0DA02 


CDfc3 


$$B0DA03 


CFH3 


$$B0DA04 


CJBl 


$$BOIS03 


LFB4 


$$B0IS06 


LPB4 


$$B0IS07 


MCF5 


$$BCISOA 


NBG4 


$$B0RTV1 


NDG5 


$$BINDEX 


FBC4 


IS.RETRVE 


GHG2 


IS.RETRVE 


GNB2 


IS.ADDRTR 


JJG3 


IS.ADDRTR 


JLB4 


$$B0IS09 


MGK5 


IS.RETRVE 


GHK2 


IS.RETRVE 


GNE2 


IS.ADDRTR 


JJK3 


IS.ADDRTR 


JLfc4 


$$B0DAI1 


BMBl 


$$B0DA04 


CHD5 


$$BOIS09 


MFE4 


$$BOISIO 


MKB5 


$$B0IS09 


MFG5 


$$B0IS10 


MKD4 


$$B0DA02 


CCF2 


IS. LOAD 


DEA4 


$$B0RTV1 


NEDl 


$$BINDEX 


FAKI 


$$B0DA01 


BQD4 


$$B0DA02 


CAF4 


IS. LOAD 


DGK5 


$$BODACL 


CMC4 


$$BODACL 


CNF5 


$$B0IS07 


MBC5 


$iB0IS07 


MBt5 


$$B0DAI1 


BKE4 


$$B0DAU1 


CKFl 


IS.RETRVE 


GJBl 


IS.RETRVE 


GNB5 


IS.ADDRTR 


JLC2 


$$B0DAI1 


BLB5 


$$BINDEX 


FAE2 


$$BODAII 


BMG3 


$$B0DA04 


CJG2 


$$B0DAU1 


CLBl 


$$B0DA03 


CFC4 


$$B0DA04 


CGF3 


IS.RETRVE 


GKB4 



Label 

FOUNDGF 

FuuimDuF 

FPDRTNI 

FRDLXT 

FRE£TR< 

FREETRK 

FRhfcXIT 

FREEXIT 

FRhtXlTl 

FREEXITl 

FTCHNSG 

FTCHMSG 

FTCHMSG 

FuLLTRK 

GETADK 

GETFP 

GETFP 

GETID 

GEFID 

GfcTID 

GETLAB 

GEFH 

GETHUfsi 

GETNION 

GETMORE 

GETOPENJ 

GETPTK 

GETPJB 

GETRPT 

GOTDEXCP 

GOTUEXCP 

GOTOEXCP 

HLADuPDT 

IDMVBP 

IDMVBP 

IJHAaSHF 

IJHAA12 

IJHAA13 

IJHAA14 

IJHAA16 

IJHAAi? 

IJHAA20 

IJHAA23 

IJHAA23 

IJHAA25 

IJHAA2!> 

IJHAA26 

IJHAA26 

IJHAA26 

IJHAA26A 

IJHAA26A 

UNA A 27 

IJHAA27 

IJHAA28 

IJHAA29 

IJHAA33 

IJHAA34 

IJHAA34 

IJHAA35 

IJHAA35 

IJHAA36 

IJHAA37 

IJHAA37 



Phase 

IS.RETRVE 

i S. aDDkTR 

$$B0IS05 

$$BODAUI 

IS.RETRVE 

IS.ADDRTR 

IS.RETRVE 

IS.ADDRTR 

IS.RETRVE 

IS.ADDRTR 

$$B0DA03 

$$B0DA03 

$$B0DA04 

$$BU1SI0 

IS. LOAD 

$$bODAII 

$$B0DA04 

IS.RETRVE 

IS.RETRVE 

IS.ADDRTR 

$$B00A01 

$$B0IS09 

$$B00AI1 

$$B00AD4 

$$BINDEX 

$$BDOAIN 

$$B0DA02 

$$B0IS04 

IS. LOAD 

IS.RETRVE 

IS.RETRVE 

IS.ADDRTR 

IS. LOAD 

IS.LUAD 
IS. LOAD 
IS. ADO 
IS. ADD 
IS. ADD 
IS. ADD 
IS. ADD 
IS. ADO 
IS. ADD 
IS. ADD 
IS.ADDRTR 
IS. ADD 
IS.ADDRTR 
IS. ADD 
IS.ADDRTR 
IS.ADDRTR 
IS. ADD 
IS.ADDRTR 
IS. ADD 
IS.ADDRTR 
IS. ADD 
IS. ADD 
IS. ADD 
IS. ADD 
IS.ADDRTR 
IS. ADD 
IS.ADDRTR 
IS. ADD 
IS. ADD 
IS.ADDRTR 



Location 

GPD4 
JhuH 
LHA3 
CLAl 
GQE4 
JRE4 
GQB4 
JPb4 
GQD4 
JPD4 
CEE2 
CFF2 
CJF5 
MKA4 

DGF3 
6MD2 
CHG4 
GGE5 
GMA3 
JHE5 
BNC3 
MHBl 
BMFl 
CHJ5 
FAD3 
bGD4 
CDEl 
LGB5 
DEEl 
GHG4 
GNH4 
JLKl 

DBB4 

DBH2 
DDE5 
EKF5 
EEG2 
ELC5 
ELF5 
ELF3 
ELE3 
EJC2 
EAE3 
KCA2 
EAG3 
KCC2 
EBA2 
KCA5 
KDA2 
EAB5 
KCF3 
EBAl 
KCE4 
EME4 
EMJ4 
EKA4 
EKB4 
KEJl 
ECG5 
KEF3 
ECA3 
ECH4 
KEG2 
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Label 

IJHA^38 

IJHAA38 

IJHAA39 

IJHAA39 

IJHAA39 

1JHAA39 

IJHAA40 

IJHAA40 

IJHAA41 

IJHAA42 

IJHAA43 

IJHAA44 

IJHAA43 

IJHABEOF 

IJHAB29 

IJHACACH 

IJHACADX 

IJHACBKI 

IJHACBMP 

IJHACOBK 

IJHACDBK 

IJHACDOF 

IJHACDTR 

IJHACDUP 

IJHACDUP 

IJHACDVP 

IJHACEOF 

IJHACFLL 

IJHACGTO 

IJHACGTO 

IJHACINX 

IJHACITF 

IJHACITI 

IJHACITX 

IJHACLOP 

IJHACLOP 

IJHACLTI 

IJHACPAD 

IJHACPDl 

IJHACTET 

TJHACTET 

IJHACTET 

IJHACTET 

IJHACUOV 

I JHACUPD 

IJHACUPP 

IJHAC29 

IJHADEC 

IJHADEC 

IJHAD29 

IJHAEBEG 

IJHAEBFL 

IJHAEBFL 

IJHAEFXD 

IJHAEFXD 

IJHAEFXK 

IJHAEFXK 

IJHAEMCI 

IJHAEMCl 

IJHAENT 

IJHAETFL 

IJHAETFL 

IJHAE29 

IJHAF29 

IJHAG29 

IJHAHEAD 



Phase 


Location 


IS. ADD 


ECDl 


IS. ADORTR 


KDh5 


IS. ADD 


ECF2 


IS. ADD 


EChl 


IS.ADDRTR 


KEBl 


IS.ADDRTR 


KEC3 


IS. ADD 


ECB2 


IS.ADDRTR 


KEAl 


IS. ADD 


EJF5 


IS. ADD 


ELJ2 


IS. ADD 


EKH5 


IS. ADD 


EKGb 


IS. ADD 


EKJb 


IS. ADD 


EHD3 


IS. ADD 


EMK2 


IS. ADD 


ELD3 


IS. ADD 


EJD4 


IS. ADD 


EKB3 


IS. ADD 


EMC5 


IS. ADD 


EMA4 


IS. ADD 


EMbI 


IS. ADD 


ELC4 


IS. ADD 


EKB2 


IS. ADD 


EBD2 


IS.ADDRTR 


KDBl 


IS. ADD 


EJG4 


IS. ADD 


ELB3 


IS. ADD 


EEA2 


IS. ADD 


EAK3 


IS.ADDRTR 


KCF2 


IS. ADD 


EEEl 


IS. ADD 


ELEl 


IS. ADD 


ELFl 


IS. ADD 


ELD2 


IS. ADD 


EMB4 


IS. ADD 


EMDl 


IS. ADD 


EJB5 


IS. ADD 


EMF4 


IS. ADD 


EKG2 


IS.ADD 


EAH5 


IS. ADD 


EBJ2 


IS.ADDRTR 


KCC4 


IS.ADDRTR 


KDJl 


IS.ADD 


ELB5 


IS.ADD 


ELB4 


IS.ADD 


EJJ5 


IS.ADD 


EMFl 


IS.ADD 


ECJ2 


IS.ADDRTR 


KEFI 


IS.ADD 


EMCl 


IS.ADD 


EEC3 


IS.ADD 


EBC4 


IS.ADDRTR 


KDC3 


IS.ADD 


EBD5 


IS.ADDRTR 


KDG4 


IS.ADD 


EDHl 


IS.ADDRTR 


KEC5 


IS.ADDRTR 


KDE5 


IS.ADD 


ECAI 


IS.ADD 


EKB3 


IS.ADD 


EDBl 


IS.ADDRTR 


KED4 


IS.ADD 


EMA3 


IS.ADD 


EMB2 


IS.ADD 


EMC2 


IS.ADD 


EDE2 



Label 

IJHAribAD 

1JHAH29 

IJHAIODP 

iJHAIGPH 

iJHAJ29 

IJHAlMDrtiO 

IJHAiSlEDT 

IJHANEDT 

IJHANEDF 

IJHANOWD 

IJHAUBtC 

IJHAUBEG 

IJHAUDNl 

IJHAOLU^ 

JJHAUMCG 

IJHAOMTU 

IJHAGiMTU 

IJHAONGU 

IJHAGRFL 

IJHAUSQU 

IJHAPRET 

IJHAPRMl 

IJHAPRN2 

IJHAPRH3 

IJHAPkM4 

IJhAPKM4 

IJHAPRM3 

IJHAPkMt> 

IJHAPRM6 

IJHAPRMb 

IJHAPRM7 

IJHAPRM7 

IJHAPRi^S 

IJHAPR!»48 

IJHAyUA 

IJHAQUA 

IJHATEST 

IJHATEST 

IJHAUNB 

iJHAJNB 

IJHAwlRKY 

IJHA^RNK 

IJHA^TNK 

IJHAwlTMK 

IJHCAAB 

IJHCBH98 

IJHCBH9B 

IJHCBLDl 

IJHCBLD2 

IJHCBUMP 

IJHCCw^S 

iJHCER 

IJHCERCA 

IJHCERRT 

IJHCEXCP 

IJHCE99 

IJHCE99 

IJHCHKIfSI 

iJHCHRFP 

IJHCINDX 

IJHCINIT 

IJHCLGUT 

IJHCLOPX 

IJHCLOPX 

IJHCLOPl 

IJHCMCAL 



Phase 


Location 


IS.ADDRTR 


KEG3 


IS.ADD 


EMF3 


IS.ADD 


ELBl 


IS.ADD 


ELB2 


IS.ADD 


ELH3 


IS.ADD 


EAF3 


IS.ADD 


EAJ5 


IS.ADDRTR 


KCD4 


IS.ADD 


EHG2 


IS.ADDRTR 


KCB2 


IS.ADDRTR 


KCBl 


IS.ADD 


EAKl 


IS.ADD 


EJB3 


IS.ADD 


EJBl 


IS.ADD 


EJB2 


IS.ADD 


EHJ4 


IS.ADD 


EJD3 


IS.ADD 


EGA2 


IS.ADD 


EGBl 


IS.ADD 


EHBl 


IS.ADD 


EMD2 


IS.ADD 


ENCl 


IS.ADD 


ENC2 


IS.ADD 


ENF2 


IS.ADD 


EAF4 


IS.ADDRTR 


KCJ2 


IS.ADD 


EBC2 


IS.ADDRTR 


KDAl 


IS.ADD 


EBB3 


IS.ADDRTR 


KCD5 


IS.ADD 


EAG4 


IS.ADDRTR 


KCK2 


IS.ADD 


EAG5 


IS.ADDRTR 


KCB4 


IS.ADD 


EBA4 


IS.ADDRTR 


KDA3 


IS.ADD 


ECH2 


IS.ADDRTR 


KEEl 


IS.ADD 


ECB4 


IS.ADDRTR 


KEA2 


IS.ADD 


EECl 


IS.ADD 


EEBl 


IS.ADD 


EAFl 


IS.ADDRTR 


KAH2 


IS.ADD 


EEGl 


IS.ADD 


EKHl 


IS.RETRVE 


FJFl 


IS.ADD 


EKBl 


IS.RETRVE 


FJBl 


IS.ADD 


EGF4 


IS.RETRVE 


HBA3 


IS.ADD 


EEG4 


IS.ADD 


EGB5 


IS.ADD 


EED4 


IS.ADD 


EHF5 


IS.ADD 


EKJl 


IS.RETRVE 


FJGl 


IS.ADD 


EEHl 


IS.ADD 


EGH3 


IS.ADD 


EGJ4 


IS.ADD 


EGE5 


IS.ADD 


EHC5 


IS.ADD 


EKCl 


IS.RETRVE 


FJCl 


IS.ADD 


EEE4 


IS.ADD 


EHB5 
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Label 

IJHCMOVE 

IJHCMOVE 

IJHCPLST 

IJHCRES 

IJHCREST 

IJHCREST 

IJHCRES2 

IJHCSTRE 

IJHCSTRE 

IJHCTICR 

IJHCTICR 

IJHCTRDX 

IJHCTSER 

IJHCTSER 

IJHCWAIT 

IJHCWATB 

IJHCWATB 

IJHCWATB 

IJHCWATB 

IJHCWATB 

IJHCWATB 

IJHCWATF 

IJHCWATF 

IJHCWATF 

IJHCWATF 

IJHCWATF 

IJHCWATF 

IJHCXCOR 

IJHCXCOR 

IJHCXCPH 

IJHCXCPH 

IJHCXWTH 

IJHCXWTH 

IJHECONT 

IJHECONT 

IJHECONT 

IJHECONT 

IJHELDR 

IJHENDFL 

IJHENOTE 

IJHERRA 

IJHERRA 

IJHESTLB 

IJHESTLB 

IJHESTLB 

IJHESTLB 

IJHEUSER 

IJHFREEB 

IJHFREEB 

IJHFREEB 

IJHGETOK 

IJHGETOK 

IJHIHRE2 

IJHMCLNO 

IJHMCMWR 

IJHMDADD 

IJ HMEREX 

IJHMEXCP 

IJHMEXMV 

IJHMEXWT 

IJHMFRST 

IJHMFXSS 

IJHMIDPB 

IJHMINCR 

IJHMIXDA 

IJHMLEAV 



Phase 


Location 


IS^ADD 


EHb4 


IS.RETRVE 


HAFI 


IS. ADD 


EEH4 


IS.ADD 


EFC2 


IS.ADD 


EHC4 


IS.RETRVE 


HAGl 


IS. ADD 


EFC3 


IS. ADD 


EKEl 


IS.RETRVE 


FJEl 


IS. ADD 


EKDl 


IS.RETRVE 


FJDl 


IS. ADD 


EGG4 


IS. ADD 


EHD4 


IS.RETRVE 


HAHl 


IS. ADD 


EEC4 


IS. ADD 


EAB2 


IS. ADD 


EACl 


IS.RETRVE 


FDD4 


IS.RETRVE 


FDFl 


IS.ADDRTR 


KAC2 


IS.ADDRTR 


KADI 


IS. ADD 


EABl 


IS.RETRVE 


FDb4 


IS.RETRVE 


FDC2 


IS.RETRVE 


FDDl 


IS.ADDRTR 


KAB2 


IS.ADDRTR 


KACI 


IS. ADD 


EEB4 


IS. ADD 


EGB4 


IS. ADD 


EGH5 


IS.RETRVE 


FHB5 


IS.RETRVE 


FEHl 


IS.RETRVE 


HAB3 


IS. ADD 


EAC2 


IS.RETRVE 


FDF5 


IS.RETRVE 


FDG4 


IS.ADDRTR 


KAD2 


IS. ADD 


EFHl 


IS. LOAD 


DLA3 


IS. ADD 


EAB3 


IS. ADD 


ECFl 


IS.ADDRTR 


KEA3 


IS.RETRVE 


GACl 


IS.RETRVE 


GAC2 


IS.ADDRTR 


JACl 


IS.ADDRTR 


JAC2 


IS. ADD 


EFJl 


IS.RETRVE 


FKBl 


IS.RETRVE 


FKC2 


IS.RETRVE 


FKDl 


IS.RETRVE 


GFGI 


IS.ADDRTR 


JFGl 


DAMOD 


ADK4 


IS. LOAD 


DLAl 


IS. LOAD 


DMB4 


IS.LOAO 


DKF3 


IS. LOAD 


DLG5 


IS. LOAD 


DMH2 


IS. LOAD 


DKA3 


IS. LOAD 


DLF3 


IS.LOAD 


DKGl 


IS. LOAD 


DLB3 


IS. LOAD 


DMB2 


IS. LOAD 


OMJl 


IS. LOAD 


0KF4 


IS. LOAD 


0LC5 



Label 



Phase 



Location 



IJHMM256 


IS. LOAD 


DKKl 


IJHMNDCK 


IS..LOAD 


DLKl 


IJHMiMUll^ 


15.LUAU 


DKE4 


IJHMNWTK 


IS. LOAD 


DKD5 


IJHMNXCL 


IS. LOAD 


DLB2 


IJHMNXPK 


IS. LOAD 


DLA2 


IJHMOKEQ 


IS.LOAD 


DKH2 


IJHHiiKFL 


IS. LOAD 


DKD3 


IJHMOKLD 


IS.LOAD 


DKJl 


IJHMPDTK 


IS.LOAD 


DLD2 


IJHMRCID 


IS.LOAD 


DMF3 


IJHMRD^R 


IS.LOAD 


DLC3 


IJHMRNBP 


IS.LOAD 


DMB3 


iJHMRSTR 


IS.LOAD 


DKF5 


IJHMRTRN 


IS.LOAD 


DLJ2 


IJHMRTRV 


IS.LOAD 


DLD4 


IJHMSHRD 


IS.LOAD 


DMC2 


IJHMSPNT 


IS.LOAD 


DLGl 


IJHMTINR 


IS.LOAD 


DMBl 


IJHMJNFL 


IS.LOAD 


DLH2 


iJHMJPDT 


IS.LOAD 


DMHI 


IJHMWAIT 


IS.LOAD 


0LG4 


IJHM^RIE 


IS.LOAD 


DLK5 


IJHMZAPP 


IS.LOAD 


DMK4 


IJHMIIOA 


IS.LOAD 


DKJ3 


IJHMlIDb 


IS.LOAD 


DKDl 


IJHRCERC 


IS.RETRVE 


FCD3 


IJHRCERC 


IS.ADDRTR 


JGD3 


IJHRECAL 


IS. ADD 


END3 


IJHREGOT 


IS.RETRVE 


FGHl 


IJHKEGOT 


IS.ADDRTR 


KBE4 


IJHRERRR 


IS.RETRVE 


FFF2 


IJHRERRR 


IS.ADDRTR 


KBE2 


IJHRbSCH 


IS.REtkVE 


FHF4 


IJHRESCO 


IS. ADD 


EEF3 


IJHRESCO 


IS.RETRVE 


FHG3 


iJHRfcSCU 


IS.ADDRTR 


KFG3 


IJHREXSL 


IS.RETRVE 


FCE4 


IJHREXSL 


IS.RETRVE 


FED3 


IJHREXSL 


IS.ADDRTR 


JGE4 


IJHRFND 


IS.RETRVE 


FGBi 


IJHRFND 


IS.ADDRTR 


KBA4 


IJHRNORM 


IS.RETRVE 


FEA4 


IJHRNORM 


IS.ADDRTR 


KBBl 


IJHROVFO 


IS.RETRVE 


FFB3 


IJHROVFO 


IS.ADDRTR 


KBB3 


IJHRPRNT 


IS.RETRVE 


FHFl 


IJHRPRNT 


IS.ADDRTR 


KFFI 


IJHRREAD 


IS.RETRVE 


FCEl 


IJHRREAD 


IS.ADDRTR 


JGEl 


IJHRRGOT 


IS.RETRVE 


FGFl 


IJHRSALT 


IS.RETRVE 


FCC5 


IJHRSALT 


IS.ADDRTR 


JGCb 


IJHRSHRD 


IS.RETRVE 


FFB5 


IJHRSHRD 


IS.ADDRTR 


KBB2 


iJHRSLPP 


IS.RETRVE 


FFFl 


IJHRSLPP 


IS.ADDRTR 


KBHl 


IJHRSLTT 


IS.RETRVE 


FEE4 


IJHRSLTT 


IS.ADDRTR 


KBCl 


IJHRSOTT 


IS.RETRVE 


FFD3 


IJHRSOTT 


IS.ADDRTR 


KBC3 


IJHRSRCH 


IS.RETRVE 


FC02 


IJHRSRCH 


IS.ADDRTR 


JGD2 


IJHRWRKA 


IS.RETRVE 


FJB2 


IJHRWRT 


IS.RETRVE 


FHEl 


IJHRWRT 


IS.ADDRTR 


KFEI 
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Label 


Phase 


Location 


IJHRS4RTB 


IS.RETRVE 


FHCl 


IJHRWRTB 


IS.RETRVE 


FHC2 


IJHRWkTB 


IS.ADDRTR 


KFCl 


IJHRWRTB 


IS.ADORTR 


KFC2 


IJHSADD 


IS.RETRVE 


HBC3 


TJHSADKY 


IS.RETRVE 


GDG5 


IJHSADKY 


IS.ADDRTP 


JDG!? 


IJHSBCKT 


IS.RETRVE 


GDt4 


IJHSBCKT 


IS.ADDRTR 


JDE4 


IJHSBHIN 


IS.RETRVE 


HAB2 


IJHSBHll 


IS.RETRVE 


&EB5 


IJHSBHll 


IS.ADDRTR 


JEB5 


IJHSBH12 


IS.RETRVE 


GEB4 


IJHSBH12 


IS.ADDRTR 


JEB4 


IJHSBH13 


IS.RETRVE 


GCBl 


IJHSBH13 


IS.RETRVE 


GED5 


IJHSBH13 


IS.ADDRTR 


JCBl 


IJHSBH13 


IS.ADDRTR 


JED5 


IJHSBH17 


IS.RETRVE 


GCCl 


IJHS8H17 


IS.ADDRTR 


JCCl 


IJHSBH18 


IS.RETRVE 


GFC3 


1JHSBH18 


IS.ADDRTR 


JFC3 


IJHSBH19 


IS.RETRVE 


GFC4 


IJHSBH19 


IS.ADDRTR 


JFC4 


IJHSBH29 


IS.RETRVE 


HAE5 


IJHSBH3 


IS.RETRVE 


GDC2 


IJHSBH3 


IS.ADDRTR 


JDC2 


IJHSBH30 


IS.RETRVE 


GEF4 


IJHSBH30 


IS.ADDRTR 


JEF4 


IJHSBH5 


IS.RETRVE 


GDBl 


IJHSBH5 


IS.RETRVE 


GKC3 


IJHSBH5 


IS.RETRVE 


GPG3 


IJHS5H5 


IS.ADDRTR 


JDBl 


IJHSBH5 


IS.ADORTR 


JNC3 


TJHSBH6 


IS.RETRVE 


GDDl 


IJHSBH6 


IS.RETRVE 


GKF3 


IJHSBH6 


IS.RETRVE 


GPH3 


IJHSBH6 


IS.ADDRTR 


JDDl 


IJHSBH6 


IS.ADDRTR 


JDGl 


IJHSBH6 


IS.ADDRTP 


JNF3 


IJHSBILD 


IS.RETRVE 


HBBl 


IJHSBLKO 


IS.RETRVE 


HAD5 


IJHSBLTI 


IS.RETRVE 


HBGl 


IJHSBLUT 


IS.RETRVE 


HBJl 


IJHSCHNG 


IS.RETRVE 


GCG2 


IJHSCNGl 


IS.RETRVE 


GCJ3 


IJHSC002 


IS.RETRVE 


GCJ4 


IJHSC002 


IS.ADDRTR 


JCJ4 


IJHSEOT 


IS.RETRVE 


HAE3 


IJHSEOTR 


IS.RETRVE 


GCA3 


IJHSEOTR 


IS.ADDRTR 


JCA3 


IJHSER2 


IS. ADD 


EEH3 


IJHSER2 


IS.RETRVE 


FGB5 


IJHSER2 


IS.RETRVE 


FGC4 


IJHSER2 


IS.RETRVE 


GAE3 


IJH$ER2 


IS.ADDRTR 


JAH3 


IJHSER2 


IS.ADDRTR 


KBG2 


IJHSER2H 


IS. ADD 


EFAl 


IJHSER21 


IS. ADD 


EEJ3 


IJHSER21 


IS.RETRVE 


FGC5 


IJH$ER21 


IS.RETRVE 


GAE4 


IJHSER21 


IS.ADDRTR 


JAH4 


IJHSER21 


IS.ADDRTR 


KBH2 


IJHSESTL 


IS.RETRVE 


GAEl 


IJHSESTL 


IS.ADDRTR 


JAEl 


IJHSEXl 


IS.RETRVE 


HAC4 



Label 


Phase 


Location 


IJHSufcT 


IS.RETRVE 


GBEl 


IJHSGET 


IS.ADDRTR 


JBEl 


IJHSbtTB 


IS.RETRVE 


GBCl 


IJHSbETd 


IS.RETRVE 


GBC2 


IJHSGETb 


IS.ADDRTR 


JBCl 


IJHSGETB 


IS.ADDRTR 


JBC2 


IJHbbETH 


IS.RETRVE 


GBH5 


IJHSGETH 


IS.ADDRTR 


JbH5 


IJHSGETI 


IS.RETRVE 


GBFl 


IJHSGtTl 


IS.ADDRTR 


JbFl 


IJHSGET2 


IS.RETRVE 


HAB5 


IJHSHERE 


IS.RETRVE 


HBC2 


IJHSINT 


IS.RETRVE 


hAG2 


IJHSKBKT 


IS.RETRVE 


FFCl 


IJHSK.ERR 


IS. ADD 


ENB3 


IJHSKEY 


IS.RETRVE 


GEd3 


iJHSKEY 


IS.ADDRTR 


JEB3 


IJHSMO^ 


IS.RETRVE 


HAK3 


iJHSMVLISi 


IS.RETRVE 


HBE3 


IJHSNEXT 


IS.RETRVE 


GE03 


IJHSNEXT 


IS.ADDRTR 


JED3 


IJHSfSiO 


IS.RETRVE 


GBJ3 


IJHSNO 


IS.ADDRTR 


JBJ3 


IJHSNOftT 


IS.RETRVE 


GBD4 


IJHSNUrtlT 


IS.ADDf^TR 


JBD4 


iJHSNXT 


IS.RETRVE 


HAF3 


IJHSUTR 


IS.RETRVE 


GEBl 


IJHSOTkl 


IS.^^ETRVE 


GEC2 


IJHSOTRl 


IS.ADDRTR 


JEC2 


IJHSOTST 


IS.RETRVE 


H6D3 


IJHSOVFL 


IS.RETRVE 


HBG4 


IJHSPUT 


IS.RETRVE 


GFEl 


IJHSPUI 


IS.ADDRTR 


JFEl 


iJHSPJTB 


IS.RETRVE 


GFCl 


IJHSPUTB 


IS.RETRVE 


GFC2 


IJHSPUTB 


IS.ADDRTR 


JFCl 


IJHSPUTB 


IS.ADDRTR 


JFC2 


IJriSPyT2 


IS.RETRVE 


HBB4 


IJHSREDO 


IS.RETRVE 


GBD3 


iJHSREDU 


IS.ADDRTR 


JBD3 


IJHSRETB 


IS.RETRVE 


GBE4 


IJHSRETB 


IS.ADDRTR 


JBE4 


IJHSWKAD 


IS.RETRVE 


HADl 


IJHSr^OR 


IS.RETRVE 


GBC4 


IJHS^UR 


IS.ADDRTR 


JBC4 


IJHS^ORK 


IS.RETRVE 


HA81 


IJHSIEOT 


IS.RETRVE 


GEFl 


iJHSlEOr 


IS.ADDRTR 


JEFl 


IJHS2E0T 


IS.RETRVE 


GCA4 


IJHS210P 


IS.RETRVE 


HBH4 


IJHWTFSK 


IS.RETRVE 


FDC3 


IJHXCOR 


IS. ADD 


EGC4 


IJIAEll 


DAMODV 


ANG2 


IJIAFG 


DAMODV 


ANG3 


IJIAFS 


DAMODV 


ANJl 


IJIAFT 


DAMOD 


AAA3 


IJIAFTA 


DAMODV 


ANJ2 


IJIAFT2 


DAMODV 


ANE3 


IJiAFX 


DAMODV 


ANK2 


IJIANT 


DAMODV 


AMC5 


IJIANTl 


DAMODV 


ANCl 


IJIANV 


DAMODV 


ANAS 


IJIANVL 


DAMODV 


AND4 


IJIARD 


DAMODV 


AMES 


IJIAwJR 


DAMODV 


ANB2 


IJIBLD 


DAMOD 


AJBl 
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Label 

IJICMC 
IJICTL 
IJICTLI 

IJIDIC 

IJIDUMY 

IJI0V2 

IJIDV3 

IJIEOF 

IJIEOFl 

IJIEOV 

IJIFGC 

IJ IFLG 

IJIFREE 

IJIFRM 

IJIFXL 

IJ IGCH 

IJ IGET 

IJIGFTI 

IJ IGNXT 

IJIGSKB 

IJIGSKBl 

IJIGSKE 

IJIGSKM 

IJIGTTT 

IJIJCK 

IJILADR 

IJILBK 

IJILCH 

IJILOAD 

IJIMXK 

IJINCD 

IJINCT 

IJINEF 

IJINFIT 

IJINID 

IJINRM 

IJINRTO 

IJIOVCH 

IJIOVH 

IJIOVP 

IJI0V2 

IJIPRI 

IJIPSI 

IJ IRDY 

IJIREAD 

IJIREAD 

IJIRNO 

IJIRON 

IJIRTER 

IJIRZO 

IJISAFIT 

IJISAFRD 

IJISAFT 

IJISANUL 

IJISASRO 

IJISBK 

IJISCMC 

IJISCTL 

IJISCTLl 

IJISCTLl 

IJISDOM 

IJISDV3 

IJISEOV 

IJISERF 

IJISFGC 

IJISFREE 



Phase 

DAMOO 

DAMOD 

DAMOO 

DAMOD 

DAMOD 

DAMOO 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOO 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMODV 

DAMOD 

DAMOD 

DAMOD 

DAMODV 

DAMODV 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMODV 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMOD 

DAMODV 

DAMOD 

DAMOD 

DAMOD 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMODV 

DAMOD 



Location 

AHFl 
AFBl 
AFC2 
AEC5 
ABF5 
AHE5 
AHH4 
AAA2 
ACHl 
ABG3 
AGJ2 
AJC3 
AFB2 
ABJ2 
AAHl 
BDD5 
BDBl 
BOFl 
BDJ3 
bDA3 
BDE3 
BDA2 
BDGl 
BDHl 
ADE2 
ACFl 
AHGl 
AAA5 
AGD4 
AAJl 
AHCl 
AEfc4 
ABB4 
AMA5 
ADCl 
AAF3 
ABF2 
BFbl 
BFE4 
AGB2 
AGD2 
AAB5 
AAB4 
AJD3 
ACEI 
BBE5 
AAH2 
AAb2 
ABG5 
AAC2 
AMH4 
AMB4 
AMA3 
AKJl 
AMB5 
AAE4 
BED3 
AFB4 
AFC4 
AFC5 
AKH3 
BFB3 
BAF2 
AME2 
BFH5 
AFB5 



Label 


Phase 


Location 


IJiSFRM 


DAMODV 


BAG3 


IJISGDL 


DAMODV 


AKH2 


IJISGS 


DAMODV 


ALE4 


iJISICL 


DAMODV 


BAG4 


IJISING 


DAMODV 


ALK3 


IJISJCK 


DAMODV 


BCBI 


IJISKIF 


DAMODV 


ALJ3 


IJISKIP 


DAMODV 


ALJ2 


IJISKIR 


DAMODV 


ALE3 


IJISKIl 


DAMODV 


ALD2 


IJISKS 


DAMODV 


ALA3 


IJISKSl 


DAMODV 


ALB3 


IJISKl 


DAMODV 


ALF3 


IJISLBK 


DAMODV 


BEE3 


IJISLOAD 


DAMODV 


BFJ4 


IJISMID 


DAMODV 


BBGl 


IJISNEF 


DAMODV 


BBAl 


IJISNF 


DAMODV 


ALHl 


IJISNIDI 


DAMODV 


B3B3 


IJISNL 


DAMODV 


AKB5 


IJISNRF 


DAMODV 


AMG2 


IJISNRM 


DAMODV 


AMG3 


IJiSNRNU 


DAMODV 


BDC2 


IJISNRTU 


DAMODV 


BAE3 


IJISOVP 


DAMODV 


BEBl 


IJiSOVl 


DAMODV 


BEJ2 


iJIS0V2 


DAMODV 


BFC3 


IJIS0V2 


DAMODV 


BFFl 


IJI$0V2S.6 


DAMODV 


BFD3 


IJISPh 


DAMODV 


AKF4 


IJISKFD 


DAMODV 


AKD4 


IJISKUN 


DAMODV 


AKC3 


IJiSRTEk 


DAMODV 


BCE4 


IJISSEDF 


DAMODV 


AKE2 


IJISSF 


DAMODV 


AKF5 


IJISSTQ 


DAMODV 


AKCl 


IJISSTRT 


DAMODV 


AKDl 


IJISSVCF 


DAMODV 


BFH3 


IJISSWL 


DAMODV 


AKKI 


iJISTDLl 


DAMODV 


ALF5 


IJISTDL2 


DAMODV 


ALG5 


IJISTI 


DAMODV 


AKA3 


IJiSTK 


DAMODV 


AKC5 


IJlSTKii 


DAMODV 


ALH2 


IJISTNR 


DAMODV 


BCG4 


IJISTO 


DAMOD 


AACl 


IJISTRT 


DAMOD 


AADl 


IJISTT 


DAMODV 


AKD5 


IJISU6RS 


DAMOD 


AAG4 


IJISJID 


DAMODV 


BBHI 


IJISVR 


DAMODV 


ALH4 


iJISVT 


DAMODV 


AKG5 


IJISVTI 


DAMODV 


AKJ5 


IJISVW 


DAMODV 


ALEl 


IJIS^C 


DAMODV 


ALBl 


iJlSK«EOF 


DAMODV 


AMF4 


IJISWLL 


DAMODV 


AMFl 


IJISWLR 


DAMODV 


AMEl 


IJISNND 


DAMOD 


AFF4 


IJIS^ND 


DAMODV 


AKK3 


IJISWND 


DAMODV 


AMGl 


IJISWND 


DAMODV 


ANK3 


IJISTRT 


DAMODV 


AKGl 


IJIS^TM 


DAMODV 


BABl 


IJISXTFD 


DAMODV 


BAB3 


IJISyiD 


DAMODV 


BBEl 
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Label 

IJISZER 

IJITIC 

IJITNR 

IJITOM 

IJITRHLD 

IJIkAFT 

IJIWFTR 

IJIWND 

IJIWND 

IJIWRI 

IJIWRU 

IJIWTM 

IJIXNF 

IJ IXTFD 

IJIYTD 

IJIZER 

IJRRGOT 

IJUNBLK 

ILLEGID 

ILLEGID 

ILLEGID 

INACTC 

INCCNT 

INCFXO 

INCMWR 

INCR 

INCREMNT 

INCRFD 

INCRKEY 

INCRMT 

INCVAR 

INDEX 

INDEX 

INDEX 

INDSKIP 

INDXWR 

INICNT 

INIT4 

INIT4 

INIT4 

INPULB 

INPUT 

INPUT 

INPUT 

INSERT 

INTCCW 

INTCCW 

INTIWR 

lOCOMPAR 

ISLOOP 

ISLOOP 

ISSHRD 

KAPUT 
KEYROUT 
KEYROUT 
KEYROUT 

LABADR 

LABELSW 

LDLIM 

LIMCHK 

LIMRCH 

LLVSUL 

LOADALTR 

LOADONE 



Phase 

DAMODV 

DA MOD 

DAMOD 

DAMOD 

DAMOD 

DAMODV 

DAMODV 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

DAMOD 

IS.ADDRTR 

IS. ADD 

IS.RETRVE 

IS.ADDRTR 

IS.ADDRTR 

IS. LOAD 

IS. LOAD 

$$B0IS01 

IS. LOAD 

IS. LOAD 

$$BODAIN 

IS. LOAD 

$$BODACL 

$$B0DA02 

$$B0DA01 

IS.RETRVE 

IS.RETRVE 

IS.ADDRTR 

$$BINDEX 

IS. LOAD 

IS. LOAD 

IS.RETRVE 

IS.RETRVE 

IS.ADDRTR 

$$B00AU1 

$$BODAIN 

$$BOOAIN 

$$BOOAUI 

$$B0DAU1 

IS. LOAD 

IS. LOAD 

IS. LOAD 

$$B0IS07 

$$B0IS04 

$$B0IS05 

IS. LOAD 

$$B0IS08 
IS.RETRVE 
IS.RETRVE 
IS.ADDRTR 

$$BODAIN 

$$BODACL 

$$BOOA01 

IS. LOAD 

$$B0DA02 

$$B0IS01 

$$B0DAI1 

$$BODACL 



Location 

AMC3 
A J 02 
A0E4 
ADD5 
AAJ2 
ANFl 
BBFl 
AAK2 
AFEl 
AJB3 
AAGl 
ABBl 
AHA4 
ABD2 
ABJ4 
AAC3 
KBC4 
ELF2 
GGJ3 
JHJ3 
JLD5 
DA J 5 
DBCl 
LAG4 
DDB2 
DBD4 
BJF3 
0FE3 
CPHI 
CBH4 
BQGl 
GKB5 
GPE2 
JMH5 
FAGI 
DBH4 
DAG5 
GKJ2 
GPE3 
JNJ2 
CKB4 
BHD4 
BJE5 
CKKI 
CLA3 
DEE3 
DFHl 
DBDl 
MCKI 
LGDI 
LHEI 
DBD2 

MEB3 
GHB4 
GNB4 
JLDI 

BJCl 
CPG3 
BQFl 
DEC4 
CAC3 
LAC3 
BKA5 
CMCl 



Label 

LOADJP 

LOADJP 

LOADJSEK 

LGLIM 

LUOP 

LOOPOFF 

LSIPRDAT 

LSTKCD 

LSTTkK 

MAXUlJT 

MISZOK 

MODOK 

MORXTNT 

MORXFNT 

MOVE 

MOVEDAFA 

MOVEHR 

MOVEID 

MOVELL 

MOVEPT 

MSGRET 

MSGRTN 

MSGRTN 

MSGRFN 

MSGRTN 

MSGRTN 

MSGRTN 

MSGRTN 

MSGRTNE 

MSG2 

MSG2 

MSG2 

MSTHI 

MTON 

MTRGET 

MVEXT 

MVPNTR 

NDVTOC 

NDXERR 

NDXRTN 

NEXT 

NEXT 

NEXT 

NEXT 

NEXTPHAS 

NF4FND 

NF4FND1 

NOFULTRK 

NOFl 

NOFILB 

N0F3 

N0F3 

N0F4 

N0F4 

N0F4 

N0F4LB 

NOMSG 

NOMSG 

NONFIRST 

NONSHRD 

NORECFND 

NORECFND 

NORECFND 

NORECFND 



Phase 


Location 


$$B0IS07 


MBD2 


$$BCISOA 


NBB4 


$$BODACL 


CNC3 


$$B0IS09 


MGBI 


$$BINDEX 


FAE3 


$$BINDEX 


FBGl 


$$BOIS10 


MKA2 


IS. LOAD 


DED5 


IS., LOAD 


DFAI 


$$B0DAU1 


CKH3 


IS. LOAD 


DEG2 


$$B0IS08 


MDG2 


$$BODAIN 


BHG4 


$$B0DAI1 


BLCl 


$$B0RTV1 


NDC4 


$$BODACL 


CNB5 


IS. LOAD 


DAB3 


$$BINOEX 


FAE4 


$$B0DA02 


CBJl 


$$B0DAI1 


BKB4 


$$B0DAU1 


CKE4 


$$B0DAIN 


BJH5 


$$B0DAI1 


BLJ5 


$$B00AI1 


BMD4 


$$B0DA01 


BNE5 


$$^0IS01 


LAG2 


$$B0IS05 


LJH3 


$$B0IS06 


LME4 


$$B0IS07 


MBC2 


$$B0DAIN 


BGD5 


$$B0DAII 


BKG3 


$$BaDA01 


BQG2 


IS. LOAD 


DAB 5 


$$BINDEX 


FAJ4 


$$B0IS07 


MBH4 


$$B0DAIN 


BGG2 


$$B0DA01 


BNH3 


$$B0iS03 


LFC2 


$$B0IS05 


LJG3 


$$B0IS05 


LJAl 


IS.RETRVE 


GHC2 


IS.RETRVE 


GNFI 


IS.ADDRTR 


JJD3 


IS.ADDRTR 


JLE3 


$$B0IS09 


MGA5 


$$BOIS02 


LDGl 


$$B0IS02 


LDF3 


$$B0IS10 


MKB4 


$$B0DAU1 


CKG2 


$$B0DAI1 


BMB3 


$$BODAIl 


BMB4 


$$B0DAyi 


CLH4 


$$B0DA0I 


BND5 


$$B0DA02 


CDB4 


$$B0DA03 


CEF4 


$$B0IS06 


LNH2 


$$B0DA03 


CEDl 


$$B0DA04 


CGEl 


$$BINDEX 


FAC5 


IS. LOAD 


DAG 4 


IS.RETRVE 


GJH4 


IS.RETRVE 


GPH2 


IS.ADDRTR 


JKJ4 


IS.ADDRTR 


JMD5 
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Label 

MORELAD 

NliKfcM 

NORMAL 

NORMAL 

NORMAL 

NORMAL 

NORMLTRK 

NORMLTRK 

NORMLTRK 

NOROOM 

NOSER 

NOSKIP 

NOTCHAIN 

NOUHL 

NOVERF 

VIOVLAB 

NOVLAB 

NOVLBL 

NOVLMS 

NOVLMSl 

NOVOLl 

NOVOLl 

NOVOLl 

NOXT 

NOXT 

NOXT 

N02321 

NRFF4 

NRFF4 

NRFRTN 

NRFVL 

NRFOl 

NRF09 

NRF09 

NTNDPK 

NWTKCM 

NXTEXT 

NXTRK 

NXTSU 

OFLOEXIT 

OFLOEXIT 

OFLOEXIT 

OFLOEXIT 

OFLOOP 

OFLOOP 

OFLOOP 

OFLOROUT 

OFLOROUT 

OFLOROUT 

OFLOSAVE 

0PN2 

ORCCW 

OTHERR 

OUT 

3UT 

OUT 

OUT 

OUT 

OUT 

OUT 

OUT 

OUTRTN 

OUTRTN 

OUTRTN 

OUTRTN 



Phase 


Location 


$$BODAIN 


BHE2 


Ib.LUAU 


utt^ 


IS.RETRVE 


GHB2 


IS.RETRVE 


GNEl 


IS.ADDRTR 


JJC3 


IS.ADDRTR 


JLD3 


IS^RETRVE 


GJGl 


IS.RETRVE 


GPBl 


IS.ADDRTR 


JMBl 


$$B0DA03 


CFE3 


$$B0DA01 


BNG3 


$$BINDEX 


FAC3 


$$BINDEX 


FBEl 


$$B0DAU1 


CKD5 


IS. LOAD 


DGF4 


$$BODAI I 


BMb5 


$$BGDA01 


BNE4 


$$B0IS06 


LNE2 


$$B0IS02 


LCG4 


$$B0IS02 


LCF4 


$$B0DA02 


CDB3 


$$BGDA03 


CEC4 


$$B0DAU1 


CKE2 


$$B0DAIN 


BJG5 


$$B0DA02 


CDBI 


$$B0DA03 


CED2 


$$B0DA02 


CBF4 


$$B0DA01 


BNB4 


$$B0DA03 


CEE4 


$$B0IS06 


LNE3 


$$B0DA01 


BND4 


$$B0DA02 


CDB5 


$$B0DA03 


CFE2 


$$B0DA04 


CJE5 


IS. LOAD 


DFCl 


IS. LOAD 


DFC2 


$$B0DA01 


BQB2 


IS. LOAD 


DAE2 


$$B0DA02 


CAC4 


IS.RETRVE 


GHJl 


IS.RETRVE 


GNBl 


IS.ADDRTR 


JJB3 


IS.ADDRTR 


JLA3 


IS.RETRVE 


GKG3 


IS.RETRVE 


GPB4 


IS.ADDRTR 


JNA4 


IS.RETRVE 


GKB2 


IS.RETRVE 


GPB3 


IS.ADDRTR 


JNB2 


$$B0IS06 


LLJ4 


$$B0DAI1 


BKBI 


IS. LOAD 


DEA3 


IS. LOAD 


DJG4 


IS. LOAD 


DA02 


IS. LOAD 


DBK3 


IS.LOAD 


DCJ5 


IS. LOAD 


DEG3 


$$BINDEX 


FAD2 


$$BINDEX 


FBC2 


$$BINDEX 


FBG5 


$$B0IS08 


MEEl 


$$B0IS01 


LBB3 


$$B0IS01 


LBJ2 


$$B0IS07 


MBB4 


$$BCISOA 


NBBl 



Label 



Phase 



Location 



OUTRTNE 


$$B0IS07 


MBC4 


UUI Kl NZ 


3»*buiSuf 


HBi-^ 


0UTRTN2 


$$BCISOA 


NBEl 


OUTl 


IS.LOAD 


DAG 2 


OVFRTN 


$$B0IS04 


LGB2 


OVFRTN 


$$BOIS05 


LHH2 


OVLMSR 


$$B0IS01 


LAC5 


PASS 


$$B0DAU1 


CKF5 


PDARTI^ 


$$B0IS05 


LHA4 


PDPOINT 


$$B0IS10 


MJC4 


PDROUT 


$$B0IS10 


MJFl 


PDSCHAGN 


$$B0IS10 


MJA3 


PDSERR 


$$B0IS05 


LHC5 


PDTGTI 


IS.LOAD 


DFDl 


PDFRK 


IS.LOAD 


DAKl 


PDUPPTR 


$$B0IS10 


MJG4 


PDIIB 


IS.LOAD 


DEJl 


PGBN 


IS.LOAD 


DEBl 


PHASEl 


$$B0IS01 


LAOI 


PHASE2 


$$B0IS02 


LCBl 


PHASE3 


$$BUIS03 


LEBl 


PHASE4 


$$BOIS04 


LGBl 


PHASE!) 


$$BOIS05 


LHBl 


PHASE6 


$$B0IS06 


LLBl 


PHASE? 


$$BOIS0T 


MABl 


PHASOT 


$$BDIS05 


LKAl 


PH4FTC 


$$b0IS03 


LFJ3 


PLUGXT 


$$B0DA04 


CHBl 


PNTCCB 


$$BODAIN 


BGH2 


POAkTN 


$$bOIS04 


LGJl 


POINT 


IS.LOAD 


DJGl 


POINT 


$$B0IS09 


MGJl 


P0INT2 


$$B0IS09 


MGG3 


P0INT4 


$$&0IS09 


MGD3 


PUBMSG 


$$BOIS02 


LCD4 


PUBMSG 


$$B0RTV1 


NCF2 


RCDCAL 


IS.LOAD 


DFF2 


RDEXCP 


IS.LOAD 


DJB5 


RDFLAB 


$$B0DA02 


CAH2 


RDF0R3 


$$B00AI1 


BLD3 


RDLABEL 


$$B0DACL 


CNBl 


RDLST 


IS.LOAD 


DJC3 


READ 


$$B0DAI1 


BKF2 


READFl 


$$B0DAU1 


CKDl 


READRT 


$$B0IS06 


LNBl 


REAUUL 


$$B0DAU1 


CKC4 


RECMOV 


$$BUDAai 


BPD5 


RECMOV 


$$B0DA02 


CCG5 


RELOCATE 


$$BOIS09 


MFCl 


RELOCATE 


$$B0IS10 


MJBl 


RETRVE 


$$B0IS07 


MBF3 


RETRVU 


$$BCISOA 


NAG5 


RETJRN 


IS.LOAD 


DHG5 


RETJRN 


IS.LOAD 


DJA3 


REVTOC 


$$B0DA02 


CDB2 


RNOBMP 


IS.LOAD 


DBJ2 


RMOOMP 


IS.LOAD 


DDF5 


RSETFP 


IS.LOAD 


DGJ5 


RSETTF 


IS.LOAD 


DAF2 


RTNF3 


$$B0DAI1 


BKG5 


RTNMON 


$$BODACL 


CNJI 


RTVl 


$$B0RTV2 


NGB5 


RZERG 


IS.RETRVE 


GHGl 


RZEROR 


IS.RETRVE 


GMF4 
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Label 


Phase 


Location 


RZEROR 


IS.ADDRTR 


JMJ3 


R21R 


IS.RETRVE 


GGHl 


R21R 


IS.ADDRTR 


JHFl 


SAVEFX 


$$B0DA01 


BNFl 


SAVFRX 


$$B0DA02 


CAFl 


SCAN 


S$B0IS09 


MFG3 


SCROPN 


$$B0DA02 


CCb2 


SCPTCH 


$$B0DA02 


CCH2 


SEQERR 


$$B0DA04 


CHE4 


SEROK 


$$B0DA03 


CEEl 


SETADR 


IS.LOAD 


DHB3 


SETCC 


IS. LOAD 


DGH5 


SETHEAD 


$$B0DA04 


CGB4 


SETLOG 


$$B0IS10 


MJGl 


SETMAX 


$$BINDEX 


FAD4 


SETMSG 


$$B0IS05 


LKE2 


SETNEW 


$$B0IS09 


MGB2 


SETPNT 


IS. LOAD 


DAA5 


SHARED 


IS. LOAD 


DEJ2 


SHRDTRK 


IS.RETRVE 


GKBl 


SHRDTRK 


IS.RETRVE 


GPB2 


SHRDTRK 


IS.ADDRTR 


JMB2 


SKIP 


$$BINDEX 


FAH4 


SKIP04 


$$B0IS02 


LCCl 


SKIP04 


$$B0IS03 


LECl 


SKIP04 


$$BGIS06 


LLCl 


SKIP04 


$$B0IS07 


MACl 


SKIP04 


$$BCISOA 


NAA2 


SKIP04 


$$B0RTV1 


NCCl 


SKIP05 


$$B0IS01 


LAJl 


SKIP05A 


$$B0IS01 


LAF2 


SKTP05B 


$$B0IS01 


LAE2 


SKIP06 


$$B0IS02 


LCF2 


SKTP06 


$$B0IS06 


LLFl 


SKIP08 


$$B0IS01 


LAKl 


SKIP08 


$$BDIS02 


LCKl 


SKIP08 


$$B0IS05 


LHCl 


SKIP08 


$$B0IS06 


LLHl 


SKIPOB 


$$BGIS07 


MAHl 


SKIP08 


$$BCISOA 


NBB2 


SKIP08 


$$B0RTV1 


NCA2 


SK JP08A 


$$BCISOA 


IMAG3 


SKIPIO 


$$BCISOA 


NAE5 


SKIP12 


$$B0IS01 


LAD3 


SKIP12 


$$B0IS02 


LDD2 


SKIP12 


$$BOIS03 


LEGl 


SKIP12 


$$BOIS07 


MAB3 


SK IP12 


$$B0RTV1 


NCE3 


SK IP13 


$$B0IS07 


MAE2 


SKIP14 


$$B0IS03 


LEH3 


SKIP14 


$$B0RTV1 


NDBl 


SKIP 16 


$$B0IS01 


LAE3 


SKIP16 


$$B0IS02 


LDC4 


SK IP16 


$$B0IS05 


LJCl 


SKIP16 


$$B0IS07 


MAG3 


SKIP16 


$$B0RTV1 


NDEl 


SKIPIS 


$$B0IS03 


LEE4 


SK IP20 


$SB0IS01 


LBB2 


SK TP20 


$$B0IS02 


LDD4 


SKIP20 


$$B0IS06 


LMB2 


SKIP20 


$$B0RTV1 


NDB3 


SKIP22 


$$B0IS06 


LM&2 


SKIP22A 


$$B0IS06 


LMH2 


SKIP22B 


$$B0IS06 


LMJ2 


SKIP24 


$$B0IS02 


LDF4 



Label 

SKIP24 

SKIP24 

SKIP24 

SKIP24 

SKIP24 

SKIP24A 

SKIP24B 

SKIP28 

SKIP2a 

SKIP32 

SKIP32 

SKIP32 

SKIP32A 

SKIP32B 

SKIP36 

SKIP36 

SKIP36 

SKIP40 

SKIP40 

SKIP42 

SKIP42 

SKIP44 

SKIP46 

SKIP52 

SKIP54 

SKIP54 

SKIP6C 

SKIP60 

SKIP60 

SKIP68 

SKIP68 

SKIP72 

SKIP72 

SKIP76 

SKIP78 

SKIP80 

SKIPB2 

SKIP82 

SKIP84 

SKIPb6 

SKIP88 

SKIP90 

SMTRK 

START 

START 

START 

START 

START 

START 

STDTF 

STOADR 

STORCT 

STORE 

STORES 

STORES 

STORESl 

STORESl 

STORESl 

STORKL 

STORSU 

STOWN 

STPIOA 

STRFXT 

SUBTCT 

SVCALL 

SVFIAD 



Phase 


Location 


$$B0IS03 


LFF3 


$$B0IS05 


LJD2 


$$BGIS06 


LL63 


$$BCISOA 


NBF2 


$$B0RTV2 


NFEl 


$$B0RTV2 


NFB3 


$$B0RTV2 


NFJI 


$$B0IS06 


LLC3 


$$B0RTV2 


NFB4 


$$B0IS06 


LLG3 


$$B0IS07 


MCA3 


$$B0RTV2 


NFE4 


$$B0IS07 


MCE3 


$$B0IS07 


MCB5 


$$B0IS05 


LJF2 


$$B0IS06 


LLH3 


$$B0RTV2 


NFH4 


$$B0IS05 


LHB4 


$$B0RTV2 


NGHl 


$$B0IS06 


LMB4 


$$B0RTV2 


NGB3 


$$B0IS05 


LHF3 


$$B0IS06 


LMC4 


$$B0IS05 


LHH3 


$$B0IS05 


LHC2 


$$B0IS06 


LLB5 


$$B0IS05 


LKFl 


$$B0IS05 


LHC4 


$$B0IS06 


LLE5 


$$BUIS05 


LHE3 


$$B0IS06 


LLG5 


$$B0IS05 


LKJ2 


$$B0IS06 


LME5 


$$BaiS05 


LKB2 


$$BGIS06 


LNGl 


$$B0IS05 


LKH3 


$$B0IS04 


LGG3 


$$B0IS06 


LNA3 


$$B0IS06 


LNJ3 


$$B0IS06 


LNH3 


$$B0IS04 


LGE4 


$$B0IS04 


LGH4 


IS. LOAD 


DEE4 


IS. LOAD 


DGBl 


IS. LOAD 


DHBl 


IS.RETRVE 


GGBl 


IS^RETRVE 


GMBl 


IS.ADDRTR 


JHBl 


IS.ADDRTR 


JLBl 


$$BODAIN 


BGCl 


IS. LOAD 


DHG3 


$$B0DA03 


CEJI 


$$BODAIN 


BJFl 


IS.RETRVE 


GLFl 


IS.RETRVE 


GQFl 


IS.RETRVE 


GLGl 


IS.RETRVE 


GQGI 


IS.ADDRTR 


JPFl 


IS. LOAD 


DGDl 


$$B0DAI1 


BKB2 


$$B0DAU1 


CKD3 


IS. LOAD 


DHA5 


$$bODA03 


CEGl 


IS. LOAD 


DGC3 


$$BODACL 


CNJ2 


$$B0DA02 


CBBI 
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Label 



Phase 



Location 



Label 



Phase 



Location 



TBLBLO 


$$B0IS05 


LKb3 


-^ ^ ^ ..^ 


*■ A'lt r MO r- \/ 


C D A 1 


1 no 1 


-P-PU X I1H-/L. /\ 




TESTC2 


$$B0DA02 


CBH3 


TESTEOF 


$$BODACL 


CNHl 


TESTIND 


$$B0IS09 


MFFl 


TESTLOAD 


$$B0IS09 


MFG3 


TESTMOD 


$$BOIS08 


MDKl 


TESTNORM 


IS.RETRVE 


GGG4 


TESTNORM 


IS.RETRVE 


GMG2 


TESTNORM 


IS.ADDRTR 


JHG4 


TESTPDUL 


IS. LOAD 


DAB2 


TESTPS 


$$B0DAI1 


BMEl 


TESTPS 


$$B0DA04 


CHH5 


TESTSHRD 


$$B0IS10 


MKA3 


TESTXT 


$$B0DA02 


CBCl 


TIGRIS 


IS.RETRVE 


GLD2 


TIGRIS 


IS.ADDRTR 


JKD2 


TIGRIS 


IS.ADDRTR 


JPD2 


TINLOP 


IS. LOAD 


DAH5 


TIWR 


IS. LOAD 


DBB2 


TKHLDCHK 


$$B0IS07 


MCG2 


TOMANY 


$$B0DA03 


GEA2 


TSTDASD 


IS.RETRVE 


GLG5 


ISIDASD 


IS.RETRVE 


GRH2 


TSTDVCTP 


$$BODAIN 


BHAl 


ISTNRF 


IS.RETRVE 


GLJ5 


TSTNRF 


IS.RETRVE 


GRK2 


ISTNRF 


IS.ADDRTR 


JKH5 


TSTNRF 


IS.ADDRTR 


JQJ2 


I STOUT 


$$BODAIN 


BJB4 


TSTRDLB 


$$BODAGL 


GPBl 


TSTRPY 


$$B0DA02 


GGB3 


TSTVAR 


$$B0DA02 


GBES 


TSTWLR 


IS.RETRVE 


GRJ2 


TSIWLR 


IS.ADDRTR 


JKG5 


TSTWLR 


IS.ADDRTR 


JQH2 



ULAB 


$$B0DAU1 


GKA3 


UNBLFL 


IS. LOAD 


DAJl 


UNBLREAD 


IS.RETRVE 


GJG5 


UNBLREAD 


IS.RETRVE 


GPDl 


UNBLREAD 


IS.ADDRTR 


JMEl 


UPDATE 


$$B0IS05 


LKGl 


UPDATE 


$$B0RTV1 


NEE4 


UPDINIT 


$$B0DA04 


GG03 


UPDTAD 


IS. LOAD 


DBB5 


UPPERLT 


$$BODAIN 


BJBl 


UPPERLT 


$$BODAI 1 


BLB2 


UPVSEQ 


$$B0DA04 


CHE3 


VALIDATE 


IS. LOAD 


DACl 


VALIDATE 


IS. LOAD 


DECl 


VAL IDATE 


IS.RETRVE 


GGDl 


VALIDKEY 


$$BOIS10 


MKG3 


VOLGHK 


$$B0RTV1 


NDB2 


VOL GET 


$$BOIS02 


LCE3 


VOLGET 


$$B0RTV1 


NCB5 


VOLGETGK 


$$BOIS02 


LGB5 


VOLSETUP 


$$B0RTV1 


NGG3 


WRITE 


$$B0DA03 


CFCl 


WRITE 


$$B0DA04 


CJB4 


WRITE 


$$B0DAU1 


GLGl 


WRITE 


$$BOIS06 


LPB2 


WRITE 


$$B0IS09 


MGCl 


WRITELBL 


$$B0DACL 


CPB3 


WKLABL 


$$BDDA04 


GHB3 


WRLAST 


$$B0DAU1 


GKJ3 


WRLUOP 


IS. LOAD 


DHEl 


WRTHI 


IS. LOAD 


DAJ4 


WRIT I 


IS. LOAD 


DAA4 


XTGHEK 


$$BUISOI 


LAB3 


XTNPUT 


$$bOIS06 


LLA3 
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APPENDIX B: MESSAGE CROSS-REFERENCE LIST 



For explanations and actions to be taken for the various messages, refer tc DQS/VS 
Messages, GC33-5372. 

Note: Ttie second digit of the message nuititer indicates the type of DASD file issuing 
the message. The file types are: 

2 = ISAM file 

6 = Direct access - Input 

7 = Direct access - Output 



h 



Message 
Nurrber 



Issuing 
Phase 



Chart 
Identification 



Message 



42001 

47001 
I- 



$$BOIS06 
$$BOIS06 

+- 

$$BOD?103 



LM 
CF 



NC LABEL SPACE IN VTCC 

or 
NO RECORD FOUND 



42011 



h 



46011 



h 



47011 



h 



$$BOIS06 
$$BOIS06 
$$BOIS07 
$$BOIS0A 
$$B0RTV1 



$$B0DM1 
$$B0DA01 



$$B0DA02 
$$B0DAai 



LL 

LN 
MA 
WA 
ND 



NO FORMAT 1 LABEL FOUND 

or 
NO RECORD FOUND 



BM 

CK 



CD 
CK 



42021 



h 



$$BOIS07 
$$BCISOA 
$$B0RTV2 



MA 
NA 
NG 



NC RECORD FOUND 



46031 



47031 
42041 



$$B0DAI1 
$$B0DA.U1 



$$B0DAU1 



BM 
CL 



NO FORMAT 3 LABEL FCUND 



CL 



h 



47041 



$$BOIS02 
$$BOIS0 3 
$$BOIS06 
$$B0RTV1 



$$B0DA01 
$$B0DAa2 
$$B0D?103 



LD 
LE 
LN 
ND 



NO FORMAT 4 LABEL FOUND 

or 
NO RECORD FOUND 



BN 
CD 
CE 



Figure 108. Message cross-reference list (1 of 3) 
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r T 

Message 
Number 



Issuing 
Phase 



Chart 
Identification 



Message 



42061 



^- 



46061 



I- 



47061 



h 



$$BOIS02 
$$BOIS03 
$$BOIS06 
$$801307 
$$BCIS0A 
$$B0RTV1 



$$B0DAI1 
$$B0DAU1 



$$B0DA01 
$$B0DA02 
$$B0DA03 
$$B0DAU1 



LC 

LE 
LN 
MA 
NA 
WC 



NO STANDARD VOLl LABEL FOUND 

or 
NO RECORD FOUND 



BM 
CK 



Bi^ 
CD 

CE 
CK 



4608D 



h 



$$BODACL 
$$BOIS03 



CN 
LE 



NO RECORD FOUND 



47091 



h 

I t 

h 

I L 
I I 

h 
1 1 

I £ 

1 1 

h- 

1 1 

h 

1 1 

h 
1 1 

h 

h 
I L 

h 
I ( 

H 

I '■ 

^ 

42521 

L J. 



$$B0DA02 
$$B0DA03 
$$B0DA04 



CD 
CF 
CJ 



NO RECORD FOUND 



4638D 



$$B0DAU1 
$$BODACL 



CK 

CN 



USER HDR LBL IS NOT STD . 
USER TRL IBL IS NOT STD. 
EXTENT OVERLAP ON ANOTHER 



4639D 



42401 



4740A 



$$BOIS01 
$$B0DAQ1 



LA 

BQ 



42411 



4741A 



$$BOIS02 
$$B0DA01 



LD 
BP 



EXTENT OVERLAP ON VTCC 



42431 



$$B0RTV1 
$$B0DA02 



NE 
CC 



INV EXTENT HI/LO LIMITS 
OVERLAP ON UNEXPRD FILE 
TOO mmY EXTENTS 



4744A 



42451 



47451 



$$BOIS06 
$$B0DA03 



LM 
CE 



42461 



$$BOIS07 
$$BOIS05 



MA 
LK 



DISCONT INDEX EXTENTS 
DATA TRACK LIMIT INVALID 
SYSUNITS NOT IN SEQUENCE 



42491 



46511 



47511 



$$B0DAI1 
$$BODA04 
$$BOIS05 



BL 
Cri 
LH 



I 
4 

I DISCONT T^PE 1 EXTENTS 



Figure 108. Message cross-reference list (2 of 3) 
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J. ^^ — ^ ^- ^- — , ^ J, — . , 

1 Message 1 Issuing | Chart | Message 

(Number | Phase | Identification! 

L i i «. i « 


(42541 ( $$BOIS05 ( LK ( DSK XTN ENTRY TABLE FULL 
( ( $$B0RT72 ( NF ! 

L J. , J. _ -««.-L , -« . « 


J4255A ( $$BOIS02 ( LC ( WRONG PACK, MOUNT nnnnnn 
( ( $$BORTVl ( ND ( 


(4655A ( $$B0DAI1 ( BK ( 

( 4755A ( $$B0DA01 ( BN ( 

(..„ ^.f „«- ^ 1 ^^ 

(47601 1 $$BODAIN ( BJ (NO EXTENTS, AIL BYPASSED 

( ! $$B0DA02 ( CD ( 

( 1 $$B0DA03 ( CR ( 

I. 4^..„„^ + ^ + ^.„ ^ 

( 42611 ( $$BOIS01 ( LA ( INVALID DLBL FUNCTION 

L« ««. JL^^^ —X — — X« . „««-.-.. ^— — «« —- 


(42621 ( $$BOIS05 j LK (NO PRIME DATA EXTENT 


( 42631 ( $$BOIS07 ( PB ( LOAD FILE NOT CLOSED 

|.« ^«|.« + +^ 

(42661 ( $$BOIS05 j LJ (1 TRACK USER LABEL EXTENT 
^„^ + + ^ ( 

j 4766A ! $$B0DA01 j BQ j 

L 1 i -. .^ i ^ ^« - « -. 


(42691 ( $$BOIS07 ( MC ( FILE IS OPEN FOR ADD 

^ + + -^ ^„4 

(42701 ( $$B0RTV2 ( NF ( 1ST XTNT CD NOT INDX VOI 

L i i _ _ _ i«^-. . , - - 


(42711 ( $$BOIS01 ( LA ( EXTENT INFO NEEDED 

I. + .+ ^^ „+„.- 

(42721 ( $$BOIS08 ( ME ( MOD AND DTF INCOMPATIBLE 

L i^_ ^^ i i . 


(42831 ( $$BOIS02 ( LC | INVALID LOGICAL UNIT 
( ( $$B0RTV1 ( NC i 

L ^_i — i- ^ - - ~ i 


(46831 ( $$B0DAIW ( BG ( 

^ — 4 4 4 

(47971 ( $$B0DA02 ( CC j OVLAP EXPIRED SECRD FILE 

^^^ 4 4 4 ^ 

(47981 ( $$B0DA02 ( CC ( OVLAP UNEXPRD SECRD FILE 

J. 4 4 4 

(4299D ( $$BOIS06 ( LL ( DATA SECURED FILE ACCESSED 
( ( $$B0RTV1 1 LNiD ( 



Figure 108, Message cross-reference list (3 of 3). 
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INDEX 



ADD functiDti CISAM) 

add to overflow area 115 
channel program builder 116 
end-of-file add 115 
normal add to prime data area 114 
ifAITF macro 114 
WAITF macro^ detail chart 237 
WRITE NEWKE^ macro 115 
WRITE NEWKEY macro, detail chart 234 
add to the overflow area 115, 153 
adding records to a file 71 
ADDRTR function (ISAM) 

channel program builder 155 
end-of-file add 153 
ESETL macro 146 
ESETL macro, detail chart 278 
GET macro 147 
GIT macro, detail chart 279 
overflow area add 153 
prime data area add 152 
PUT macro 148 
PUT macro, detail chart 283 
READ KEY macro 148 
READ KE5f macro, detail chart 284 
SETL macro 

phase 1, S$BSETL 149 
phase 2, $$BSETI*1 150 
$$BSETL, detail chart 285 
$$BSETL1, detail chart 288 
WAITF macro 151 
WAITF macro, detail chart 293 
WRITE macro 
KEY 153 

KEY, detail chart 298 
NEWKBY 154 

NEWKEY, detail chart 298 
alteration factors 55 
areas, work 76 
asynchronous processing 102 

relative addressing extensions 55 



B- transients (see logical transients) 
buffering, double 103 



capacity record (R0> 28 
a:w chains 111, 130 
CCWs (basic), channel prc^ram builder 
channel program builder 35 
descriptor byte 36 
detail chart 193 
ISMOD 

ADD 116 
ADDRTR 155 



RANDOM RETRVE 133 
SEQNTL RETRVE 141 

Strings 35 
close DAM, input/output 61 
close ISAM 182 
close ISAM, detail chart 323 
close logic 178 
CNTRL macro 

DAMOD 31 

DAMOD, detail chart 190 

DAMDDV 35 

DAMODV, detail chart 190 
COCR 68 

conventions for relative addresses 21, 55 
conversion of relative addresses 22 
cross^-reference label list 331 
cylinder 

index 68 

overflow area 66, 104 

overflow control record 68 



35 



DAM (direct access method) 13 

close 61 

extent information 60 

logic module macros 29 
DAMOD 

channel program builder subroutine 193 

CNTRL macro 31 

CNTRL macro, detail chart 190 

FREE macro 31 

FREE macro, detail chart 190 

input/output tmcxos 29 

input/output macros, detail chart 185 

macro 29 

seek overlap subroutine 191 

WAITF macro 30 

WAITF macro, detail chart 187 
DAMODV 

channel program builder subroutine 193 

COTRL macro 35 

CNTRL macro, detail chart 190 

FREE macro 35 

FREE macro, detail chart 190 

IJIGET subroutine, detail chart 201 

input/output macros 35 

input/output macros, detail chart 194 

seek overlap subroutine, detail 
chart 202 

WAITF macro 35 

WAITF macro, detail chart 198 
DASD file protect 183 
, data security indicator 57 
descriptor byte, DAM channel program 

builder 35 
direct access method CDAM) 13 

channel program builder strings 37 

charts 185 



Index 345 



files 13 

flftodiile 29 

doable buffering 



SEQNTL RErRVE 136 

SEQOTL REPRVE, detail cbart 



261 



103 



D3 K aTHT l^a bl e 
OTF tables 

DTFDA Ik 
DtFIS 

ADD 78 
ADDRTR 95 
LOAD 73 

RETRVE, RANDOM 85 
RETRVE, SEQOTL 90 
DTFPH, DAM 20 
DTFDA macro 13 
DTFIS macro 22 
DTFPH macro, DAM 20 



laiDFL macro LOAD 108 

EtIDFL macro LOAD, detail chart 225 

EOF add 115, 153 

EOV limits for prime data area 84 

ERREXr option 102 

ERREXT parameter list 

error option extension 

error/status indicator 

ESErL macro 

ADDRTR 146 

ADDRTR, detail chart 

RETRVE, SEQOTL 136 

RETRVE, SEQOTL, detail chart 260 
explanation of flowchart symbols 184 
extending a file with ISAM 70 
extent information to user, DAM 60 



102 
102 

24 



278 



I/O area requirements 63 
I/O areas 63 

add (blocked records) 64 

add (unblocked records) 64 

load 64 

retrieve (blocked records) 64 

retrieve (unblocked records) 64 
ID, reference by (DAM) 21 
IDLOC 22 

independent overflow area 66, 104 
index level pointer 64 
indexed sequential access method (ISAM) 
indexes 66 

cylinder 68 

master 69 

track 67 
indicator, error/status 24 
initialization and termination DAM 55 
initialization and termination 

procedures 176 
input/output macros 

DAMOD 29 

DAMOD, detail chart 185 

DAMODV 31 

DAMOD V, detail chart 194 
ISAM (indexed sequential access method) 

close 182 

close, detail chart 323 

file extension 70 
ISAM macro instructions 

add records to a file 104 

load or extent a DAsD file 103 

random retrieval 105 

sequential retrieval 106 
ISMOD macro 102 



63 



63 



factor, reconversion 32 

field, sequence link 64, 71 

file additions 71 

flowchart labels 331 

flowchart symbols 184 

formatting macro 28 

FREE macro 
DAMOD 29 

DAMOD, detail chart 190 
DAMOD V 35 

DAMODV, detail chart 190 
ISMOD, RANDOM RETRVE 132 
ISMOD, RANDOM RETRVE, detail chart 

functions 

add records to a file 71 
load or extend a file 70 
random record retrieval 71 
sequential record retrieval 72 



GET macro ISMOD 
ADDRTR 147 
ADDRTR, detail chart 



key, reference by (DAM) 21 



label information, DASD 
label list, flowchart 
259 length field, sequence 
link field, sequence 
LOAD function 
ENDFL macro 
phase 1 
phase 1, 
phase 2 
phase 2, 
SETFL macro 
phase 1 



(SySRES) 
331 
64, 71 
64, 71 



108 
detail chart 225 

109 
detail chart 227 



176 



279 



109 
phase 1, detail chart 229 
phase 2 
phase 2, 
phase 3 



111 

detail chart 
112 



231 
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phase 3, detail chart 232 

phase 4 112 

phase 4, detail chart 233 
WRITE NEWKEY macro 112 
WRITE NEWKEY macro, detail chart 23** 
loading or eictending a file 70 
logical transients 

$$BCISOIl 182 

$$BCISO?l, detail chart 323 

$$BEIiDFF 109 

$$BENDFF, detail chart 227 

$$BE»DFL 108 

$$BENDFL, detail chart 225 

$$BI^rDEX 128 

$$BINDEX, detail chart 250 

$$BODACL 61 

$$BODACL, detail chart 222 

$$BODAIf« 57 

$$BODMN, detail chart 204 

$$B0DM1 57 

$$B0DM1^ detail chart 207 

$$B0DA01 57 

$$B0DA01, detail chart 208 

$$B0DA02 58 

$$B0DAD2, detail chart 211 

$§B0DA03 59 

$$B0DAD3, detail chart 215 

$$B0DAD4 59 

$$BODAO«», detail chart 217 

$$BDDA01 60 

$SB0DAU1, detail chart 220 

S$BOIS01 178 

$§BOIS01g detail chart 299 

$$BOIS02 178 

$$BOIS02, detail chart 301 

$$BOIS03 178 

$$BOIS03, detail chart 303 

$$BOIS04 179 

$SBOIS04, detail chart 305 

$$BOIS05 179 

$$BOIS05, detail chart 306 

$$BOIS06 179 

$$BOIS06, detail chart 309 

$$BOIS07 180 

$$BOIS07, detail chart 313 

$$BOIS08 180 

$$BOIS08, detail chart 316 

$$BOIS09 181 

$$BOIS09, detail chart 318 

$$BOIS10 181 

$$BOIS10, detail chart 321 

$$B0RTV1 182 

$SB0RTV1, detail chart 335 

$$B0RTV2 182 

$$BDRTV2, detail chart 328 

$$BSETFF 111 

$$BSETFF, detail chart 231 

$$BSOTFG 112 

$$BSETF3, detail chart 232 

$$BSETFH 112 

i^BSETFa, detail chart 233 

$$BSETFL 109 

$$BSETFJ:., detail chart 229 

$$BSETL 138 

$$BSBTL, detail chart 266, 285 
S$BSETL1 (ADDETR) 150 
$$BSETL1 (SEQ RTRVEI 139 

$$BSETL1, detail chart 271, 288 



macro 
CHTRL 

DAMDD 31 

DAMDD, detail chart 190 
DAMODV 35 

DAMOD\f, detail chart 190 
DFTDA 13 
DTFIS 22 
DTFPi, DAM 20 
ENDFL LOAD 108 
ENDFL LOAD, detail chart 225 
ESETL 

ADDRTR 146 

ADDRTR, detail chart 278 

SECNTL RBTRVE 136 

SEQNPL RETRVE, detail Chart 261 
formatting 28 
FREE 

DAMDD 31 

DAMOD, detail chart 190 

DAMODV 35 

DAMODV, detail chart 190 

RAHDOM RETRVE 132 

RANDOM RETRVE, detail chart 259 
GET 

ADDRrR 147 

ADDRTR, detail chart 279 

SEQNTL RETRVE 136 

SEQNTL RETRVE, detail chart 261 
inpat/otitput 

DAMOD 29 

DAMOD, detail chart 185 

DAMODV 31 

DAMODV, detail chart 194 
ISMOD 102 
PUT 

ADDRTR 148 

ADDRTR, detail chart 283 

SEQNTL RETRVE 138 

SEQNTL RETRVE, detail chart 265 
READ 

ID DAMOD 29 

ID DAMOD, detail chart 185 

KEY DAMOD 29 

KEY DAMOD, detail chart 185 

KEY ADDRTR 148 

KEY ADDRTR, detail chart 284 

KEY RAaiDOM RETRVE 131 

KEY RANDOM RETRVE, detail chart 252 

SP0NB records 41 

VARONB records 41 
SETFL LOAD 109 
SETFL LOAD, detail chart 229 
SETL 

ADDRTR 149, 150 

ADDRTR, detail chart 285, 288 

SEQNTL RETRVE 138, 139 

SEQNrL RETRVE, detail chart 266 
WAITF 

DAMOD 30 

DAMOD, detail chart 186 

DAMODV 35 

DAMODV, detail chart 198 

ISMOD ADD 114 

ISMOD ADD, detail chart 237 

ISMOD ADDRTR 151 

ISMOD ADDRTR, detail chart 293 

ISMOD RANDOM RETRVE 131 



Index 347 



ISMOD RANDOM KETRVE, detail 
chart 253 
WRITE 

AFTER DAMOD 28 

AFTER DAMOD, detail chart 185 

AFTER SPSDNB records 34 

AFTER VARUHB records 33 

ID DAMOD 29 

ID DAMOD, detail chart 185 

KEY DAHOD 29 

KEY DAMOD, detail chart 185 

KEY ISMOD ADDRTR 153 

KEY ISMOD ADDRTR, detail chart 298 

KEY ISMOD RANDOM RETRVE 132 

KEY ISMOD RANDOM RETRVE, detail 

chart 257 
NEWKEY ISMOD ADD 115 
NEWKEY ISMOD ADD, detail chart 2^*1 
NEWKEY ISMOD ADDRTR 154 
NEWKSY ISMOD ADDRTR, detail 

Chart 241 
NEWKEY ISMOD LOAD 112 
NEWKEY ISMOD LOAD, detail chart 234 
RZERO DAMOD 28 
RZERO DAMOD, detail chart 187 
RZERO SFNDNB records 34 
R2ER0 VARDNB records 34 
SPN0NB records 33 
VARONB records 32 
macro instr actions (ISAM> 

add records to a file 104 
load or extent a DASD file 103 
random retrieval 105 
sequential retrieval 106 
master index 69 

message cross-reference listing 341 
i^dules, direct access method 29 
modules, reentrant 102 
multiple track search 22 



normal add to prime data area 114, 152 



open ISAM 177 

phase 1 178 

phase 1, detail chart 299 

phase 10 181 

phase 10, detail chart 321 

phase 2 178 

phase 2, detail chart 301 

phase 3 178 

phase 3, detail chart 303 

phase 4 179 

phase 4, detail chart 305 

phase 5 179 

phase 5, detail chart 306 

phase 6 179 

phase 6, detail chart 309 

phase 7 180 

phase 7, detail chart 313 

phase 8 180 

phase 8, detail chart 316 

phase 9 181 

phase 9, detail chart 318 
open logic DAM, general chart 57 
open logic ISAM, general chart 178 
open/close logic DAM 55 
open/close logic ISAM 179 
open 

ISAM RETRVE 

phase 1 182 

phase 1, detail chart 325 
phase 2 182 

phase 2, detail chart 328 
overflow area 66 

cylinder 66, 104 

ISMOD ADD 115 

upper limits 84 



parameter list, ERREXT 102 
prime data area EOV limits 84 
processing, asynchronous 102 
TOT macro ISMOD 

ADDRTR 148 

ADDRTR, detail chart 283 

SEQNTL RETRVE 138 

SEQNTL RETRVE, detail Chart 265 



Open DAM 55 

general chart 57 

input 58 

input, detail chart 207 

input/output 58 

input/output, detail chart 204 

output 

phase 1 58 

phase 1, detail chart 208 

phase 2 59 

phase 2, detail chart 211 

phase 3 60 

phase 3, detail chart 215 

phase 4 60 

phase 4, detail chart 217 
user labels 61 
user labels, detail chart 220 



RDONIiY 102 

read cylinder index into storage 128 

detail chart 250 
READ ID KBcro 

DAMOD 29 

DAMOD, detail chart 185 
READ KEY macro 

DAMOD 29 

DAMOD, detail chart 185 

ISMOD 

ADDRTR 148 

ADDRTR, detail chart 284 

RANDOM RETRVE 131 

RANDOM RETRVE, detail chart 252 
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READ macro 

SPOHB rec3rds «ll 

VAHONB records 41 
reconversion factor 32 
record 

ID returned (IDLOO 22 

spanned 24 

types 63 

zero (RO) 30 
reentrant module 102 
reference 

by ID iDP^} 21 

by KEY (DAM) 21 

methods and addressing systems 20 
relative address conversion 22 
relative addressing conventions 21, 55 
requirements for I/O areas 63 
RETRVE functions random (ISAM) 

channel program builder 133 

FREE macro 132 

FREE macro, detail chart 259 

READ KEY macro 131 

READ KEY macro, detail chart 252 

WAITF macro 131 

WAITP macro, detail chart 253 

WRITE KEY macro 132 

WRITE KEY macro, detail chart 257 
RETRVE functions sequential CISAM) 

channel program builder 141 

ESETL macro 136 

ESETL macro, detail chart 261 

GET macro 136 

SET macro, detail chart 261 

PUT macro 138 

POT macro, detail chart 265 

SETL macro 

$$BSSTL 138 

$$BSETL, detail chart 266 
$$BSETL1 139 
$$BSETL1, detail chart 271 
RETRVE open (ISAH> 



phase 1 182 




phase 1, detail chart 


325 


phase 2 182 




phase 2, detail chart 


328 


urned record ID (IDLOC) 


22 



search multiple tracks 22 
seek overlap subroutines 191, 
sequence link field 64, 71 

entries 71 

index level pointer format 
SETFL macro LOAD 109 
SETFL macro LOAD, detail chart 
SETL macro ISMOD 

ADDRTR 149, 150 

ADDRTR, detail charts 285, 

SEQOTL RETRVE 138, 139 

SEQNTL RETRVE, detail charts 
spanned records 

control field 24 

READ macro 31 



202 



65 



229 



288 



266, 271 



WRITE macro 33 

WRITE AFTER macro 34 

WRITE R2ER0 macro 34 
storage areas 63 

I/O areas 63 

»fork areas 66 
strings, channel program builder 35 
subroutines, detail charts 

DAMOD channel program builder 193 

DAMOD seek overlap 191 

DAMODV channel program builder 193 

DAMODV IJIGET 201 

DAMODV seek overlap 202 
symbols, f loifcharting 184 
SYSRES DASD label information 176 



table, DSKXT»T 55 
termination of DAM 55 
termination procedures 176 
track index 67 
track search, multiple 22 
types of records 63 



VAR0NB records 

READ macro 31 
WRITE AFTER macro 33 
WRITE macro 32 
WRITE RZERO macro 34 



miTF macro 
DAMOD 30 
DAMOD, detail chart 



DAMODV 

DAMODV, 

ISMOD 

ADD 

ADD, 

ADDRTR 

A.DDRTR 



35 
detail chart 



186 



198 



114 
detail chart 237 
151 
detail chart 283 



RANDOM RETRVE 131 
RANDOM RETRVE, detail chart 
work areas 76 
WRITE AFTER macro 

DAMOD 28 

DAMOD, detail chart 185 

SPNONB records 34 

VARONB records 33 
MIITE ID macro 

DAMOD 29 

DAMOD, detail chart 185 



253 



Index 349 



WRITE KEY macro ^ WRITE NEWKEY macro ISMOD 

OAMOD 29 ADD 115 

DAMOD, detail chart 185 ADD, detail chart 2*11 

I SMOD ADDRTR 154 

ADDRTR 153 ADDRTR, detail chart 241 

ADDRTR, detail chart 298 LOAD 112 

RANDOM RETRVE 132 LOAD, detail chart 234 

RANDOM RETRVE, detail chart 257 WRITE RZERD aacro 

WRITE macro DAMOD 28 

SPNOHB records 33 DAMOD, detail chart 185 

VARONB records 32 SPNONB records 34 

VARUNB records 34 
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This sheet is for comments and suggestions about this manual. We would appreciate your 
views, favorable or unfavorable, in order to aid us in improving this publication. This form 
will be sent directly to the author's department. Please include your name and address if 
you wish a reply. Contact your IBM branch office for answers to technical questions about 
the system or when requesting additional publications. Thank you. 



Your comments'*' and suggestions: 



* We would eqiedaOy appreciate your comments on any of the following topics: 

Clarity of the text Accuracy Index Illustrations Appearance Paper 

Organization of the text Cross-references Tables Examples Printing Binding 



SY33-8561-0 



YOUR COMMENTS, PLEASE . . . 

This manual is part of a library that serves as a reference source for systems analysts, 
programmers and operators of IBM systems. Your answers to the questions on the back of this 
form, together with your comments, will help us produce better publications for your use. Each 
reply will be carefully reviewed by the persons responsible for writing and publishing this 
material. All comments and suggestions become the property of IBM. 

Please note: Requests for copies of publications and for assistance in utilizing your IBM sys- 
tem should be directed to your IBM representative or to the IBM sales office serving your 
locality. 
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